將s顯示為字符串
dim nums（9）As string nums（0）=“零”:nums（1）=“壹”:nums（2）=“二”:nums（3）=“三”:nums（4）=“四”:nums（5）
nums（6）=“Lu“:nums（7）=“Qi“:nums（8）=“Ba“:nums（9）=“Jiu“sdate = format（date 0，“yyymmdd“）for I = 1to 4。
BDate = BDate & ampnums（Val（Mid（Sdate，I，1）））
接下來我
BDate = BDate & ampI = 5到6的“年”
如果I = 5且Val（Mid（Sdate，I，1））= 1，則
如果Val（Mid（Sdate，I + 1，1）= 0，則
BDate = BDate & ampnums（0）& amp；nums（Val（Mid（Sdate，I，1））和amp“拿起”
出口到
其他
BDate = BDate & ampnums（Val（Mid（Sdate，I，1））和amp“拿起”
如果…就會結束
其他
BDate = BDate & ampnums（Val（Mid（Sdate，I，1）））
如果…就會結束
接下來我
BDate = BDate & ampI = 7到8的“月”
如果I = 7且Val（Mid（Sdate，I，1））》0。= 1那麽
如果Val（Mid（Sdate，I + 1，1）= 0，則
BDate = BDate & ampnums（0）
BDate = BDate & ampnums（Val（Mid（Sdate，I，1））和amp“拿起”
出口到
其他
BDate = BDate & ampnums（Val（Mid（Sdate，I，1））和amp“拿起”
如果…就會結束
其他
BDate = BDate & ampnums（Val（Mid（Sdate，I，1）））
如果…就會結束
接下來我
BDate = BDate & amp“日”
MsgBox（BDate）
結束功能