Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var Dia,Mes,Anno:Word; begin DecodeDate(Date,Anno,Mes,Dia); label1.Caption:=IntToStr(Dia); label2.Caption:=IntToStr(Mes); label3.Caption:=IntTostr(Anno); end;
procedure TForm1.Button1Click(Sender: TObject); var Dia,Mes,Anno:Word; begin DecodeDate(Date,Anno,Mes,Dia); label1.Caption:=IntToStr(Dia); label2.Caption:=IntToStr(Mes); label3.Caption:=IntTostr(Anno); end;