IsValidShortMonth Function
Returns True if Month can be found in the Short Months from the Regional Settings.

Unit
QESBPCSDateTime

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

Parameters
Month String containing Month Name

Category
Date/Time Comparison
Month Based Arithmetic Routines

Implementation

function IsValidShortMonth (const Month: string): Boolean;
var
     S: string;
     I: Integer;
begin
     Result := False;
     S := AnsiUpperCase (Month);
     for I := 1 to 12 do
          if S = AnsiUpperCase (ShortMonthNames [I]) then
          begin
               Result := True;
               Break
          end;
End;


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