Hallo,
vor dem Dezimalpunkt: Tage,
danach Uhrzeit
trunc() schneidet den int-Wert aus einer real-zahl
Delphi-Quellcode:
procedure TUExcelForm.Button2Click(Sender: TObject);
var dT : TDateTime;
li : LongInt;
begin
dT := now; (* Anzahl der Tage seit dem 30.12.1899 *)
li := trunc(dT);
Edit1.Text := IntTostr(trunc(dT));
end;
Gruss
H.L.
[edit=sakura] [delphi]Tags gesetzt. Mfg, sakura[/edit]