19/09/2006, 20:37
|
| (Desactivado) | | Fecha de Ingreso: julio-2006
Mensajes: 273
Antigüedad: 18 años, 7 meses Puntos: 5 | |
| yo lo he creado en consola pero de aqui creo que lo puedes utilizar y transformar
Module Module1
Sub Main()
Dim DiadelaSemana As Integer
DiadelaSemana = Now.DayOfWeek
Select Case DiadelaSemana
Case 0
Console.WriteLine("El dia de hoy es: Domingo")
Case 1
Console.WriteLine("El dia de hoy es: Lunes")
Case 2
Console.WriteLine("El dia de hoy es: Martes")
Case 3
Console.WriteLine("El dia de hoy es: Miercoles")
Case 4
Console.WriteLine("El dia de hoy es: Jueves")
Case 5
Console.WriteLine("El dia de hoy es: Viernes")
Case 6
Console.WriteLine("El dia de hoy es: Sabado")
End Select
Console.ReadLine()
End Sub
End Module |