UnitQESBPCSDateTime
DeclarationFunction ThisDOW: Byte;
Returnsthe DOW Number, 1 through 7 where 1 is Sunday.
CategoryDate/Time Conversion RoutinesImplementation
function ThisDOW: Byte; begin Result := DayOfWeek (Date); End;