【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-Form时间英文－中文.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Load()
    MsgBox datename("2006-1-9")
    
    End Sub
    Function datename(ByVal mydate As Date) As String
    Dim i As Long, d(3) As String, myyear As String
    myyear = Format(mydate, "yyyy")
    For i = 1 To 4
    ' 转换年份为中文字符
    d(0) = d(0) & Mid("○一二三四五六七八九", CInt(Mid(myyear, i, 1)) + 1, 1)
    Next
     '转换月份为中文字符，并add month name in chinese as “十月”
    d(1) = "年" & MonthName(Month(mydate))
    d(2) = Choose(Day(mydate) \ 10 + 1, "", "十", "二十", "三十") & _
           Mid(" 一二三四五六七八九", Day(mydate) Mod 10 + 1, 1) & "日"
     'add weekday name in chinese as “星期三”
    d(3) = "，" & WeekdayName(Weekday(mydate))
    ' combine year,month and day,weekday
    datename = Join(d, "")
     ' avoid space in result
    datename = Replace(datename, " ", "")
    End Function