Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Datenvergleich - Datum mit Strings vergleichen (https://www.delphipraxis.net/196037-datenvergleich-datum-mit-strings-vergleichen.html)

günni0 17. Apr 2018 13:35


Datenvergleich - Datum mit Strings vergleichen
 
Ich stelle gerade sehr viel Code um, und bin dabei auf ein kleines Problem gestoßen.

Ich habe eine Spalte in der die Nodes entweder ein als String formatiertes Datum oder eine normale Zeichenkette, für gewöhnlich ein einzelnes Wort, enthalten kann.
Der Rohwert des formatierten Datums ist Int64. Wenn der Rohwert <= 0 beträgt, wird eine Zeichenkette statt einem formatiertem Datum ausgegeben.

Leider lässt sich das dann schlecht vergleichen.

Andere spalten, wo es nur Zeichenketten gibt, sind einfach zu vergleichen
Delphi-Quellcode:
case Column of
  0:
   Result := AnsiCompareText(Data1.UserName, Data2.UserName);
Aber wie sieht das aus, wenn Data1 ein formatiertes Datum ist und Data2 beispielsweise die Zeichenkette "Ungültig". Wie vergleicht man sowas?

Folgendes funktioniert beispielsweise nicht, wenn eines der beiden Daten <= 0 ist.
Delphi-Quellcode:
case Column of
  1:
   Result := CompareDateTime(UnixToDateTime(Data1.UserDate), UnixToDateTime(Data2.UserDate));

himitsu 17. Apr 2018 13:43

AW: Datenvergleich - Datum mit Strings vergleichen
 
Delphi-Quellcode:
if BeideIstDatum then
  NachDatumUmwandelnUndVergleichen
else
  AlsStringVergleichen;
Du kannst auch noch einen 3. Fall aufnehmen,
wie z.B. A ist Datum aber B nicht, dann ist A immer kleiner und B ist Datum aber A nicht, dann ist A immer größer.
Das betrifft vor allem Texte, welche mit Ziffern beginnen, die dann anders einsortiert werden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:46 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