title image


Smiley Re: Noch eine Frage ?
Hallo Webster



ich würde es mit D6 wie folgt machen:



procedure TMainForm.Edit12Exit(Sender: TObject);

var d : TdateTime;

begin

if TryStrToDate(Edit12.Text, d)

then Edit12.Text := FormatDateTime('dd.mm.yyyy', d)

else showmessage('Leider falsches Datum');

end;



Gruß Klaus
www.RaabeSoftware.de.vu "Jede Lösung eines Problems ist ein neues Problem." Johann W. von Goethe

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: