ThisDOW Function
Returns the current Day of the week from Today's Date.

Unit
QESBPCSDateTime

Declaration
Function ThisDOW: Byte;

Returns
the DOW Number, 1 through 7 where 1 is Sunday.

Category
Date/Time Conversion Routines

Implementation

function ThisDOW: Byte;
begin
     Result := DayOfWeek (Date);
End;


HTML generated by Time2HELP
http://www.time2help.com