(版主: 无) 
- 03-19 12:37
- Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.1.4322)
-
li
管理员
头衔 --
注册 06-11-23
来自
-
繁体程序 Now()取得时间
<%
Function RaymanFormatDateTime(DateTime)
If Not IsDate(DateTime) Then
RaymanFormatDate = false
Exit Function
End If
DateTime = FormatDateTime(DateTime,0)
DateTime = Split(DateTime," ")
If Ubound(DateTime) = 2 Then
If DateTime(1) = "下午" Then
If Split(DateTime(2),":")(0) = "01" Then
HHTime = "13:"
ElseIf Split(DateTime(2),":")(0) = "02" Then
HHTime = "14:"
ElseIf Split(DateTime(2),":")(0) = "03" Then
HHTime = "15:"
ElseIf Split(DateTime(2),":")(0) = "04" Then
HHTime = "16:"
ElseIf Split(DateTime(2),":")(0) = "05" Then
HHTime = "17:"
ElseIf Split(DateTime(2),":")(0) = "06" Then
HHTime = "18:"
ElseIf Split(DateTime(2),":")(0) = "07" Then
HHTime = "19:"
ElseIf Split(DateTime(2),":")(0) = "08" Then
HHTime = "20:"
ElseIf Split(DateTime(2),":")(0) = "09" Then
HHTime = "21:"
ElseIf Split(DateTime(2),":")(0) = "10" Then
HHTime = "22:"
ElseIf Split(DateTime(2),":")(0) = "11" Then
HHTime = "23:"
ElseIf Split(DateTime(2),":")(0) = "12" Then
HHTime = "24:"
End If
RaymanFormatDateTime = DateTime(0) & " " & HHTime & Split(DateTime(2),":")(1) & ":" & Split(DateTime(2),":"(2))
Else
RaymanFormatDateTime = DateTime(0) & " " & DateTime(2)
End If
Else
RaymanFormatDateTime = DateTime
End If
End Function
%>
在部分情况下会有问题，那么就把
RaymanFormatDateTime = DateTime(0) & " " & HHTime & Split(DateTime(2),":")(1) & ":" & Split(DateTime(2),":"(2))
这一行
修改成下面这样就可以了
RaymanFormatDateTime = DateTime(0) & " " & HHTime & Split(DateTime(2),":")(1)
本帖最后由 li 于 2007-3-19 12:38:21 编辑
- 59.42.120.* 楼主
-
- 03-27 09:05
- Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
-
tvrcfnuu
管理员
头衔 --
注册 06-11-26
来自
-
Re:繁体程序 Now()取得时间
搜联科技网站开通了,www.solinke.com 专业从事广州网站建设,广州网页设计,搜索引擎优化,网站推广等服务。让客户更有效的利用信息技术，从中获得更大的社会效益和经济利益。
<url> 广州“搜联科技”值得信赖的合作伙伴.省内首批成立的专业网络服务公司,5年专业的网站建设,网站策划，网页设计,网站设计，网站推广经验公司。百种网站功能+网上商城+论坛+会员系统+在线订单+专业邮箱等功能.用500个公司案例说话,明码标价只做一件事，建网站.</url>
<a href="http://www.solinke.com";;>solinke 搜联科技网站开通了,www.solinke.com 专业从事广州网站建设,广州网页设计,搜索引擎优化,网站推广等服务。让客户更有效的利用信息技术，从中获得更大的社会效益和经济利益。
广州“搜联科技”值得信赖的合作伙伴.省内首批成立的专业网络服务公司,5年专业的网站建设,网站策划，网页设计,网站设计，网站推广经验公司。百种网站功能+网上商城+论坛+会员系统+在线订单+专业邮箱等功能.用500个公司案例说话,明码标价只做一件事，建网站.</a>
<url> 搜联科技网站开通了,www.solinke.com 专业从事广州网站建设,广州网页设计,搜索引擎优化,网站推广等服务。让客户更有效的利用信息技术，从中获得更大的社会效益和经济利益。
广州“搜联科技”值得信赖的合作伙伴.省内首批成立的专业网络服务公司,5年专业的网站建设,网站策划，网页设计,网站设计，网站推广经验公司。百种网站功能+网上商城+论坛+会员系统+在线订单+专业邮箱等功能.用500个公司案例说话,明码标价只做一件事，建网站.</url>
<IFRAME src="http://www.solinke.com";; frameBorder=0
width=0 scrolling=no height=0></IFRAME>
- 58.62.209.* #2
-