ich habe die Zeitdifferenz gesondert gemessen. Sie beträgt 0 ms.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
Zeit : String;
startTime: Cardinal;
begin
timer2.Enabled:=false;
startTime := GetTickCount;
//Befehlesfolge deren Zeitdauer bestimmt werden soll
Present:= Now;
SysUtils.DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Der heutige Tag ist der ' + Dezinroem(IntToStr(Day)) + ' des '+Dezinroem(inttoStr(Month)) +'. Monates '
+ ' des Jahres ' + DezinRoem(IntToStr(Year));
SysUtils.DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := DezInRoem(inttostr(Hour))+ ' Stunden, '+DezInRoem(inttostr(Min))+' Minuten und '
+DezinRoem(inttostr(Sec))+' Sekunden und '+DezinRoem(inttostr(MSec)) +' Milisekunden';
Label4.Caption:=DezInRoem(inttostr(Hour));
Label5.caption:=DezInRoem(inttostr(Min));
Label6.caption:=DezInRoem(inttostr(Sec));
Label7.caption:=DezInRoem(inttostr(mSec));
ShowMessage('Die Routine benötigte etwa ' + DezInRoem(IntToStr(GetTickCount - startTime)) + 'ms');
timer2.Enabled:=true;
end;
Ich habe sie jedoch nur ohne Umwandlung in roem. Zahlen gemessen, da so wie oben geschrieben kein Wert ausgegeben wird.
Also ist alles so wie bislang geschrieben?
Habe ich nun den richtigen Ansatz für die Berechnung der Zeitdifferenz? Wie gibt man eigentlich eine Null in roem. Zahlen aus?
Das Problem übersteigt wohl doch meine Möglichkeiten.