数据库是oracle
在表1中JSRQ字段为日期类型
在用<%=rs("jsrq")>读取的日期格式为2015/12/17 星期四 下午 18:00,因为是日期类型,所以每个电脑上读取的格式也不一样,有的是2015-12-17 18:00,所以为了避免这个问题,我想将数据库中读取的FSRQ转换为如2015-12-17 18:00的格式,然后在WEB页面可以修改,并保存到数据库里。所以请大神解答下读取时如何将日期转换字符串,修改后保存时,再将字符串在转换为日期呢,
fmtDate(rs("jsrq").Value, True, "-")
Function fmtDate(sDate, bIncludeTime, sSplitter)
On Error Resume Next
Dim dt, sTime, sDatePart
If Not IsDate(sDate) Then
fmtDate = ""
Exit Function
End If
dt = CDate(sDate)
If Err.Number<>0 Then
Err.Clear
fmtDate = ""
Else
Select Case sSplitter
Case "-"
sDatePart = Year(dt) & sSplitter & Right("0" & Month(dt), 2) & sSplitter & Right("0" & Day(dt), 2)
Case "/"
sDatePart = Year(dt) & sSplitter & Month(dt) & sSplitter & Day(dt)
Case Else
sDatePart = Year(dt) & "年" & Month(dt) & "月" & Day(dt) & "日"
End Select
If bIncludeTime Then
sTime = Hour(dt) & ":" & Right("0" & Minute(dt), 2) & ":" & Right("0" & Second(dt), 2)
sDatePart = sDatePart & " " & sTime
End If
fmtDate = sDatePart
End If
End Function