NAME: UnPackTime

     USE: Accepts a 4-byte longint, packed dat and time value, and
          returns a unpacked DateTime record.

             DateTime = Record
                Year, Month, Day, Hour, Min, Sec : Integer;
             end;

             Year 1980..2099     Month 1..12     Day 1..31
             Hour 0..23          Min 0..59       Sec 0..59


     DEPENDENCY:  The DOS unit must be used placed in the uses section.

     SYNTAX: UnPackTime(TimeValue : LongInt; Var DateTimeRec : DateTime);