21/01/2005, 07:56
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
| la mia es esta
Function 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())
calculartiempo = Cint(t)
End Function
la llamas asi
<%=calculartiempo(21, 01, 2004, 2)%>
la letra "f" la reemplazas por el numero que corresponda arriba, si es 1 entonces te devuelve la edad en dias, si es 2 te la devuelve en meses, si es 3 te la devuelve en años..
espero te sirva. |