1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

sekundenzahl := 437598237957190275;

tage = sekundenzahl div (60*60*24);
sekundenzahl = sekundenzahl mod (60*60*24);

stunden = sekundenzahl div (60*60);
sekundenzahl = sekundenzahl mod (60*60);

minuten = sekundenzahl div 60;
sekundenzahl = sekundenzahl mod 60;

sekunden = sekundenzahl;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure GetWindowsUpTime(var ADay, AHours, AMinutes, ASeconds: Integer);
const
  OneDay : Integer = 1000 * 60 * 60 * 24;
  OneHour : Integer = 1000 * 60 * 60;
  OneMinutes : Integer = 1000 * 60;
  OneSecond : Integer = 1000;
var
  Start : Integer;
  d, h, m, s: Integer;
begin
  Start:=GetTickCount;

  ADay:=Start div OneDay; //Tage

  d:=Start mod OneDay;
  AHours:=d div OneHour; //Stunden

  h:=d mod OneHour;
  AMinutes:=h div OneMinutes; //Minuten

  s:=h mod OneMinutes;
  ASeconds:=s div OneSecond; //Sekunden
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Tage, Stunden, Minuten, Sekunden: Integer;
begin
  GetWindowsUpTime(Tage, Stunden, Minuten, Sekunden);

  Caption:=Format('%d Tage %d Stunden %d Minuten %d Sekunden', [Tage,
                                                                Stunden,
                                                                Minuten,
                                                                Sekunden]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

Konstanten für Zeiteinheiten sind nützlich bei Zeitberechnungen.

Unit

SysUtils

Kategorie

Datum/Zeit

Delphi-Syntax:

const

  HoursPerDay   = 24;
  MinsPerHour   = 60;
  SecsPerMin    = 60;
  MSecsPerSec   = 1000;
  MinsPerDay    = HoursPerDay * MinsPerHour;
  SecsPerDay    = MinsPerDay * SecsPerMin;

  MSecsPerDay   = SecsPerDay * MSecsPerSec;

C++ Syntax:

static const Shortint HoursPerDay = 0x18;

static const Shortint MinsPerHour = 0x3c;
static const Shortint SecsPerMin = 0x3c;
static const Word MSecsPerSec = 0x3e8;
static const Word MinsPerDay = 0x5a0;
static const int SecsPerDay = 0x15180;

static const int MSecsPerDay = 0x5265c00;

Beschreibung

Diese Konstanten bieten Werte, die sich für Rechenvorgänge mit Zeitangaben eignen.