function DateToInteger(const Date: TDateTime): Integer
procedure checkdate(aValue: TDateTime); var aInt: Integer; begin aInt := DateToInteger(aValue); message_dlg(inttostr(aInt)); end;