hi @ all
in einem programm muss ich mir immer denn nächsten lauf einer prozedur errechnen...
ich hab mir mal so auf die schnelle ne eigenen funktion geschrieben in der ich auf die aktuelle uhrzeit eine bestimmte anzahl von minuten hinzu addiere....
hier erst mal der code (funktioniert einwandfrei... is aber noch ausbaufähig):
Delphi-Quellcode:
function TMain_Form.fnAddTime() : String;
var
sH, sM, sS, sTime : String;
iH, iM : Integer;
begin
sTime := FormatDateTime('HH:MM:SS', Time);
sH := Copy(sTime, 1, 2);
sM := Copy(sTime, 4, 2);
sS := Copy(sTime, 7, 2);
iM := StrToInt(sM);
iM := iM + 10;
If iM >= 60 Then
Begin
iM := iM - 60;
iH := StrToInt(sH);
iH := iH + 1;
If iH = 25 Then
Begin
iH := 01;
sH := IntToStr(iH);
If iH < 10 Then
Begin
sH := '0' + sH;
End;
End;
End;
sM := IntToStr(iM);
If iM < 10 Then
Begin
sM := '0' + sM;
End;
sTime := sH + ':' + sM + ':' + sS;
fnAddTime := sTime;
end;
wollt jetzt nur mal nachfragen, obs net schon ne funktion von delphi gibt die genau das oder so ähnlich macht????
