Date und Time von DateTime zusammenfügen

[kagi3624]

Hallo, ich habe zwei Variablen TDateTime. In der einen Steht die Zeit und in der anderen das Datum. Kann man irgendwie ganz einfach das zusammenfügen ohne über einen String zu parsen?

Danke! Ich habe delphi 6!

[KodeZwerg]

Neuere Delphi's haben ReplaceTime(), obs Delphi 6 hat weiß ich nicht.
Alternativ halt über DecodeDate()/DecodeTime() die Einzelwerte auslesen und mit EncodeDateTime() ein frisches erzeugen lassen.

[haentschman]

Moin...

Zitat:

Kann man irgendwie ganz einfach das zusammenfügen ohne über einen String zu parsen?

..ganz schlecht.

Zitat:

Der ganzzahlige Anteil eines TDateTime-Werts ist die Anzahl der Tage, die seit dem 30.12.1899 vergangen sind. Der Dezimalanteil gibt die Uhrzeit an.

1. Mathematik: summieren
2. DecodeDateTime / EncodeDateTime

[mikhal]

In TDateTime wird vor dem Komma das Datum und nach dem Komma die Zeit gespeichert.
Mit den Funktionen Trunc und Frac solltest du hinkommen:

Ungetestet ohne Delphi...

Delphi-Quellcode:

var myDateTime: TDateTime;
myDateTime := Trunc(Datum); // hier die Variable mit dem Datum einsetzen
myDateTime = myDateTime + Frac(Zeit); // hier die Variable mit der Zeit einsetzen

In myDateTime sollte jetzt dein zusammengesetztes Datum stehen.

Grüße
Mikhal

[Redeemer]

Klappt nicht vorm 30. Dezember 1899 (es gibt aber auch Delphi-Funktionen, die das nicht ganz richtig behandeln), ansonsten ja.

[Rolf Frei]

Zitat von kagi3624:

Hallo, ich habe zwei Variablen TDateTime. In der einen Steht die Zeit und in der anderen das Datum. Kann man irgendwie ganz einfach das zusammenfügen ohne über einen String zu parsen?

Danke! Ich habe delphi 6!

Wenn ich dich richtig verstanden habe, kanst du sie einfach addieren. TDateTime ist nichts anderes als ein Float. Das Datum wird als z.B. 10000.0 gespeichert. Wenn du nur die Zeit hast, wird sie als 0.11111 gespeichert, also die Nachkommastellen sind die Zeit und das davor das Datum.

Hast du also folgende TDateTime kannst du dies einfach addieren:

Datum: 44041.0
Zeit: 0.7380289815

Dautm + Zeit = 44041.7380289815 = 29.07.2020 17:42:45

Es kommt aber drauf an wie du die Zeit gesetzt hast. Wenn du das mit Now machst ist da auch das Datum dabei. Wenn du nur die Funktion Time genutzt hast, ist es nur die Zeit, also 0.xxx oder bei Date das Datum ohne Zeit.

[hoika]

Hallo,
var3:= DateOf(var1)+TimeOf(var2)

Wobei es auch schon oben stand (DateOf=Trunc, TimeOf=Frac).