HOME
Die Hektodezimaluhr
Auf der Uhr ist es 23:15 in Realzeit.
Die Hektodezimaluhr, wie der Name schon sagt, ist die Zeit in 100 DezimalStunden, 100 DezimalMinuten und 100 DezimalSekunden unterteilt. 100 Hektodezimalsekunden sind eine Hektodezimalminute (100Ds = 1Dm, 100Dm = 1Dh).
Sinn der Hektodezimalzeit ist es, eine Umrechnung von Tage in Minuten oder Sekunden in Stunden zu vereinfachen. Das Umrechnen in das 60er bzw 24er Zahlensystem entfällt.
Download: HektoDezimaluhr.exe
Download: SourceCode HektoDezimalUhr.zip
Umrechnung in Dezimalzeit
| Realzeit |
DezimalStunde |
| 00:00 |
00:00 |
| 01:00 |
04:17 |
| 02:00 |
08:33 |
| 03:00 |
12:50 |
| 04:00 |
16:67 |
| 05:00 |
20:83 |
| 06:00 |
25:00 |
| 07:00 |
29:17 |
| 08:00 |
33:33 |
| 09:00 |
37:50 |
| 10:00 |
41:67 |
| 11:00 |
45:83 |
| 12:00 |
50:00 |
| 13:00 |
54:17 |
| 14:00 |
58:33 |
| 15:00 |
62:50 |
| 16:00 |
66:66 |
| 17:00 |
70:83 |
| 18:00 |
75:00 |
| 19:00 |
79:17 |
| 20:00 |
83:33 |
| 21:00 |
87:50 |
| 22:00 |
91:66 |
| 23:00 |
95:83 |
unit HektoDezimalUhr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,
DateUtils ;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
MilliSecOfDay = 24*60*60*1000;
DezSecOfDay = 100*100*100;
var
MilliSec, DezSec : Int64;
Dh,Dm,Ds : Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MilliSec := MilliSecondOfTheDay(Now);
DezSec:= MilliSec * DezSecOfDay div MilliSecOfDay;
Ds := DezSec mod 100; // DezSekunden
DezSec:= DezSec div 100;
Dm := DezSec mod 100; // DezMinuten
Dh := DezSec div 100; // DezStunden
label1.Caption := Format('%2d:%2d:%2d', [Dh, Dm, Ds])
end;
end.
Zuletzt geändert am 20.07.2009