Sry. Codes für die Radiobutton reiche ich hiermit nach:
1)Tag / Monat / Jahr
Delphi-Quellcode:
procedure TForm5.RadioButton1Click(Sender: TObject);
begin
Form3.Statusbar1.Panels[4].Text:='Datum: '+FormatDateTime('dd.mm.yyyy', Now);
end;
2)Monat / Tag / Jahr
Delphi-Quellcode:
procedure TForm5.RadioButton1Click(Sender: TObject);
begin
Form3.Statusbar1.Panels[4].Text:='Datum: '+FormatDateTime('mm.dd.yyyy', Now);
end;