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

Question

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

Answer 1

if 1 then 一 ,understand?

Answer 2

MonthName函数
请参阅     示例     特性 描述返回一个表示指定月份的字符串。语法MonthName(month[, abbreviate])MonthName函数语法有如下几部分：部分 描述 
month 必需的。月份的数值表示。例如一月是1，二月是2，等等。 
abbreviate 可选的。Boolean值，表示月份名是否缩写。如果忽略，缺省值为False，表明月份名不能被缩写 

Answer 3

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