Código Delphi [-] Function Fecha(fecha: TDateTime): TDateTime; var Dia,mes,ano: Word; begin DecodeDate(now,ano,mes,dia); end;
Function Fecha(fecha: TDateTime): TDateTime; var Dia,mes,ano: Word; begin DecodeDate(now,ano,mes,dia); end;