Sobre el Calendario de Visual Basic 6.0???

[Ufmsystem]

Soy Novata En Vbasic Pero Tengo Encargado Hacer Lo Siguiente:

En Un Formulario Poner Un Control Calendario Y Ademas Un Cuadro De Texto,y Que Cuando Le Haga Un Clic A Una Fecha Del Calendario,me Salga En El Cuadro De Texto Si Es Lunes,martes,miercoles,.....domingo. Es Urgente!!!!!!!!!!!!!!

Estoy Buscando Mas Informacion Al Respecto Pero Su Ayuda Me Servira De Mucho.

Atte

.........................................ufmsystem .....................................

[vbx3m]

Este codigo te debe servir, solo agrega el control MonthView

Dim dia As String
Dim mes As String

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Select Case MonthView1.DayOfWeek
Case 1
dia = "Domingo"
Case 2
dia = "Lunes"
Case 3
dia = "Martes"
Case 4
dia = "Miercoles"
Case 5
dia = "Jueves"
Case 6
dia = "Viernes"
Case 7
dia = "Sabado"
End Select
Select Case MonthView1.Month
Case 1
mes = "Enero"
Case 2
mes = "Febrero"
Case 3
mes = "Marzo"
Case 4
mes = "Abril"
Case 5
mes = "Mayo"
Case 6
mes = "Junio"
Case 7
mes = "Julio"
Case 8
mes = "Agosto"
Case 9
mes = "Septiembre"
Case 10
mes = "Octubre"
Case 11
mes = "Noviembre"
Case 12
mes = "Diciembre"
End Select
Text1.Text = dia & ", " & MonthView1.Day & " de " & mes & " del " & MonthView1.Year
End Sub

Pruebalo... Espero que te sirva...

[lic_dahool]

Una forma más sencilla de lograr lo que necesitas usando el control MonthView es:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

Text1.Text = Format(DateClicked, "dddd, dd \de mmmm \del yyyy")

End Sub

con 3 'd' o 3 'm' obtienes la forma abreviada, con 4 el texto completo y con 2 el número.

Saludos.