Lenguaje de programación Borland Delphi
La función devolverá TRUE si la fecha dada es el último día del mes:
function EsFinDeMes(const QueDia: TDateTime ): boolean;
var
Nada, ElDia: word;
begin
{Hallamos el dia del mes de la fecha +1}
DecodeDate ( QueDia + 1, Nada, Nada, ElDia );
{Si es 1, entonces es fin de mes}
Result := (ElDia = 1);
end;
Ejemplo de llamada a la función:
if EsFinDeMes(Now) then
ShowMessage( '¡Hoy es fin de mes!');
Publicado el: 2003-09-12