| Usuario |
DATEDIFF????? |
Desconocido
|
| Enviado - 21/9/2004 |
| |
| quien me ayuda con el codigo para calcular edad exacta |
| |
|
Desconocido
|
| Enviado - 23/9/2004 |
| |
Aqui esta el codigo que pedias, para ejecutarlo solo tienes que copiarlo en un formulario y cambiar la propiedad "Autoredraw" a True del formulario
Private Sub Form_Load()
Dim Nombre As String, Nac As Date, Ahora As String, Dia As String, Mes As String, año As String
Nombre = InputBox("Escribe tu nombre de pila", "Datos")
Nac = InputBox("Escribe tu fecha de nacimiento <04/05/1984>", "Datos", "04/05/1984")
Ahora = Now
Dia = DateDiff("d", Nac, Ahora)
Mes = DateDiff("m", Nac, Ahora)
año = DateDiff("yyyy", Nac, Ahora)
Print "Has vivido "; Dia; " Dias, "; Mes; " Meses, "; año; " Años"
End Sub |
| |
|
|
|
