Public Function SpellPlayingCard( _ ByVal vCard As Variant _ ) As Variant
SpellPlayingCard("7C") = "Seven of Clubs" SpellPlayingCard("AS") = "Ace of Spades" SpellPlayingCard("10D") = "Ten of Diamonds" SpellPlayingCard("JA") = "Joker of Aces" IsNull(SpellPlayingCard("JD")) = TrueSee also:
DealPlayingCardDecks Function Spellings ClassvCard: String containing a playing card abbreviation such as "7C" or "AS" or "10D" which will be spelled out. Function returns Null if vCard is Null or cannot be fixed up to a String.
Summary: Each card is represented by a two- or three-character string that describes the number of the card and its suite. The card abbreviation is composed of one value from each of the following tables:
Card Numbers:
1 Joker 2..10 Numbered cards 2 through 10 J Jack Q Queen K King A AceCard Suites:
A Aces C Clubs D Diamonds S SpadesWhen Jokers are used, this function and DealPlayingCardDecks only recognize Jokers as belonging to the Aces and Clubs suites.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.