Visual Basic - UNA FUNCION PARA OBTENER EL ULTIMO DIA DE UN MES

UNA FUNCION PARA OBTENER EL ULTIMO DIA DE UN MES

Publicado por Edwin Molina (1 intervención) el 14/12/2001 14:05:24

Necesito una función que me devuelva el último día que tiene un mes.

Lo que quiero es saber el último día de un mes cualquiera, para luego armar una fecha completa, ya que yo solo tengo el mes y el año, y necesito agregarle el ultimo día del mes para completar la fecha.

Gracias..

RE:UNA FUNCION PARA OBTENER EL ULTIMO DIA DE UN ME

Publicado por Paul Guerra (8 intervenciones) el 15/12/2001 01:26:50

function UltimoDia(byval mes as byte, byval bisiesto as boolean) as byte
select case mes
case 1,3,5,7,8,10,12
UltimoDia = 31
case 4,6,9,11
UltimoDia = 30
case 2
UltimoDia = iif(bisiesto, 29, 28)
case else
Msgbox "No conozco ese mes"
end function

Si lo que querés saber es qué día de la semana es el último de un mes cualquiera (especificando el año, claro), mandame un email y te paso una función que hice (es un poco larga para ponerla aca).