var hoy: TDateTime; //****************************// Hoy:=Date(): DiasDiferencia:= Hoy - FecIngreso.Date;