Sumo mis felicitaciones ahora en el tema adecuado porque sólo lo hice dentro de un tema regular, a mí me ha gustado.
La sección que me ha generado dudas es la de "planes de suscripción", ¿tengo que volver a registrarme o actualizar algo en mi perfil? ¿Es una sección diferente de preguntas y respuestas sólo visible al registrarse?
Y agrego a las felicitaciones a los maestros y a los usuarios avanzados que contribuyen con las respuestas, con la IA avanzando en grande, la interacción humana (al menos en esto de los foros) va siendo desplazada.
¡Gracias Totales!
Por
Israel Cassales, · publicado
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