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

[Sharky]

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;