Hallo Leute,

kennt jemand von euch eine wirklich professionelle Komponente zur Eingabe von Datum/Zeit mit Kalender? Am besten direkt mit Datenbankanbindung. Sie sollte auf jedenfall besser arbeiten als TDateTimePicker. Der Benutzer soll so schnell wie Möglich ein Datum eingeben können. Quasi 1212 -> 12.12.2010. Bisher beste alternative die ich gefunden habe ist die Komponente TDBPlannerDatePicker von TMS Software. Habt ihr noch bessere Lösungen bzw. alternativen?

Danke für eure Hilfe.

Hallo,

TMS benutze ich auch und bin damit zufrieden. Hier ein Funktion, die eine Eingabe von z.B 120684 in 12.06.1984 umwandelt. Habe ich geschrieben um auf true zu prüfen, weise result einfach das datum zu. Ist nicht sonderlich optimiert aber erfüllt den Zweck.

zusammenfalten · markieren

Delphi-Quellcode:

function TForm.datumpruefen: Boolean;
var
 gbtext, ja, mo, ta: string;
 jahr100g, jai, moi, p1, p2, tai: Integer;
begin
jahr100g :=YearOf(now)-2000;
gbtext := trim(Edit4.Text);
p1:=Posex('.',gbtext,1);

 If p1=0 then
 begin
  If Length(gbtext)<>6 then
  begin
  MessageDlg('Bei einer Eingabe des Geburtsdatums ohne Punkte(Trennzeichen), muß das Datum aus 6 Zahlen bestehen!', mtError, [mbOK], 0);
  Edit4.Clear;
  Abort;
  end;
 ta:=Copy(gbtext,0,2);
 mo:=Copy(gbtext,3,2);
 ja:=Copy(gbtext,5,2);
 end
 else
 begin
 ta:=Copy(gbtext,0,p1-1);
 p2:=Posex('.',gbtext,p1+1);
 mo:=Copy(gbtext,p1+1,p2-p1-1);
 ja:=Copy(gbtext,p2+1,10);
 end;

//tag

 if TryStrToInt(ta,tai)=true then
 tai:= StrToInt(ta)
 else
 begin
 MessageDlg('"'+ta +'" ist keine Tageszahl!''', mtError, [mbOK], 0);
 Abort;
 end;

 If (tai<1) or (tai>31) then
 begin
 MessageDlg('"'+ta+'" Die Tageszahl liegt außerhalb des Wertebereiches!', mtError, [mbOK], 0);
 Abort;
 end;

//monat

 if TryStrToInt(mo,moi)=true then
 moi:= StrToInt(mo)
 else
 begin
 MessageDlg('"'+mo +'" ist keine Monatszahlzahl!''', mtError, [mbOK], 0);
 Abort;
 end;

 If (moi<1) or (moi>12) then
 begin
 MessageDlg('"'+mo+'" Die Monatszahlzahl liegt außerhalb des Wertebereiches!', mtError, [mbOK], 0);
 Abort;
 end;

//jahr

 if TryStrToInt(ja,jai)=true then
 jai:= StrToInt(ja)
 else
 begin
 MessageDlg('"'+ja +'" ist keine Jahreszahlzahl!''', mtError, [mbOK], 0);
 Abort;
 end;

 If not((jai>=0) and (jai<=99)) and not((jai>=1850) and (jai<=2100)) then
 begin
 MessageDlg('"'+ja+'" Die Monatszahlzahl liegt außerhalb des Wertebereiches!', mtError, [mbOK], 0);
 Abort;
 end;


 If jai<=jahr100g then
 begin
  If jai<10 then
  Edit4. Text:=IntToStr(tai)+'.'+IntToStr(moi)+'.'+'200'+IntToStr(jai);

  If (jai>=10) and (jai<=jahr100g) then
  Edit4. Text:=IntToStr(tai)+'.'+IntToStr(moi)+'.'+'20'+IntToStr(jai);
 end;

 If (jai>jahr100g) and (jai<=99) then
 Edit4. Text:=IntToStr(tai)+'.'+IntToStr(moi)+'.'+'19'+IntToStr(jai);

result:= true;

end;

Olaf

Auch recht gut finde ich persönlich die Komponente TJvDateEdit aus der JVCL, ein "Überbleibsel" aus alten RxLib-Tagen. Allerdings hat diese keine DB-Anbindung, wenn ich mich recht entsinne.

Da dort die Eingabe maskiert ist, reicht es für den Anwender aus, z.B. "2111" einzugeben und die Komponente macht beim Verlassen daraus den 21.11.2010, prüft auf Wunsch die Gültigkeit des Datums etc. Ein - schlichter - Kalender zum Ausklappen für die Mausspezies ist auch dabei. Die Datumseingabe in dieser Komponente hat sich für unsere User als am besten/schnellsten herausgestellt; auch dewegen halte ich auch an ihr fest (und bin außerordentlich froh, dass die RxLib in JVCL integriert wurde und weiterentwickelt wird)

Was sie nicht kann sind solche Sonderdatumseingaben wie "+30" für "Heutiges Datum plus 30 Tage" o.ä., dafür mußt du dir was eigenes bauen - aber das war ja nicht von dir gefordert.

Viele Grüße

Udo "Kretabiker" Treichel