这个能不能用循环语句?想做个时间差的显示,显示时:分下面能否用循环语句,Geth=rs("tihuo_time")Gethh=now()Getsnn=DateDiff("n",Geth,Gethh)if Getsnn60 thenGetcnn=DateDiff("n",Geth,Gethh)-60Getchh=1end if if Getsnn>120 thenGe
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/29 16:20:16
这个能不能用循环语句?想做个时间差的显示,显示时:分下面能否用循环语句,Geth=rs("tihuo_time")Gethh=now()Getsnn=DateDiff("n",Geth,Gethh)if Getsnn60 thenGetcnn=DateDiff("n",Geth,Gethh)-60Getchh=1end if if Getsnn>120 thenGe
这个能不能用循环语句?
想做个时间差的显示,显示时:分
下面能否用循环语句,
Geth=rs("tihuo_time")
Gethh=now()
Getsnn=DateDiff("n",Geth,Gethh)
if Getsnn60 then
Getcnn=DateDiff("n",Geth,Gethh)-60
Getchh=1
end if
if Getsnn>120 then
Getcnn=DateDiff("n",Geth,Gethh)-120
Getchh=2
end if
if Getsnn>180 then
Getcnn=DateDiff("n",Geth,Gethh)-180
Getchh=3
end if
if Getsnn>240 then
Getcnn=DateDiff("n",Geth,Gethh)-240
Getchh=4
end if
if Getsnn>300 then
Getcnn=DateDiff("n",Geth,Gethh)-300
Getchh=5
end if
if Getsnn>360 then
Getcnn=DateDiff("n",Geth,Gethh)-360
Getchh=6
end if
if Getsnn>420 then
Getcnn=DateDiff("n",Geth,Gethh)-420
Getchh=7
end if
if Getsnn>480 then
Getcnn=DateDiff("n",Geth,Gethh)-480
Getchh=8
end if
if Getsnn>540 then
Getcnn=DateDiff("n",Geth,Gethh)-540
Getchh=9
end if
if Getsnn>600 then
Getcnn=DateDiff("n",Geth,Gethh)-600
Getchh=10
end if
if Getsnn>660 then
Getcnn=DateDiff("n",Geth,Gethh)-660
Getchh=11
end if
if Getsnn>720 then
Getcnn=DateDiff("n",Geth,Gethh)-720
Getchh=12
end if
if Getsnn>780 then
Getcnn=DateDiff("n",Geth,Gethh)-780
Getchh=13
end if
if Getsnn>840 then
Getcnn=DateDiff("n",Geth,Gethh)-840
Getchh=14
end if
if Getsnn>900 then
Getcnn=DateDiff("n",Geth,Gethh)-900
Getchh=15
end if
if Getsnn>960 then
Getcnn=DateDiff("n",Geth,Gethh)-960
Getchh=16
end if
if Getsnn>1020 then
Getcnn=DateDiff("n",Geth,Gethh)-1020
Getchh=17
end if
if Getsnn>1080 then
Getcnn=DateDiff("n",Geth,Gethh)-1080
Getchh=18
end if
if Getsnn>1140 then
Getcnn=DateDiff("n",Geth,Gethh)-1140
Getchh=19
end if
if Getsnn>1200 then
Getcnn=DateDiff("n",Geth,Gethh)-1200
Getchh=20
end if
if Getsnn>1200 then
Getcnn=0
Getchh=DateDiff("h",Geth,Gethh)
end if
Getch=Getchh&" :"&Getcnn
在ASP中
这个能不能用循环语句?想做个时间差的显示,显示时:分下面能否用循环语句,Geth=rs("tihuo_time")Gethh=now()Getsnn=DateDiff("n",Geth,Gethh)if Getsnn60 thenGetcnn=DateDiff("n",Geth,Gethh)-60Getchh=1end if if Getsnn>120 thenGe
if Getsnn<60 then Getcnn=DateDiff("n",Geth,Gethh) Getchh=0 end if
for i=1 to 20
if Getsnn>60*i then Getcnn=DateDiff("n",Geth,Gethh)-60*i Getchh=i
end if
next