Ver Mensaje Individual
  #3  
Antiguo 22-10-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Puedes restar las fechas, directamente, o bien usar una función como "DaysBetween":

Código Delphi [-]
uses
  DateUtils;

procedure TForm2.Button1Click(Sender: TObject);
var
  diasDiferencia: integer;
begin
  diasDiferencia := Trunc(
    DateTimePicker2.Date - DateTimePicker1.Date
  );
  // O también
  diasDiferencia := DateUtils.DaysBetween(
    DateTimePicker2.Date, DateTimePicker1.Date
  );
  ShowMessage(Format(
    'Hay %d días de diferencia', [diasDiferencia]
  ));
end;

Si buscas en los foros por "restar fechas" obtendrás más información.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita