Aufrechnen von Zeit

[Megabyte]

Hallo zusammen

habe ein folgender code:

Code:

procedure TForm1.Table1AfterInsert(DataSet:tDataset);
begin
Table1['Zeit']:=Time;
end;

mit diesem wird die aktuelle Zeit in die DB geschrieben.Wie kann ich nun
Delphi dazu zu bringen,dass es die aktuelle Zeit plus 1 Stunde aufrechnet?
(zBsp jetzt ist 18:15 Eintrag in DB = 19:15)
Also eine Stunde später als wirklich ist.
Bin sicher es gibt irgend eine Funktion für so etwas.

Danke für eure Hilfe.

Gruss Megabyte :coder:

[jbg]

Delphi-Quellcode:

Table1['Zeit']:=Time + EncodeTime(1, 0, 0, 0);

[sakura]

oder Du erstellst Dir ein paar Konstanten:

Delphi-Quellcode:

const
  c1Day = 1;
  c1Hour = c1Day / 24;
  c1Minute = c1Hour / 60;
  c1Second = c1Minute / 60;
...
Table1['Zeit']:=Time + c1Hour;