DBR Delphi-Ecke

// Mit dem folgenden Code addiert man Sekunden zu einer
// Datums- und Zeitangabe.
// Querverweis: Tage, Monate, Wochen, Jahre zu einem Datum addieren

// Getestet mit D4 unter XP

function plusSec(d: TDateTime; Sec: integer): TDateTime; 
begin 
  result := d + Sec / SecsPerDay; 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
var d: TDatetime; 
begin 
  d := strtodatetime('28.02.2003 23:59:59'); 
  d := plusSec(d, 1); 
  showmessage(formatdatetime('dd.mm.yyyy hh:nn:ss', d)); 
end;