Prüfen ob Datum existiert

Jakane · Beiträge: 257

Guten Morgen lieber Delphi-Helfer

ich möchte prüfen ob ein Datum existiert oder nicht.
mein grober Filter weiss zwar das es keinen 32.April geben kann, aber wenn ich den soweit ausbaue das er auch weiss das es keinen 31. April gibt, wird er relativ gross... wenn dann noch Schaltjahre mit rein sollen...

Kenn da jemand einen einfacheren Weg? :)

Moderiert von Narses: Topic aus Dateizugriff verschoben am Fr 10.06.2011 um 00:30

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Guckt dir mal die Funktion

markieren

Delphi-Quelltext

1:	IsValidDate

in der Unit DateUtils an.

Jakane · Beiträge: 257

Datei nicht gefunden

hab keine DateUtils.dcu

jaenicke · Verfasst: Do 09.06.11 10:39

Dann musst du eine sehr sehr alte Delphiversion haben. Da wäre es schon sinnvoll, wenn du das in dein Profil schreibst, damit man das bei Antworten gleich weiß... da ist so viel dazugekommen, was du dann alles nicht hast...
Welche Version hast du denn?

Bliebe noch der Versuch es in einen Datumswert umzuwandeln und wenn es nicht geht, ist es keins.

Jakane · Beiträge: 257

Ich habe Delphi 5

jasocul · Verfasst: Do 09.06.11 16:15

Bin jetzt nicht ganz sicher, aber gab es früher nicht bei den Jedi-Komponenten eine entsprechende Unit?
Ich meine, dass die JvDateUtils hieß. Also Jedi installieren und weiterarbeiten :wink:

jaenicke · Verfasst: Do 09.06.11 16:41

Wobei die neuen JVCL/JCL Versionen nicht mehr mit Delphi 5 funktionieren, der Support wurde mit JVCL Version 3.37 eingestellt. Du müsstest dir also diese alte Version holen, damit es geht.

Jakane · Beiträge: 257

An dem PC an dem ich arbeite darf ich nichts installieren

Wie prüf ich ich über StrToDate() ohne das ich eine Fehlermeldung bekomme?

jasocul · Verfasst: Fr 10.06.11 09:44

Ich habe mal bei Tante Suche bei Google

GÜLTIGES DATUM DELPHI eingegeben.
Da stößt man mal wieder ganz schnell auf die Schweizer.

Martok · Verfasst: Fr 10.06.11 11:57

Soweit waren wir schonmal

jaenicke hat folgendes geschrieben :

Bliebe noch der Versuch es in einen Datumswert umzuwandeln und wenn es nicht geht, ist es keins.

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

jasocul · Verfasst: Fr 10.06.11 12:56

Oh man, dann schreibt es doch selbst. Ist nun wirklich nicht kompliziert.
Pseucode:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Funktion IstGueltigesDatum(Datum) : Boolean;
Datum in Tag, Monat und Jahr aufteilen

falls 31er-Monat und Tag zwischen 1 und 31, dann Rückgabe = True
sonst
  falls 30er Monat und Tag zwischen 1 und 30, dann Rückgabe = True
  sonst
    falls Monat = 2 und Tag zwischen 1 und 28, dann Rückgabe = True
    sonst
      Falls Monat = 2 und Tag = 29 und Schaltjahr, dann Rückgabe = True
      sonst
        Rückgabe = False

Für das Schaltjahr natürlich noch eine kleine Funktion schreiben.

Kann man auch sehr hübsch als Case-Struktur programmieren.

SpaghettiCodix · Verfasst: Mi 06.07.11 13:09

Jakane hat folgendes geschrieben :

ich möchte prüfen ob ein Datum existiert oder nicht.

vielleicht hilft Dir das hier weiter:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function IstString_einDatum(const S: string): Boolean;
begin 
  Result := True; 
  try 
    StrToDate(S); 
  except 
    Result := False; 
  end; 
end;

Wenn hier der String kein datum ist,gibt die Function ein False zurück.

markieren

Delphi-Quelltext

1:
2:
3:

If IstString_einDatum('32.01.2011') then Label1.caption:='es ist ein Datum'
else
Label1.caption:='es ist KEIN Datum';

Moderiert von Narses: Quote- durch Delphi-Tags ersetzt, Zitat gekürzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme