ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Programacion Algoritmo Para Calcular El Dia Siguiente


Enviado por   •  1 de Abril de 2013  •  1.313 Palabras (6 Páginas)  •  3.125 Visitas

Página 1 de 6

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

...

Descargar como (para miembros actualizados) txt (2 Kb)
Leer 5 páginas más »
Disponible sólo en Clubensayos.com