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