StringToDate Problem

[HolgerX]

Zitat von Bernhard Geyer:

Zitat von HolgerX:

...(FormatDate mit z.B. immer YYYY-MM-DD) oder direkt das ISO Format zu verwenden.

YYYY-MM-DD ist ja schon das (erweiterte/lange) ISO-Format (https://de.wikipedia.org/wiki/ISO_8601

( )

@Gee21

Du solltes nicht deine 'Prüfroutine' umschreiben, sondern die Stelle, an der Du die Text-Datei schreibst!

Dort solltest du das Datum nicht einfach mit DateToStr in deine Textdatei schreiben, sondern mit FormatDate bei Verwendung von z.B. 'YYYY-MM-DD' als Formatstring.

Dann haben alle Datumsangaben immer das gleiche Format, egal welche Sprache auf dem QuellPC eingestellt ist!

[zeras]

Zitat von gee21:

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if isdate(s)=false then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

Auch sollte nicht "=false" schreiben, sondern

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

[/QUOTE]

[HolgerX]

Hmm..

dann aber auch gleich statt

Zitat von zeras:

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

das 2. =false auch entfernen

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if not(server.Strings[i]='Nothing') then cat1.add(server.Strings[i]);
      end;

    end;

[p80286]

Das Problem würde nicht existieren, würde das sog. ISO-Datum (YYYY-MM-DD) verwendet. Das ist allerdings eine Norm aus dem letzten Jahrhundert.

Gruß
K-H

[himitsu]

Aus dem letzten Jahrtausend, aber sie wird vermutlich auch noch die nächsten 7982 Jahre funktionieren, oder bis zur nächsten Zombieapokalypse.

[sko1]

Wenn man die Textdatei selbst erstellt und diese dann selbst verarbeitet, kann man doch jedes x-beliebige Format nehmen?

FormatDateTime(meinDatum,'YYYYMMDD')

und dann entsprechend "auseinandernehmen', Zeichen 1-4=Datum, 5 und 6 = Monat, 7 und 8 = Tag

und sortieren kann man so ein Format auch wunderbar und dann ist egal welche internationalen Datumsformate da existieren und ggf. verändert werden.

Ciao
Stefan