Delphi-PRAXiS - Delphi Datum/Format

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Datum/Format (https://www.delphipraxis.net/125028-datum-format.html)

Hallo Zusammen,

ich bin gerade dabei ein Tool für meinen Arbeitgeber zu schreiben,
dabei bin ich auf folgendes Problem gestoßen:

ich verwende dabei folgendes Feld

type
TChangeData = record
SchichtTyp : String[5];
Datum : TDate;
Personalnummer : String[15];
Kostenstelle : String[15];
Arbeitsplatzgruppe : String[15];
Wochenweise : Boolean;
end;

wenn ich jetzt das Datum mit dem aus einem TDateTimePicker vergleiche also

StartDateTime.Date=Datum bekomm ich immer ein false?! Obwohl beide Datumswerte gleich sind!

setzt ich

Datum=StrTODate(DateToSTR(StartDateTime.Date)) ist das Ergebnis true ?

muss das Datum im TDateTimePicker auf eine bestimmt Art und Weise formatiert sein?
Das ganze habe ich dann auch nochmal mit der JEDI (TJVDateTimePicker)Komponente
ausprobiert dabei kommt das gleiche raus!

Re: Datum/Format

Hallo Stef_One,

Herzlich Willkommen in der DP.

Im Record mal:

Delphi-Quellcode:

Datum: TDateTime;

angeben.

Bis bald Chemiker

Re: Datum/Format

Vergleich mal so:

Delphi-Quellcode:

			if trunc(StartDateTime.Date) = trunc(Datum) then

  //beide gleich

Oder verwende die Funktion CompareDate aus der Unit DateUtils.

[edit] Ein Blick in den Source der DateUtils sagt mir, dass das so wohl der richtige Weg ist, dort wird es genauso gemacht ;) [/edit]

Re: Datum/Format

ich habe jetzt alle Variabeln auf TDateTime gesetzt!

mir ist eben noch die Idee gekommen das in der TDateTime Kompo
ja auch ein Zeitwert angegeben ist und das war auch das Prob.
das die Zeit irgendwo bei 15.00 Uhr stand. Insofern ist die Idee mit dem trunc
auch richtig! :thumb:

Thx an euch Stef