我的系统下now()函数取得时间格式为"2005-10-3 下午 02:46:24",怎么办???100分在线

[uhoo]

如题

[fluxayxxx]

你希望取得什么格式？？
replace转换一下不就可以了

[Mapleleaf123]

设置一下你机子时间的格式

[Camelot]

Function Now()

End Function

[Camelot]

Function Now()
Now = Date() & " " & Time()
End Function

[Camelot]

晕死，Tab键-_-，把上面的代码放在公共页，以后调用Now()就不会了，本来这代码留着自己用的，公开吧。

[lion9910]

这个是自己机器设置的问题，要是自己做服务器改一下就好了，租的服务器的话一般来说都是普通的格式，实在不放心就自己写一个函数规范一下好了

[yb2008]

更改你的电脑时间格式

[oldmht]

公开什么，楼上的，你那代码还是会出来早上下午的！

[dreampeter]

更改机器时间区域就可以了
不过最好是自己写个类似FormatDate的函数，这样对任何的时区都可以应付自如了

[holoon]

<%
function times(fname,ftype)
dim years,months,days,hours,minutes,seconds
years = year(now())
months = month(now())
days = day(now())
hours = hour(now())
minutes = minute(now())
seconds = second(now())
if len(months) < 2 then
months="0" & months
end if
if len(days) < 2 then
days = "0" & days
end if
if len(hours) < 2 then
hours = "0" & hours
end if
if len(minutes) < 2 then
minutes = "0" & minutes
end if
if len(seconds) < 2 then
seconds = "0" & seconds
end if
ftype = ftype
if ftype = "f" then '类型为 f 时,格式为：20050912135503-5132
fname = years & months & days & hours & minutes & seconds & "-" & Make4numeric
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"年","")
fname = replace(fname,"月","")
fname = replace(fname,"日","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
elseif ftype = "t" then '类型为 f 时,格式为：2005-09-12 13:55:03
fname = years & "-" & months & "-" & days & " " & hours & ":" & minutes & ":" & seconds
fname = replace(fname,"年","")
fname = replace(fname,"月","")
fname = replace(fname,"日","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
elseif ftype="d" then '类型为 f 时,格式为：2005-09-12
fname = years & "-" & months & "-" & days
end if
times = fname
end function

response.write times(now(),"f")
response.write "<br>"
response.write times(now(),"t")
response.write "<br>"
response.write times(now(),"d")
%>

这是我自已写的，你试试看。

[holoon]

有两个地方解释错了，不好意思。

[bigluckyfox]

老问题了
重装系统吧

[-神仙-]

楼上真幽默

[Scarroot]

老问题啦.
重编译内核就OK了

[2880241]

year()day()month()
三个取值函数可以解决你的问题

[beiouwolf]

怎么越说越麻烦了
很简单的问题,NOW取得是完整的时间
需要部分只要用year,day,month不就可以了
取得当前年:year(now())
取得当前月:month(now())
取得当前日:day(now())

[laogou]

更控制面板时间区域就可以
不过最好是自己写个类似FormatDate的函数，这样对任何时间格式都可以应付自如了

[laihongbo524]

Public Function Format_Time(s_Time, n_Flag)
'******************************************************
'　作用：格式化时间(显示)。
'　参数：二个，一个是时间，另外一个是格式化的参数，也就是要用那种形式参数：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"
' 6:"yyyymmddhhmm"
'　返回：相应的日期格式
'　注意：调用时要注意，使用本函数的相关返回值.
'******************************************************
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
case 7
'yyyymmddhhmm
Format_time=y&m&d&h&mi
End Select
End Function

response.write Format_Time(now,1)

[hreoghost]

学习

[lsjack]

此问题似乎修改时间区域没有用，在win2000系统下，修改了时间区域后，VB返回的结果是没问题了，但是在ASP返回的结果还是一样。 是否要设置其他地方？