Páginas

sábado, 24 de setembro de 2016

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;


  

Nenhum comentário:

Postar um comentário