Test if a character is alphanumeric, regardless of the code page or language settings.
'\\ --[IntlIsAlphaCharacter]--------------------------------------------
'\\ Returns true if the input letter is alphabetical in any code page or language.
'\\ --------------------------------------------------------------------
Public Function IntlIsAlphaCharacter(sChar As String) As Boolean
IntlIsAlphaCharacter = (Not (UCase(sChar) = LCase(sChar))) Or (sChar = " ")
End Function
'\\ Returns true if the input letter is alphabetical in any code page or language.
'\\ --------------------------------------------------------------------
Public Function IntlIsAlphaCharacter(sChar As String) As Boolean
IntlIsAlphaCharacter = (Not (UCase(sChar) = LCase(sChar))) Or (sChar = " ")
End Function
sChar As String
Views 153 Downloads 48
VBA
