时间格式转换问题？
如何将数字时间转换成中文格式？
如：200510171516 -------> 二零零五年十月十七日十五点十六分
问题点数：20、回复次数：6Top
1 楼winehero（God helps those who help themselves.）回复于 2005-10-17 15:26:48 得分 0
只有自己写个转换函数了。。。Top
2 楼wangtopcool（逆水行舟,不进则退）回复于 2005-10-17 15:28:47 得分 0
除了自己写没别的办法了...Top
3 楼zou19820704（天下英雄）回复于 2005-10-17 15:41:03 得分 0
关注！！Top
4 楼bo18（明天的明天的明天）回复于 2005-10-17 16:52:04 得分 0
帮帮俺Top
5 楼northwolves（狼行天下）回复于 2005-10-17 22:51:53 得分 0
给你写一个吧,一会帖上来Top
6 楼northwolves（狼行天下）回复于 2005-10-17 23:12:01 得分 20
'没有设置格式验证部分,你自己添加吧
Private Sub Command1_Click()
MsgBox trans("200510171516")
End Sub
Function H(ByVal n As String) As String
Dim x As Integer, i As Integer
x = CInt(n)
If x = 0 Then
H = "零"
ElseIf x < 11 Then
H = Left(MonthName(x), 1)
ElseIf x < 100 Then
H = IIf(x < 20, "", H(x \ 10)) & H(10) & H((x - 1) Mod 10 + 1)
Else
For i = 1 To Len(n)
H = H & H(Mid(n, i, 1))
Next
End If
End Function
Function trans(ByVal x As String) As String
trans = H(Mid(x, 1, 4)) & "年" & H(Mid(x, 5, 2)) & "月" & H(Mid(x, 7, 2)) & "日" & H(Mid(x, 9, 2)) & "点" & H(Mid(x, 11, 2)) & "分"
End Function
Top
