Combo con Fechas

[ValentinoMolinari]

Hola a Todos, quisiera saber si me podrian ayudar nuevamente
Mi problema es el siguiente, tengo un combo al cual le cargo todos los meses de año...
combo1.additems "Enero"
combo1.additems "Febrero"
combo1.additems "Marzo"
combo1.additems "Abril
combo1.additems "Mayo"
combo1.additems "Junio" 'y asi....

mi inquietud es como hacer que de acuerdo al mes que seleccione me devuelva el primer y el último día que contiene ese mes, o sea....
si elijo enero que me devuelva
01/01/2009 al 31/01/2009
es para hacer una consulta por rango de fechas sin que el usuario ingrese manualmente la fecha desde hasta...
desde ya muchas gracias a todos y espero su pronta respuesta

mi idea era usar valores fijos...o sea que si elije Enero que el sistema tome solo 01/01/2009 al 31/01/2009
pero si lo hago de esa manera voy a tener problemas en el mes de Febrero si el año es biciesto....

muchas gracias de nuevo

[Avellaneda]

Hola, la función DateSerial puede devolver el último día del mes según el año (bisiesto o no).

Código vb:

Private Sub Combo1_Click()
Dim Mes As Integer, Pdia As Date, Udia As Date
Mes = Combo1.ListIndex + 1
Pdia = "01/" & Format(Mes, "00") & "/" & Year(Date)
Udia = DateSerial(Year(Pdia), Month(Pdia) + 1, 0)
MsgBox Pdia & " - " & Udia
End Sub
 

En este caso, devolvería la fecha del último día del mes indicado del año en curso, para cualquier otro año, cambia Year(Date) por Year(unafecha).

Saludos