Pages

viernes, 1 de febrero de 2013

Determinar si un año es bisiesto Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que permita determinar si un año es bisiesto. Un año es bisiesto si es múltiplo de 4 (por ejemplo 1984). Los años múltiplos de 100 no son bisiestos, salvo si ellos son también múltiplos de 400 (2000 es bisiesto, pero;  1800 no lo es).

Solución
  • Entrada: 1988
  • Salida: es año bisiesto
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = TextBox1.Text
        If (a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0) Then
            TextBox2.Text = "el año " + Trim(a) + " Si es bisiesto"
        Else
            TextBox2.Text = "el año " + Trim(a) + " No es bisiesto"
        End If
    End Sub
End Class

3 comentarios:

Anónimo dijo...

Q buen Programa Ayudame con este
Calcular la cantidad de dias de Una fecha ...!! este el formato Aa/mm/dd

Gabriel Uribe dijo...

Use DateDiff

Anónimo dijo...

Excelente muchas gracias, me fue de mucha ayuda.. :)

Publicar un comentario en la entrada