{ DATE FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }
  function  __dt2ststr(year, month, day, datefmt : word): string;
  function  __datestr(var year,month,day: word): string;
  function  __timestr(var hours,minutes,seconds,tics: word): string;
  procedure __st2dtstr(st: string; var year, month, day: word; datefmt: word);
  function  __time2str(hours, mins, secs, tics, format: word): string;
  function  __2timestr(timestr: string; var hours,mins,secs,tics:word): boolean;

  function  __retdowstr(dayofweek: word; ful: boolean): string;
  function  __todaystr(ful: boolean): string;
  procedure __jl2dtutl(julian: longint; var year, month, day, weekday: word);
  function  __dt2jlutl(year, month, day : word) : longint;
  function  __daysutl(yr1, mn1, day1 : word; yr2, mn2, day2 : word) : longint;
  function  __retdow(y, m, d: word): word;
  function  __today: byte;

  function  __curdate: string;
  function  __curdate2longint: longint;
  function  __longint2date(l: longint): string;
  function  __date2longint(d: string): longint; {     'xx NNN yy  HH:MM.ss' }
                                                { eg. '22 Aug 69  14:50.11' }
  procedure __longint2datetime(d : longint; var dt : datetime);
  function  format_date(dt : datetime; format : byte): string;
  function  __formatdate(d : longint; format : byte): string;

  function  __dbdate: string;
  function  __radate: string;

  procedure unpacktime(p : longint;var t : datetime);
  procedure packtime(var t : datetime;var p : longint);