IsValidLongMonth Function
Returns True if Month can be found in the Long Months from the Regional Settings.

Unit
QESBPCSDateTime

Declaration
Function IsValidLongMonth(const Month: string): Boolean;

Parameters
Month String containing Month Name

Category
Date/Time Comparison
Month Based Arithmetic Routines

Implementation

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;


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