Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Cómo saber si una fecha es el último día del mes - Delphi
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A