Delphi - Como pegar dia, mês e ano de uma data para edit

Crie um projeto File > New > VCL Forms Application - Delphi Na paleta Standard 1 Edit 1 Panel 1 RadioGroup Na paleta Additional 1 Bitbtn Na propriedade do form Height: 267 Width: 233 position:poDesktopCenter Na propriedade do seu RadioGroup1 Align: : alBottom Items: Dia Mês Ano Columns : 3 ItemIndex: 0 No evento do seu form onShow procedure TForm1.FormShow(Sender: TObject); begin panel1.Caption:=datetostr(date); end; No evento do BitBtn1 OnClick procedure TForm1.BitBtn1Click(Sender: TObject); var data:Tdate; begin data:=strtodate(panel1.Caption); case RadioGroup1.ItemIndex of 0:edit1.Text:=formatdatetime('dd', data); 1:edit1.Text:=formatdatetime('mm', data); 2:edit1.Text:=formatdatetime('yyyy', data); end; end;


17/04/2026 05:04 Delphi 4715
Topo