Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+