有没有什么办法把把“1”转化成‘一’呢

nymphetamine

我现在要把12个月份转化成一，二。。。，有没有什么办法呢，是不是只能硬写（自己写判断语句）呢

sadggn

i=month(date) 取得当前日期月份
select case i
    case 1
       msgbox "一"
    case 2
       msgbox "二"
    case 3
       msgbox "三"
    case 4
       msgbox "四"
    case 5
       msgbox "五"
    case 6
       msgbox "六"
    case 7
       msgbox "七"
    case 8
       msgbox "八"
    case 9
       msgbox "九"
    case 10
       msgbox "十"
    case 11
       msgbox "十一"
    case 12
       msgbox "十二"
end select

drbabyhai

if 1 then 一 ,understand?

nymphetamine

我就是问，除了这个硬写的方法之外，有没有其他办法

hxl_zorro

用别人写过的，就用自己写了^-^

hxl_zorro

用别人写过的，就不用自己写了^-^

ztz_3000

MonthName函数
请参阅     示例     特性

描述

返回一个表示指定月份的字符串。

语法

MonthName(month[, abbreviate])

MonthName函数语法有如下几部分：

部分 描述
month 必需的。月份的数值表示。例如一月是1，二月是2，等等。
abbreviate 可选的。Boolean值，表示月份名是否缩写。如果忽略，缺省值为False，表明月份名不能被缩写

wdh840822

dim ms() as string
ms=split("一月,二月....十二月",",")

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

datiede

定義一個數組
N(0)="零"
....
N(9)="九"
你的數字就是下標。

0aijiuaile

学习一下，有没有可以直接数字转汉字的函数？