DecodeDate
A função DecodeDate decompõe um valor de data (do tipo TDateTime) nos componentes ano, mês e dia.
Sintaxe
procedure DecodeDate(e: TDateTime; var Ano, Mes, Dia: Word);
Parâmetros
Nome | Tipo | Descrição |
---|---|---|
e | TDateTime | Valor numérico que representa a data. |
Ano | Word | Variável de saída que receberá o ano. |
Mês | Word | Variável de saída que receberá o mês. |
Dia | Word | Variável de saída que receberá o dia. |
Exemplos
var dataA: TDateTime; ano, mes, dia: Word; begin dataA := Now; DecodeDate(dataA, ano, mes, dia); Informacao('Ano: ' + IntToStr(ano) + ', Mês: ' + IntToStr(mes) + ', Dia: ' + IntToStr(dia)); end.