AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Date und Time von DateTime zusammenfügen

Date und Time von DateTime zusammenfügen

Ein Thema von kagi3624 · begonnen am 29. Jul 2020 · letzter Beitrag vom 29. Jul 2020
Antwort Antwort
kagi3624

Registriert seit: 3. Feb 2020
138 Beiträge
 
Delphi 6 Enterprise
 
#1

Date und Time von DateTime zusammenfügen

  Alt 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)
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Date und Time von DateTime zusammenfügen

  Alt 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
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman
Online

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.322 Beiträge
 
Delphi 12 Athens
 
#3

AW: Date und Time von DateTime zusammenfügen

  Alt 29. Jul 2020, 13:27
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
  Mit Zitat antworten Zitat
Benutzerbild von mikhal
mikhal

Registriert seit: 11. Sep 2003
Ort: Linz am Rhein
796 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Date und Time von DateTime zusammenfügen

  Alt 29. Jul 2020, 13:30
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
Michael Kraemer
Computer erleichtern die Arbeit...
...und die Erde ist eine Scheibe!
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.026 Beiträge
 
Delphi 2009 Professional
 
#5

AW: Date und Time von DateTime zusammenfügen

  Alt 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
  Mit Zitat antworten Zitat
Rolf Frei

Registriert seit: 19. Jun 2006
632 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Date und Time von DateTime zusammenfügen

  Alt 29. Jul 2020, 16:44
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.

Geändert von Rolf Frei (29. Jul 2020 um 16:49 Uhr)
  Mit Zitat antworten 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

  Alt 29. Jul 2020, 18:25
Hallo,
var3:= DateOf(var1)+TimeOf(var2)

Wobei es auch schon oben stand (DateOf=Trunc, TimeOf=Frac).
Heiko
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz