Zeit eines TDateTime Wertes ändern

[uwewo]

Guten Morgen,

stehe derzeit anscheinend etwas auf dem Schlauch.

Ich führe Berechnungen mit TDateTime Werten aus, dabei erhalte ich ein neues Datum und eine Uhrzeit. Nun besteht die Möglichkeit, dass die Uhrzeit in einem Zeitraum liegt, den ich nicht möchte. Kann man die Zeit eines TDateTime Wertes auf einfache Weise ändern, ohne ihn mit z.B. mit DecodeDate zu zerlegen und die Uhrzeit neu zusetzen?

[mkinzler]

Ja. Ein TDateTime ist ein Double, wobei der Zeitanteil im Nachkommabereich liegt (in Sekunden ab Mitternacht)

[uwewo]

Zitat:

Zitat von mkinzler

Ja. Ein TDateTime ist ein Double, wobei der Zeitanteil im Nachkommabereich liegt (in Sekunden ab Mitternacht)

soweit schon klar.
Ich habe z.B. einen Wert von "05.04.2007 11:13:34" und möchte diesen auf "05.04.2007 14:00:00" setzen.

Delphi-Quellcode:

Frac(MyDate) := 14/24;

funktioniert ja logischerweise nicht.

Da mein TDateTime eine Variable ist, und ich nur die Uhrzeit ändern möchte, muss ich also doch das Datum mit DecodeDate auslesen und die Zeit neu setzen, Oder?

[mkinzler]

Delphi-Quellcode:

Mydate = Trunc(Mydate) + 0.50400;

[Hawkeye219]

Hallo,

so wird es etwas klarer:

Delphi-Quellcode:

var
  DT : TDateTime;
begin
  DT := StrToDateTime('05.04.2007 11:13:34');
  DT := Int(DT) + 14 / HoursPerDay;
  ShowMessage (DateTimeToStr(DT));
end;

Gruß Hawkeye

[uwewo]

Ich wusste doch das ich auf dem Schlauch stehe, führe jetzt chon seit 8 Tagen Zeitberechnungen aus und irgendwann, ist wahrscheinlich dann der Kopf voll.

Herzlichen Dank.

[hoika]

Hallo,

Berechnungen mit TDateTime sind auf jeden Fall
mit Vorsicht zu geniessen (Rundungsfehler).

Trunc kann u.U. falsche Werte erzeugen.
Besser ist DateOf von jedi.

Ich glaueb eine Bsp. watr mal
08:00+08:00+08:00+08:00+08:00+08:00

08:00 = 0.333333 Periode

es muesste ja eigentlich 2 rauskommen (2 Tage),
bei mit kam damals aber 1 raus.



Heiko

[TStringlist]

Warum nicht gleich die RecodeTime-Routine?

Delphi-Quellcode:

yourDateTime := RecodeTime(yourDateTime,14,0,0,0);

PS. Event. kann es bei einem Projekt mit Datums-Daten auch ganz nützlich sein, sich davor erst mal noch alle diesbezüglichen Routinen und Konstanten in der DateUtils-Unit anzusehen :wink:

[uwewo]

Zitat:

Zitat von TStringlist

Warum nicht gleich die RecodeTime-Routine?

Ok, muss zugeben kannte ich noch nicht. Allerdings gibt es die Funktion nicht in allen Versionen :wink:

[TeronG]

Zitat:

Zitat von mkinzler

(in Sekunden ab Mitternacht)

:gruebel: die formulierung find ich n bissl irreführend ... "Kommatage" ist da evtl. besser.
Da könnte man fast meinen .5 sind 5 Sekunden nach mitternacht und nicht 12:00 mittag ^^

(Sekunde währe ein 86400stel)