日志
转化为yyyy-mm-dd日期格式的自定义函数
热度 1
可以将20040510数字格式，转换为2004－5－10的日期格式的函数
Public Function 日期格式(rd1)
Dim day1 As Date
Dim rdy1 As String
Dim nn1, yn1, dn1 As Integer
rdy1 = Trim(rd1)
If Len(rdy1) <> 8 Then
日期格式 = "日期位数不对"
Exit Function
End If
On Error GoTo tishi
nn1 = Left(rdy1, 4)
yn1 = Mid(rdy1, 5, 2)
dn1 = Right(rdy1, 2)
day1 = nn1 & "-" & yn1 & "-" & dn1
日期格式 = day1
Exit Function
tishi:
日期格式 = "错误的日期"
End Function
Dim day1 As Date
Dim rdy1 As String
Dim nn1, yn1, dn1 As Integer
rdy1 = Trim(rd1)
If Len(rdy1) <> 8 Then
日期格式 = "日期位数不对"
Exit Function
End If
On Error GoTo tishi
nn1 = Left(rdy1, 4)
yn1 = Mid(rdy1, 5, 2)
dn1 = Right(rdy1, 2)
day1 = nn1 & "-" & yn1 & "-" & dn1
日期格式 = day1
Exit Function
tishi:
日期格式 = "错误的日期"
End Function
