ultimo dia de mes
a
19 de Junio del 2003
¿sabe alguien una funcion que devuelva el ultimo dia del mes?
Eduardo
19 de Junio del 2003
Function UltimoDiaMes(Mes as integer, Año as integer) as integer
if Mes<1 or Mes>12 then exit function
UltimoDiaMes = 30 - (Mes = 4 Or Mes = 6 Or Mes = 9 Or Mes = 11) + (Mes = 2) * (2 + (Año Mod 4 = 0))
end function
private sub Form_Load()
msgbox UltimoDiaMes(4,2000)
end sub
Espero que te sirva esta función.
if Mes<1 or Mes>12 then exit function
UltimoDiaMes = 30 - (Mes = 4 Or Mes = 6 Or Mes = 9 Or Mes = 11) + (Mes = 2) * (2 + (Año Mod 4 = 0))
end function
private sub Form_Load()
msgbox UltimoDiaMes(4,2000)
end sub
Espero que te sirva esta función.
a
19 de Junio del 2003
una cosa, ¿esto que me saca el ultimo dia de este mes? es que yo quiero que me saque de la fecha que le pase yo.