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
0
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta
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
