Programacion Algoritmo Para Calcular El Dia Siguiente
Enviado por anamacohu • 1 de Abril de 2013 • 1.313 Palabras (6 Páginas) • 3.134 Visitas
Dia = TextBox1.Text
Mes = TextBox2.Text
Año = TextBox3.Text
If Año >= 0 Then
If Mes >= 1 And Mes <= 12 Then
If Mes = 12 Then
Label1.Text = (Año + 1)
Else
Label1.Text = Año
End If
If Mes = 1 Or Mes = 3 Or Mes = 5 Or Mes = 7 Or Mes = 8 Or Mes = 10 Then
If Dia < 31 Then Label3.Text = (Dia + 1)
If Dia < 31 Then Label2.Text = Mes
If Dia = 31 Then Label1.Text = "1"
If Dia = 31 Then Label2.Text = (Mes + 1)
Else
If Mes = 4 And Mes = 6 And Mes = 9 And Mes = 11 Then
If Dia < 30 Then Label3.Text = (Dia + 1)
If Dia < 30 Then Label2.Text = Mes
If Dia = 30 Then Label3.Text = "1"
If Dia = 30 Then Label2.Text = (Mes + 1)
Else
If Mes = 2 And (Año Mod 4) = 0 Then
If Dia < 29 Then Label3.Text = (Dia + 1)
If Dia < 29 Then Label2.Text = Mes
If Dia = 29 Then Label3.Text = "1"
If Dia = 29 Then Label2.Text = (Mes + 1)
Else
If Mes = 2 Then
If Dia < 28 Then Label3.Text = (Dia + 1)
If Dia < 28 Then Label2.Text = Mes
Else
If Dia = 28 Then Label3.Text = "1"
If Dia = 28 Then Label2.Text = (Mes + 1)
End If
If Mes = 12 Then
If Dia < 31 Then Label3.Text = (Dia + 1)
If Dia < 31 Then Label2.Text = Mes
If Dia = 31 Then Label3.Text = "1"
If Dia = 31 Then Label2.Text = "1"
End If
End If
End If
End If
Else
Label2.Text = ("Error")
End If
Else
Label1.Text = ("Error")
End If
...