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...

markieren

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).

Date und Time von DateTime zusammenfügen

Date und Time von DateTime zusammenfügen

AW: Date und Time von DateTime zusammenfügen

AW: Date und Time von DateTime zusammenfügen

AW: Date und Time von DateTime zusammenfügen

AW: Date und Time von DateTime zusammenfügen

AW: Date und Time von DateTime zusammenfügen

AW: Date und Time von DateTime zusammenfügen

Forumregeln

kagi3624 Registriert seit: 3. Feb 2020 138 Beiträge Delphi 6 Enterprise	#1 Date und Time von DateTime zusammenfügen 29. Jul 2020, 13:15 Delphi-Version: 6 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! Geändert von kagi3624 (29. Jul 2020 um 13:17 Uhr)
	Zitat

KodeZwerg Registriert seit: 1. Feb 2018 3.685 Beiträge Delphi 11 Alexandria	#2 AW: Date und Time von DateTime zusammenfügen 29. Jul 2020, 13:26 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. Gruß vom KodeZwerg
	Zitat

Redeemer Registriert seit: 19. Jan 2009 Ort: Kirchlinteln (LK Verden) 1.017 Beiträge Delphi 2009 Professional	#5 AW: Date und Time von DateTime zusammenfügen 29. Jul 2020, 14:09 Klappt nicht vorm 30. Dezember 1899 (es gibt aber auch Delphi-Funktionen, die das nicht ganz richtig behandeln), ansonsten ja. Janni 2005 PE, 2009 PA, XE2 PA
	Zitat

hoika Registriert seit: 5. Jul 2006 Ort: Magdeburg 8.270 Beiträge Delphi 10.4 Sydney	#7 AW: Date und Time von DateTime zusammenfügen 29. Jul 2020, 18:25 Hallo, var3:= DateOf(var1)+TimeOf(var2) Wobei es auch schon oben stand (DateOf=Trunc, TimeOf=Frac). Heiko
	Zitat