Question

asp调用AC数据库 时间显示问题~！

AC数据库字段：adddate，其中数据是：2010-12-23 下午 08:49:07；前台asp调用命令为：<%=rs("adddate")%> ，显示为：2010-12-23 下午 08:49:07，想让其显示为12-23。前台asp命令需要怎么写~！谢谢。
郁闷我是把~！那是直接进数据库的~！有后台管理界面，命令是 now

Answer 1

你的adddate字段是“日期/时间”数据类型吗？如果是，这样搞：
<%
' ============================================
' 格式化时间(显示)
' 参数：n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' 6:"yyyymmddhhmmss"
' ============================================
Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
Format_Time = y & "年" & m & "月" & d & "日"
Case 5
' yyyymmdd
Format_Time = y & m & d
case 6
'yyyymmddhhmmss
format_time= y & m & d & h & mi & s
End Select
End Function
%>

<%=format_time(right(rs("adddate"),5),4)%> '这一行输出的内容就是你想要的12-23格式了。

Answer 2

1.想显示不同格式的年月日可以用FormatDateTime(date,format)
2.如果只显示月份和日期需要一个自定义函数,(例如你这里就是:Format_Time(rs("adddate"),7))
Public Function Format_Time(Byval Tvar,Byval sType)
dim Tt,sYear,sMonth,sDay,sHour,sMinute,sSecond
If Not IsDate(Tvar) or sType=0 Then Format_Time = "" : Exit Function
Tt = Tvar
sYear = Year(Tt)
sMonth = Right("0" & Month(Tt),2)
sDay = Right("0" & Day(Tt),2)
sHour = Right("0" & Hour(Tt),2)
sMinute = Right("0" & Minute(Tt),2)
sSecond = Right("0" & Second(Tt),2)
Select Case sType
Case 1 '2005-10-01 23:45:45
Format_Time = sYear & "-" & sMonth & "-" & sDay & " " & sHour & ":" & sMinute & ":" & sSecond
Case 2 '年-月-日 时:分:秒
Format_Time = sYear & "年" & sMonth & "月" & sDay & "日 " & sHour & "时" & sMinute & "分" & sSecond & "秒"
Case 3 '2005-10-01
Format_Time = sYear & "-" & sMonth & "-" & sDay
Case 4 '2005\10\01
Format_Time = sYear & "\" & sMonth & "\" & sDay
Case 5 '10-01 23:45
Format_Time = sMonth & "-" & sDay & " " & sHour & ":" & sMinute
Case 6 '2005年10月01日
Format_Time = sYear & "年" & sMonth & "月" & sDay & "日"
Case 7 '10-01
Format_Time = sMonth & "-" & sDay
Case 8 '20051001234545
Format_Time = sYear & sMonth & sDay & sHour & sMinute & sSecond
Case Else
Format_Time = Tt
End Select
End Function

Answer 3

month(rs("adddate"))&"-"&day(rs("adddate"))
这样就行了，没那么复杂，^-^

Answer 4

你直接打开ACCESS数据库，把时间格式改为12-23不就好了？