25/12/2002, 11:45
|
| | | Fecha de Ingreso: diciembre-2002
Mensajes: 12
Antigüedad: 22 años, 4 meses Puntos: 0 | |
| generar ultimo dia de mes
Hola, este codigo me deberia generar el ultimo dia de cada mes, sin embargo, me genera como ultimo dia otro valor distinto, ¿Como lo corrigo sobre este mismo codigo?
Dim dNextStart
If CInt(intMonthNum) = 12 Then
dNextStart = CDate( "1/1/" & intYearNum)
Else
dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum)
End If
GetLastDay = Day(dNextStart - 1)
Response.Write(GetLastDay) |