XPunpackDate()
  Restore the original date from a packed string.
------------------------------------------------------------------------------

  Function:    XPunPackDate()

               XPunpackDate() restores the date of a previously
               packed date using XPpackDate(). This can be handy
               when one wants to work with the date again, after
               having written it to the database or whatever.

  Syntax:      XPunPackDate(<cPackedDate>) --> dVar

  Arguments:   The 2 byte string that was returned by
               XPpackDate().

  Returns:     The original Date variable.

  Usage:       if Date() <> XPunpackDate(XPpackDate(Date()))
                    This_is_a_bug()
               Else
                    Do OkiDokee()
               endif