10/05/2011, 14:57
|
| | | Fecha de Ingreso: marzo-2011 Ubicación: Florida-Uruguay
Mensajes: 74
Antigüedad: 13 años, 8 meses Puntos: 4 | |
| Respuesta: Problema para calcular la edad a partir de fecha de nac.
Shizuka:
Yo lo declare así y me calculo bien
Private Sub Calcular_edad_Click()
Dim Edad As Integer
Text1 = dia.Text & "/" & mes.Text & "/" & año.Text
Fecnac = CDate(Text1)
Edad = CInt((Date - Fecnac) / 365)
Text2 = Edad & " Años "
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub
En realidad lo único diferente a tu declaración fur suplantar "-" por "/" y el resultado de no lo declare como string, espero te sirva, estamos en contacto un abrazo.- |