I wrote this little function for a teammate the other day and could not decide if I should blog about it or not. It is a simple function that I any Visual FoxPro programmer could write. Prior to writing the function, I searched the web to see if someone else had already written it. I could not find anything so I decided to post it hoping that I will save someone else time in the future.
* Purpose...: Returns .T. if the letter passed is a consonant.
* Author....: Toni M. Feltman
* Parameters: tcLetter, The letter to check.
* tlYIsVowel, When passed .T. the letter Y is considered a vowel.
* Returns...: Boolean
* Added.....: 09/29/2009
lcVowelString AS Character, ;
llReturn AS Boolean
lcVowelString = IIF(tlYIsVowel, 'AEIOUY', 'AEIOU')
llReturn = ISALPHA(tcLetter) AND NOT UPPER(tcLetter)$lcVowelString