Esta función devuelve la fecha a partir de día, mes, año:
function pFecha (dia, mes, ano : word) : tdate; begin result := EncodeDate (ano,mes,dia); end;
Publicado el: 2005-07-26