Tage,Stundem,Minuten bis Sonntag(0:00)?

[Pyr0cracker]

Hi, weiss jemand wie ich die Zeit bis Sonntag ausrechen kann?
Ich weiss, mit TDatetime(now)kriege ich die aktuelle Zeit raus, aber wie weiter?

danke schonmal,

[NeoDeluxe]

Also soweit ich mich errinere muss das mit

Code:

TimeToStr

und

Code:

DateToStr

. Sorry aber ganz genau weis ich noch net. Versuch ma damit:

Code:

Label.Caption:=TimeToStr(Time)

Muss eigentlich gehen. Aber wie gesagt, is bestimmt falsch!!! :roll:

Grüße, NeoDeluxe 8)

[Sharky]

Zitat:

Zitat von Pyr0cracker

Hi, weiss jemand wie ich die Zeit bis Sonntag ausrechen kann?
Ich weiss, mit TDatetime(now)kriege ich die aktuelle Zeit raus, aber wie weiter?

danke schonmal,

Hai,

ist eigentlich ganz leicht:

Mit DayOfWeekbekommst Du den Wochentag eines Datums raus.
Mit DekodeTime bekommst Du den Stunden, Minuten, Sekunden und mSekunden Anteil eines TDateTime wertes raus.

Jetzt nur noch die differenzen ausrechnen. -> Fertig:

Delphi-Quellcode:

Procedure ZeitBisSonntag (ref_datum : TDateTime;Var tage,stunden,minuten,sekunden : Integer);
var
 ref_tag,
 ref_stunden,
 ref_minuten,
 ref_sekunden,
 ref_mSekunden : Word;
begin
 ref_tag := DayOfWeek(ref_datum);
 tage := 7 - ref_tag;
 DecodeTime (ref_datum,ref_stunden,ref_minuten,ref_sekunden,ref_mSekunden);
 stunden := 23 - ref_stunden;
 minuten := 59 - ref_minuten;
 sekunden := 59 - ref_sekunden;
end;

Aufrufen mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 dif_tage,
 dif_stunden,
 dif_minuten,
 dif_sekunden : Integer;
begin
 ZeitBisSonntag (now,dif_tage,dif_stunden,dif_minuten,dif_sekunden);
 Label1.Caption := IntToStr (dif_tage) + ' Tage';
 Label2.Caption := IntToStr (dif_stunden) + ' Stunden';
 Label3.Caption := IntToStr (dif_minuten) + ' Minuten';
 Label4.Caption := IntToStr (dif_sekunden) + ' Sekunden'
end;

[NeoDeluxe]

Jo, wollte ich gerade sagen.... :mrgreen:
Schreib bitte den Code ins Library, wäre ganz hilfreich....

Grüße, NeoDeluxe 8)