Esta subrutina nos sirve para calcular un tiempo transcurrido desde la fecha dada hasta la actual, por ejemplo si queremos calcular la edad de una persona con solo introducir su fecha de nacimiento..
esta subrutina recibe 4 parametros.
dia, mes, ano, y f
f es el formato de salida qeu queremos ver en pantalla 1 si es en dias, 2 si es en meses y 3 si es en años
un ejemplo de llamado seria asi calculartiempo 05, 11, 1980, 3
el resultado de esta ejecucion seria 24 años.
Código:
Sub calculartiempo(dia, mes, ano, f)
Dim fecha, formatosalida,t
fecha= dia & "/" & mes& "/" & ano
if f = 1 then
formatosalida = "d"
end if
if f =2 then
formatosalida = "m"
end if
if f = 3 then
formatosalida = "yyyy"
end if
t = DateDiff(formatosalida,fecha,Date())
response.write t
End Sub
si alguien quiere hacerle algunas mejoras seria bueno.. por ahora no se me ocurre que mas hacerle. creo qeu tambien se puede hacer en horas, minutos, segundos, etc.. o la verdad n estoy muy seguro, si es asi, porfavor escriban la modificacion.