Buenas noches
Mire lo que necesito es hacer un programa el cual se introduce en una caja de texto una fecha de la cual se atrapa el año para después decir si el año es bisiesto o no.
Gracias por la colaboración.
Gracias por la colaboración.
2 respuestas
Respuesta de denciso
1
Adapta la función de la siguiente liga:
http://www.lawebdelprogramador.com/codigo/codigo.php?idp=161&id=93&texto=Visual+Basic
A lo que desees...
http://www.lawebdelprogramador.com/codigo/codigo.php?idp=161&id=93&texto=Visual+Basic
A lo que desees...
Respuesta de jarpsoft
1
Dim aa As Integer
Dim txt As String
aa = Val(Text1.Text)
If (aa Mod 4 = 0) Then
txt = "es bisiesto"
Else
txt = "no es bisiesto"
End
Text2.Text = txt
Prueba con eso y adáptalo a tu programa.
Dim txt As String
aa = Val(Text1.Text)
If (aa Mod 4 = 0) Then
txt = "es bisiesto"
Else
txt = "no es bisiesto"
End
Text2.Text = txt
Prueba con eso y adáptalo a tu programa.