我的工作日志

没有系统对日期补0,只有手动补0

'针对LEADBBS数据库的,来源BOARD_POPFUN.ASP 作用:日期处理
'例子:GetTimeValue(NOW())
'结果:20041008095752

Function GetTimeValue(DateString)
Dim Temp,TempStr
If isNull(DateString) or isTrueDate(DateString) = 0 Then Exit Function
Temp = csTr(Year(DateString))
If len(temp)<3 Then
Temp = left(year(date),2) & temp
End If
TempStr = Temp

Temp = csTr(month(DateString))
If len(temp)<2 Then Temp = "0" & temp
TempStr = TempStr & Temp

Temp = csTr(day(DateString))
If len(temp)<2 Then Temp = "0" & temp
TempStr = TempStr & Temp

Temp = csTr(Hour(DateString))
If len(temp)<2 Then Temp = "0" & temp
TempStr = TempStr & Temp

Temp = csTr(Minute(DateString))
If len(temp)<2 Then Temp = "0" & temp
TempStr = TempStr & Temp

Temp = csTr(Second(DateString))
If len(temp)<2 Then Temp = "0" & temp
TempStr = TempStr & Temp

GetTimeValue = cCur(TempStr)
End Function
Rem 为VBScript的isDate缺陷而编写的函数,用on error resume next也拦不住
Function isTrueDate(TStr)
Dim T
T = TStr
T = Replace(Replace(Replace(Replace(Replace(Replace(Replace(T,"年","-"),"月","-"),"日"," "),"上午"," "),"下午"," ")," "," ")," "," ")

Dim N1,N2
N1 = inStr(T,"-")
If N1>0 Then N2 = inStrRev(T,"-")
If N1 = N2 and N1 >0 Then
isTrueDate = 0
Exit Function
End If

N1 = inStr(T,":")
If N1>0 Then N2 = inStrRev(T,"-")
If N1 = N2 and N1 >0 Then
isTrueDate = 0
Exit Function
End If

If isDate(TStr) Then
isTrueDate = 1
Else
isTrueDate = 0
End If
End Function