Database Search

TechHome

• Base64 Encoding
• BCD Conversion UDF
• Decimal to Hex conversion
• Floating point to HUGE numbers
• Format Number to Display
• Hex to Decimal Conversion
• Long to Dword UDF
• Number to Adjective acronym
• Numbers to text conversion
• Roman Numeral Conversions
• Sort a Numeric List
• Unicode to ASCII Converter
• xBaseConvert Base 10 to-from any other base

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

UDF - Number to Adjective Acronym

Keywords: 	 UDF - Number to Adjective Acronym

; UDF to convert number to adjective acronym
; eg  3 to 3rd    111 to 111th    82 to 82nd

#DefineFunction stndth(number)
   tens=number mod 100
   ;three special cases
   if  tens==11 || tens==12 || tens==13  
   	number=strcat(number,"th")
   else
      units=number mod 10
   	select units
   		case 1
   			number=strcat(number,"st")
   			break
   		case 2
   			number=strcat(number,"nd")
   			break
   		case 3
   			number=strcat(number,"rd")
   			break
   		case units
   			number=strcat(number,"th")
   			break
   	end select
   endif
   return(number)
#EndFunction

Article ID:   W15759

File Created: 2003:05:13:11:29:56

Last Updated: 2003:05:13:11:29:56