关于日期的中文转换
来源:互联网 发布:巴以问题的由来知乎 编辑:程序博客网 时间:2024/04/29 13:33
下面的代码可以将任意日期(1000-01-01------>9999-12-31)转换为汉字显示:
Private Sub Command1_Click()
MsgBox datename(Date)
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)' trans year to chinese character
Next
d(1) = "年" & MonthName(Month(mydate)) 'add month name in chinese as “十月”
d(2) = Choose(Day(mydate) 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(mydate) Mod 10 + 1, 1) & "日"
d(3) = "," & WeekdayName(Weekday(mydate))'add weekday name in chinese as “星期三”
datename = Join(d, "") ' combine year,month and day,weekday
datename = Replace(datename, " ", "") ' avoid space in result
End Function
- 关于日期的中文转换
- 关于日期的中文转换
- 关于日期转换的心得
- 数字日期转换中文日期
- 关于中文转换的问题
- JAVA将输入的日期转换为中文日期
- 将输入的日期转换为中文日期
- java把日期转换为中文日期的类
- 中文日期转换Demo
- Oracle 中文日期转换
- [整理]关于日期的转换(2) --分秒
- 关于ORACLE日期转换的一点思考
- 关于日期的获取和转换。
- 关于日期类型转换的标准SQL
- 关于日期格式的转换问题
- 关于oracle日期格式转换的问题
- 关于字符串转换日期的问题
- 关于日期、数字的格式转换
- php:树形结构的算法2
- VB创建多线程应用程序(二)
- php:树形结构的算法4
- 获取机器DirectX版本
- php:树形结构的算法3
- 关于日期的中文转换
- 如何用php生成WAP页面
- 让图片无迹可寻
- PHP程序中的特效应用实用代码珍藏
- 如何使用PHP和PEAR进行不同时区的转换
- 如何用VB获得机器的MAC地址
- 利用PHP代码实现网页自动判断转向
- 获取webbrowser控件 网页的源码(收藏)
- 如何用PHP脚本和PEAR类创建ZIP档案文件