DevProject Manager (Projektverwaltung) 1.7.8

[burgian]

@Gaijin : Danke für den Tip !

Die Funktion wandelt time_t nach TDateTime :

Delphi-Quellcode:

function time_tToDateTime(vtime_t: Integer): TDateTime;
const
cDeltaDate : Integer = 25569; // 1970/01/01
cSecPerMint : Integer = 60;
cSecPerHour : Integer = (60*60);
cSecPerDay : Integer = (60*60*24);
var
hh, mm, ss : Word;
n : Integer;
begin
{// GMT=+8,????+8??(??)}
vtime_t := vtime_t + cSecPerHour*8 ;
n := vtime_t mod cSecPerDay;
hh := n div cSecPerHour;
n := n mod cSecPerHour;
mm := n div cSecPerMint;
ss := n mod cSecPerMint;
Result := (vtime_t div cSecPerDay) +
cDeltaDate + EncodeTime(hh, mm, ss, 0);
end;

Quelle : http://www.codesky.net/article/doc/2...1394552356.htm

Gruß, burgian.