Is there any way to turn "1" into ‘one’?

nymphetamine

I am going to convert 12 months into one or two. . . Is there any way to do it, can it only be written hard (write the judgment statement by yourself)?

sadggn

i = month (date) gets the current date and month
select case i
    case 1
       msgbox "one"
    case 2
       msgbox "two"
    case 3
       msgbox "three"
    case 4
       msgbox "four"
    case 5
       msgbox "five"
    case 6
       msgbox "six"
    case 7
       msgbox "seven"
    case 8
       msgbox "eight"
    case 9
       msgbox "nine"
    case 10
       msgbox "ten"
    case 11
       msgbox "eleven"
    case 12
       msgbox "twelve"
end select

drbabyhai

if 1 then one, under?

nymphetamine

I just asked, is there any way other than this hard-written method?

hxl_zorro

I wrote it using someone else, I wrote it myself ^-^

hxl_zorro

If you have written it by others, you do n’t have to write it yourself ^-^

ztz_3000

MonthName function
See example features

description

Returns a string representing the specified month.

grammar

MonthName (month [, abbreviate])

MonthName function syntax has the following parts:

Part Description
month required. The numeric value of the month. For example, January is 1, February is 2, and so on.
abbreviate is optional. Boolean value indicating whether the month name is abbreviated. If omitted, the default value is False, indicating that the month name cannot be abbreviated

wdh840822

dim ms () as string
ms = split ("January, February ... December", ",")

.... = ms (month (now))

datiede

Define an array
N(0)="zero"
....
N(9)="nine"
Your number is the subscript.

0aijiuaile

Learn, is there a function that can directly convert numbers to Chinese characters?