| IsValidLongDOW Function | 
Unit
QESBPCSDateTime
Declaration
Function IsValidLongDOW(const DOW: string): Boolean;
| Parameters | 
| DOW | String containing Day of Week Name | 
Category
Date/Time ComparisonImplementation
 
| function IsValidLongDOW (const DOW: string): Boolean;
var
     S: string;
     I: Integer;
begin
     Result := False;
     S := AnsiUpperCase (DOW);
     for I := 1 to 12 do
          if S = AnsiUpperCase (LongDayNames [I]) then
          begin
               Result := True;
               Break
          end;
End; | 
|  |