Visual Basic - Combo box(Fecha)

Life is soft - evento anual de software empresarial
   
Vista:

Combo box(Fecha)

Publicado por Emilia (4 intervenciones) el 23/06/2009 03:18:47
Necesito que al cargar el formulario el combo box que tengo asignado para que me muestre el mes, este me muestre el mes actual pero no en numero de mes , sino en palabras por ejemplo : Enero , Junio, etc.
desde ya gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Format

Publicado por Aquiles (10 intervenciones) el 23/06/2009 07:45:29
'( 1 ) función format
MsgBox StrConv(Format(Date, "mmmm"), vbProperCase)

'( 2 ) usuario
Dim meses As Variant
meses = Array("", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
MsgBox meses(Month(Date))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Combo box(Fecha)

Publicado por juan Carlos (14 intervenciones) el 27/06/2009 09:04:01
hola Emilia intenta de esta forma
este codigo llena el combo1 con todos los meses

Sub ver()
combo1.AddItem " Enero "
combo1.AddItem " Febrero "
combo1.AddItem " Marzo "
combo1.AddItem " Abril "
combo1.AddItem " Mayo "
combo1.AddItem " Junio "
combo1.AddItem " Julio "
combo1.AddItem " Agosto "
combo1.AddItem " Septiembre "
combo1.AddItem " Octubre "
combo1.AddItem " Noviembre "
combo1.AddItem " Diciembre "
End Sub

Private Sub Form_Load()
ver
End Sub

--------------------------------------------------------------------------------
este pone el me actual en el combo1

Private Sub Form_Load()
vermesactual
End Sub

Sub vermesactual()
If Month = 1 Then combo1.AddItem " Enero "
If Month = 2 Then combo1.AddItem " Febrero "
If Month = 3 Then combo1.AddItem " Marzo "
If Month = 4 Then combo1.AddItem " Abril "
If Month = 5 Then combo1.AddItem " Mayo "
If Month = 6 Then combo1.AddItem " Junio "
If Month = 7 Then combo1.AddItem " Julio "
If Month = 8 Then combo1.AddItem " Agosto "
If Month = 9 Then combo1.AddItem " Septiembre "
If Month = 10 Then combo1.AddItem " Octubre "
If Month = 11 Then combo1.AddItem " Noviembre "
If Month = 12 Then combo1.AddItem " Diciembre "
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar