como puedo saber el último dia del mes?
Publicado por josepf (68 intervenciones) el 30/01/2006 15:34:13
como puedo saber el último dia del mes?
gracias
gracias
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0
Private Sub Texto13_AfterUpdate()
Dim numdia As Integer
Me.Texto15 = DateSerial(Year(Date), Me.Texto13 + 1, 0) 'el ano, mes siguiente, dia 0=>ultimo dia del mes anterior
numdia = Weekday(Me.Texto15, vbMonday) 'numero de dia de la semana cpdte al ultimo del mes
Me.Texto17 = WeekdayName(numdia, , vbMonday) 'nombre del ultimo del mes
Me.Texto20 = DateSerial(Year(Date), Me.Texto13 + 1, 0) & " , " & WeekdayName(Weekday(Me.Texto15, vbMonday), , vbMonday)
End Sub