Zeitdifferenz "ordentlich" formatiert darstellen

[DeddyH]

100 Punkte

[CJ_lux]

so, jetzt sag mir bitta was da falsch ist? AThen := EncodeTime(StrToInt(Hours), StrToInt(Mins), StrToInt(Secs), 0, 0, 0);

der unterstrichene teil soll falsch sein

[DeddyH]

EncodeTime erwartet 4 Parameter, Du hast 6.

[CJ_lux]

ich hab folgendes:

Delphi-Quellcode:

function ZeitBis(Hours, Mins: String): TTime;
var
  AThen: TDateTime;
  AHours, AMinutes,ASeconds: Word;
begin
  AThen := EncodeTime(StrToInt(Hours), StrToInt(Mins), StrToInt(Secs), 0, 0);

  ASeconds := SecondsBetween (Time, AThen);
  AMinutes := MinutesBetween(Time, AThen);
  AHours := AMinutes div 60;
  Dec(AMinutes, AHours * 60);

  Result := EncodeTime(AHours, AMinutes,ASeconds, 0, 0, 0);
end;

fehler(?)

1. StrToInt(Secs) --> Secs soll declariert werden (?!)
2. ja, und wie du schon sagtest... zuviele Parameter

[DeddyH]

Irgenwie fehlt mir da ein Funktionsparameter.

Delphi-Quellcode:

function ZeitBis(Hours, Mins, Secs{fehlte}: String): TTime;
var
  AThen: TDateTime;
  AHours, AMinutes,ASeconds: Word;
begin
  AThen := EncodeTime(StrToInt(Hours), StrToInt(Mins), StrToInt(Secs), 0); //4 Parameter

  ASeconds := SecondsBetween (Time, AThen);
  AMinutes := MinutesBetween(Time, AThen);
  AHours := AMinutes div 60;
  Dec(AMinutes, AHours * 60);

  Result := EncodeTime(AHours, AMinutes,ASeconds, 0);  //4 Parameter
end;

[CJ_lux]

oh...hatte ich wohl übersehn danke!

und dan...

jetzt kackt der programm immer wieser ab (Fehlermeldung)

und nach dem "abkacken" markiert delphi immer diese Zeile blau  Result := EncodeTime(AHours, AMinutes,ASeconds, 0);
doch beim Compilieren gibt es keine Fehler..

(sorry wenn ich so langsam nerve )

[mkinzler]

Häng den Screenshot mal hier an

[CJ_lux]

Zitat von mkinzler:

Häng den Screenshot mal hier an

http://img166.imageshack.us/img166/6...nnt1al4.th.jpg

[mkinzler]

Hier im Forum!

[DeddyH]

Machen wir das nicht viel zu kompliziert? Es würde doch reichen, die eingegebene Zeit einmalig zu wandeln und dann in z.B. einem Timer-Event zu vergleichen und auszugeben.