Obtiene por separado el día, el mes y el año de una fecha dada.
Un ejemplo de utilización:
1 2 3 4 5 6 7 8 |
procedure TFormCalendario.FormShow(Sender: TObject); var dia, mes, ano : word; begin DecodeDate (date, ano, mes, dia); lfecha.caption := 'Hoy es: ' + inttostr(dia) + ' de ' + mes (mes) + ' de ' + inttostr(ano); end; |
Unidad SysUtils