Verbleibende Zeit

[TJDD]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var aStd, aMin, aSec, aMsec : word;
    Buffer_Min, Buffer_Std, Buffer_sec : integer;
begin
  DecodeTime(Time, aStd, aMin, aSec, aMsec);
  if Min = 0 then
    begin
      Buffer_Min := 60 - aMin;
      Buffer_Std := Std - aStd - 1;
    end
  else if Min < aMin then
    begin
      Buffer_Min := 59 - aMin + Min;
      Buffer_Std := Std - aStd - 1;
    end
  else
    begin
      Buffer_Min := Min - (aMin + 1);
      Buffer_Std := Std - aStd;
    end;
  if Std < aStd then
    Buffer_Std := 23 - aStd + Std;
  if (Std = aStd) and (Min < aMin )then
     Buffer_Std := 23 - aStd + Std;
  if (Std = aStd) and (Min > aMin )then
     Buffer_Std := 0;
  Buffer_Sec := 60 - aSec;
  lbTime.Caption := Timetostr(Time) + ' Uhr';
  lbVerbleib.Caption := 'Verbleibene Zeit noch : ' + inttostr(Buffer_Std) + ' Std und ' + inttostr(Buffer_Min) + ' Min und ' + inttostr(Buffer_Sec) + ' Sec';
end;

Ein weiters Problem das ich habe ist eine Anzeige der verbleibenden Zeit

Also Fehler ist der das ich immer die falsche Zeit angezeigt bekomme

Das Programm soll mir max (24 STD) runterzählen


Das heist ich teste die aktuelle zeit mit der eingegeben Uhrzeit und rechen den verbleib aus

Fehler ist nur bei der anzeige den der rest funzt auf die sec genau

Danke

[edit=Sharky]Quote-Tags durch Delphi-Tags ersetzt. Mfg, Sharky[/edit]