| IsValidLongMonth Function | 
Unit
QESBPCSDateTime
Declaration
Function IsValidLongMonth(const Month: string): Boolean;
| Parameters | 
| Month | String containing Month Name | 
Category
Date/Time Comparison
Month Based Arithmetic RoutinesImplementation
 
| function IsValidLongMonth (const Month: string): Boolean;
var
     S: string;
     I: Integer;
begin
     Result := False;
     S := AnsiUpperCase (Month);
     for I := 1 to 12 do
          if S = AnsiUpperCase (LongMonthNames [I]) then
          begin
               Result := True;
               Break
          end;
End; | 
|  |