VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
关于日期的中文转换

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

下面的代码可以将任意日期(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




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有