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; |
|