7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-10-17
- 打赏
- 举报
'没有设置格式验证部分,你自己添加吧
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
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
northwolves 2005-10-17
- 打赏
- 举报
给你写一个吧,一会帖上来
bo18 2005-10-17
- 打赏
- 举报
帮帮俺
zou19820704 2005-10-17
- 打赏
- 举报
关注！！
wangtopcool 2005-10-17
- 打赏
- 举报
除了自己写没别的办法了...
winehero 2005-10-17
- 打赏
- 举报
只有自己写个转换函数了。。。
