Informática — Informática Diversos

Considere o fragmento de código abaixo:



procedure Formulario1.Botao1Click(Sender: TObject);

var

Data: TDateTime;

Ano, Mes, Dia : Word;

begin

Data:= StrToDate(Edit1.Text);;

DecodeDate(Data, Ano, Mes, Dia);

Label1.Caption := 'Hoje é o dia ' + IntToStr(Dia) + ' do

Mês ' + IntToStr(Mes) + ' do Ano ' + IntToStr(Ano);

end;

end.



Esse código foi programado usando a linguagem: