Zeitberechnung

[Andidreas]

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????