Sekunden seit 1. Januar 0:00 1970

[Luckie]

Auf Mathias ist doch verlass. :mrgreen:

Hier die Lösung:

Delphi-Quellcode:

function Int32x32To64(const a, b: dword): int64;
begin
  Result := int64(a) * int64(b);
end;

function SecsToDateTime(secs: int64): String;
var
  ft : TFILETIME;
  st : TSYSTEMTIME;
  lt : TSYSTEMTIME;
  li : int64;
  buf1, buf2 : array[0..255] of Char;
begin
  if secs = 0 then
  begin
    result := '';
    exit;
  end;
  st.wYear             := 1970;
  st.wMonth            := 1;
  st.wDayOfWeek        := 0;
  st.wDay              := 1;
  st.wHour             := 1;
  st.wMinute           := 0;
  st.wSecond           := 0;
  st.wMilliseconds     := 0;
  SystemTimeToFileTime(st,ft);
  { Version 1 }
  {ui.QuadPart := Int32x32To64(PUserInfo11(ui11)^.usri11_last_logon, 10000000)
        + 116444736000000000;
  FileTimeToSystemTime(TFileTime(ui),st);
  FileTimeToSystemTime(TFileTime(ui),st);}
  { Version 2 }
  li := Int32x32To64(secs, 10000000) + 116444736000000000;
  ft.dwLowDateTime := DWORD(li);
  ft.dwHighDateTime := li shr 32;
  FileTimeToSystemTime(TFileTime(ft),st);
  SystemTimeToTzSpecificLocalTime(nil, st, lt);
  GetTimeFormat(LOCALE_USER_DEFAULT, TIME_FORCE24HOURFORMAT, @lt, nil, buf1, sizeof(buf1));
  GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, @lt, nil, buf2, sizeof(buf2));
  result := String(buf2)+' / '+String(buf1);
end;

Man, wen ich so langsam schon alles erwähnen muß: Mathias als lebender Debugger, Danial als Tester und Marcel van Brakel als Tester und Helfer. Wenn das so weiter geht, ist die Aboutbox bald größer als das Programmfenster. :mrgreen:

[nailor]

Mir war grad langweilig, und ich wusste nix zu machen (was für eine Verkettung unglücklicher Zwischenfälle :wink: ), also hab ich mal einen Sekunden-Seit-1970-In-Datum-Umrechner gemacht:

Delphi-Quellcode:

var
  input, z, x, a, b, c, d, e, Tag, Monat, Jahr: LongWord;
  {Input sind die Sekunden seit 1970, der Rest Hilfsvariablen bzw. das Ergebnis}
begin
{Den Quelltext, den ich angepasst habe, war in Turbo Pascal
geschrieben (hab ich nie gemacht) aber anscheinend gabs da noch
kein div oder so was. Im Original waren sogar noch alle Werte
Extended und die Befahle INT(X) was einen Extendend zurückgibt.
Da kann man also noch was verbessern.}

{Das Programm scheint zu klappen, nur wenn man die Zahlen zu groß wählt
(so um das Jahr 2106), dann wird es falsch. Auch negative Zahlen sind
nicht zu empfehlen}

input := strtoint64(edit1.Text);

z := Trunc(input / (60 * 60 * 24) + 0.5 + 2440587.5);
x := Trunc((z - 1867216.25) / 36524.25);

a := z + x + 1 - Trunc(x / 4);
b := a + 1524;
c := Trunc((b - 122.1) / 365.25);
d := Trunc(365.25 * c);
e := Trunc((b - d) / 30.6001);

Tag := b - d - Trunc(30.6001 * e);

if e < 14 then
  Monat := e - 1
else
  Monat := e - 13;

if monat > 2 then
  Jahr := c - 4716
else
  Jahr := c - 4715;

Edit2.Text := inttostr(Tag) + '. ' + inttostr(Monat) + '. ' + inttostr(Jahr);
end;

[Luckie]

danke für deien Mühe, aber wie ich schon geschrieben, habe, ich habe schon eine lösung und die halte ich für eleganter, als deine.