DecodeDate (x, y, z, k)

Obtiene por separado el día, el mes y el año de una fecha dada.
Un ejemplo de utilización:

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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario