CREAR UN CALENDARIO PARECIDO A WIN VISTA
Por Yuri Lizama
Bueno en esta ocación les enseñare a crear un calendario en donde se mostrara el mes, año, fecha y dia de la semana algo asi como esto:
Dic 2008
14
Domingo
Para ello solo necesitamos un Form y 3 label con los siguientes nombres
Label1 = lblMes
Label2 = lblFecha
Label3 = lblSemana
Basta de Bla bla bla. Inserta este Codigo en el Form analizalo y veras que es facil crear este Calendario:
Option Explicit
Private Mes As String
Private Año As String
Private Semana As String
Private Sub Form_Load()
'Situar arriba y a la derecha al Form
Me.Top = 300
Me.Left = Screen.Width - Width - 120
'centrar los Label
lblFecha.Left = (Me.Width - lblFecha.Width) / 2
lblMes.Left = (Me.Width - lblMes.Width) / 2
lblSemana.Left = (Me.Width - lblSemana.Width) / 2
'Colocar Nombre de los datos de fecha
SaberMes (Month(Date))
lblFecha = Day(Date)
lblMes.Caption = Mes
lblSemana = WeekdayName(Weekday(Date)) 'Día de Semana
End Sub
Private Sub SaberMes(index As Integer)
Año = Year(Date) ' OBTENEMOS EL AÑO
' MonthName(Month(Date)) DE ESTA FORMA OBTENEMOS EL NOMBRE LARGO DEL MES
Select Case index
Case 1
Mes = "Ene " & Año
Case 2
Mes = "Feb " & Año
Case 3
Mes = "Mar " & Año
Case 4
Mes = "Abr " & Año
Case 5
Mes = "May " & Año
Case 6
Mes = "Jun " & Año
Case 7
Mes = "Jul " & Año
Case 8
Mes = "Ago " & Año
Case 9
Mes = "Sep " & Año
Case 10
Mes = "Oct " & Año
Case 11
Mes = "Nov " & Año
Case 12
Mes = "Dic " & Año
End Select
End Sub
Bueno esto es todo, Suerte
Saludos :)
YAL PUBLICIDAD
http://www.yalpublicidad.com/tutoriales