merge mail

[dec]

Hola,

¿Un ejemplo? Supongamos que tenemos la fecha de la cita de un cliente en la variable "fechaCita", en este caso de tipo "string". Es suficiente con la función "DaysBetween" para calcular si dicha fecha es un día "más" que la fecha actual:

Código Delphi [-]
 var
   fechaCita: string;
 begin
   fechaCita := '31/08/2005';
   if DaysBetween(Date, StrToDate(fechaCita)) = 1 then
     ShowMessage('Enviar un correo al cliente');
 end;