Question

vb日期值转换为中文字符串日期格式 代码

编写一个将一个日期值转换为中文字符串日期格式的函数ccdate$(d as date)并调用
如将#2011-3-30#转换为“二〇一一年三月三十日”

Answer 1

VB日期值转换为中文字符串日期格式可编写自定义函数来实现。

Function 语句，声明 Function 过程的名称，参数以及构成其主体的代码。

实现代码如下：

Option Explicit
    Dim MyDate As Date
    Dim y, m, d
    Dim i As Long
    
Public Function CCDate(ByVal MyDate As Date)
    y = CStr(Year(MyDate)): m = Month(MyDate): d = Day(MyDate)
    For i = 1 To 4
        CCDate = CCDate & Mid("〇一二三四五六七八九", Val(Mid(y, i, 1)) + 1, 1)
    Next
    CCDate = CCDate & "年"
    CCDate = CCDate & Trim(Mid("一 二 三 四 五 六 七 八 九 十　十一十二", m * 2 - 1, 2)) & "月"
    CCDate = CCDate & Trim(Mid("   十二十三十", (d \ 10) * 2 + 1, 2)) & Trim(Mid(" 一二三四五六七八九", (d Mod 10) + 1, 1)) & "日"
End Function

Private Sub Command1_Click()
    MyDate = #8/31/2015#
    Debug.Print CCDate(MyDate)
End Sub

 上述代码参考： http://zhidao.baidu.com/question/435772887.html芝麻lnzzxzy的回复。

Answer 2

Public Function CCDate$(ByVal MyDate As Date)
y = CStr(Year(MyDate)): m = Month(MyDate): d = Day(MyDate)
For i = 1 To 4
CCDate = CCDate & Mid("Ο一二三四五六七八九", Val(Mid(y, i, 1)) + 1, 1)
Next
CCDate = CCDate & "年"
CCDate = CCDate & Trim(Mid("一 二 三 四 五 六 七 八 九 十　十一十二", m * 2 - 1, 2)) & "月"
CCDate = CCDate & Trim(Mid(" 十二十三十", (d \ 10) * 2 + 1, 2)) & Trim(Mid(" 一二三四五六七八九", (d Mod 10) + 1, 1)) & "日"
End Function
'请注意　字符串中　看不到的空格　别少了