The Show Numeric Day of Week routine returns the numeric day of
    the week for an input time value. If 0 is the input time value,
    the current day of the week is returned. The days are numbered 1
    through 7, with Monday as day 1 and Sunday as day 7.

    Format

      LIB$DAY_OF_WEEK  [user-time,] day-number