Pages

lunes, 21 de enero de 2013

Determinar el día de la semana Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que  permita decirle al usuario que día de la semana es de
acuerdo al número ingresado por el usuario. Los números permitidos y su equivalencia al
día son los siguientes:
1     Domingo
2     Lunes
3     Martes
4    Miércoles
5     Jueves
6     Viernes
7     Sábado.

Solución
  • Entrada: 5
  • Salida: Jueves
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 Dia() As String = {"Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado"}
        Dim d As Integer
        d = TextBox1.Text
        If (d >= 1 And d <= 7) Then
            TextBox2.Text = "el dia " + Trim(d) + " es " + Dia(d - 1)
        Else
            TextBox2.Text = "No es un dia de la semana"
        End If
    End Sub
End Class

3 comentarios:

Alfredo Alain dijo...

Muchas gracias si me sirvio :)

Anónimo dijo...

UNA CONSULTA PORQUE EN Dia(d - 1) SE RESTA d -1?

Anónimo dijo...

mano una ayudita necesito saber me estan dando un ejercicio como hacer para saber cuantas semanas hay.
ejemplo:
del 01/10/16
al 21/10/16
hay tres semanas como ago para presentar los codigos

Publicar un comentario en la entrada