请教asp时间按大小排列的问题
答案:2 悬赏:0 手机版
解决时间 2021-01-14 12:41
- 提问者网友:川水往事
- 2021-01-14 01:07
请教asp时间按大小排列的问题
最佳答案
- 五星知识达人网友:野慌
- 2021-01-14 01:33
<%
Function NewOrder(sz)
Dim ali,icount,i,ii,j,itemp
ali=split(sz,"|")
icount=UBound(ali)
For i=0 To icount
For j=icount - 1 To i Step -1
If j+1 <= UBound(ali) Then
If int(ali(j)) itemp=ali(j)
ali(j)=ali(j+1)
ali(j+1)=itemp
End If
End If
Next
Next
For ii=0 to Ubound(ali)
If ii = Ubound(ali) Then
NewOrder = NewOrder & ali(ii)
Else
NewOrder = NewOrder & ali(ii) & ","
End If
Next
End Function
%>
<%
str = "23131|21|21|654|1|25|64654|8974654"
response.write NewOrder(str)
%>数字还好,可以直接比对,,日期的话,是不能直接这样比对,可以通过其它办法,
比如datediff函数,或者,,做一个把日期转成时间戳的函数,做成数字时间戳当成数字来比对。
你看着修改吧,用datediff的话,你就搜索一下它的用法,把If int(ali(j))
Function NewOrder(sz)
Dim ali,icount,i,ii,j,itemp
ali=split(sz,"|")
icount=UBound(ali)
For i=0 To icount
For j=icount - 1 To i Step -1
If j+1 <= UBound(ali) Then
If int(ali(j))
ali(j)=ali(j+1)
ali(j+1)=itemp
End If
End If
Next
Next
For ii=0 to Ubound(ali)
If ii = Ubound(ali) Then
NewOrder = NewOrder & ali(ii)
Else
NewOrder = NewOrder & ali(ii) & ","
End If
Next
End Function
%>
<%
str = "23131|21|21|654|1|25|64654|8974654"
response.write NewOrder(str)
%>数字还好,可以直接比对,,日期的话,是不能直接这样比对,可以通过其它办法,
比如datediff函数,或者,,做一个把日期转成时间戳的函数,做成数字时间戳当成数字来比对。
你看着修改吧,用datediff的话,你就搜索一下它的用法,把If int(ali(j))
全部回答
- 1楼网友:行路难
- 2021-01-14 01:45
双重循环可以解决你的问题。追问循环找出最大的值吗?具体怎么弄
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯