Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Private Sub TextBox10_Change()
Application.ScreenUpdating = False
On Error Resume Next
Dim cam As Integer
cam = Len(TextBox10.Text)
Select Case cam
Case 2
Me.TextBox10.Text = Me.TextBox10 & "/"
Case 5
Me.TextBox10.Text = Me.TextBox10 & "/"
End Select
Dim fecactual As Date
Dim fecnac As Date
Dim edadactual As String
fecnac = CDate(TextBox10.Value)
edadactual = DateDiff("d", fecnac, Now)
TextBox11.Text = edadactual
fecnac = CDate(TextBox10.Value)
edadactual = DateDiff("m", fecnac, Now)
TextBox12.Text = edadactual
fecnac = CDate(TextBox10.Value)
edadactual = DateDiff("yyyy", fecnac, Now)
TextBox13.Text = edadactual - 1
Application.ScreenUpdating = True
If TextBox11.Text <> Empty Then
TextBox11.Enabled = False
TextBox12.Enabled = False
TextBox13.Enabled = False
Else
TextBox11.Enabled = True
End If
End Sub