求一个排序的算法？
一个数组如下：
a=Array("8/1/2005 3:48:44 AM","7/29/2005 2:01:45 AM","4/5/2005 11:05:02 AM")
数组长度可变，求离现在时间最近的值
上面数组中"8/1/2005 3:48:44 AM"就是我要得到的值......
问题点数：88、回复次数：5Top
1 楼tigerwen01（小虎）回复于 2005-08-01 17:02:21 得分 8
使用split函数和for..next循环来取数组的值，然后在根据你的需要来判断。Top
2 楼syre（神仙）回复于 2005-08-01 17:03:57 得分 8
这个不用排序啊
s=a(0)
for i=a.lbound+1 to a.ubound
if a(i)>s then s=a(i)
next
response.write sTop
3 楼hbhbhbhbhb1021（天外水火(我要多努力)）回复于 2005-08-01 17:04:23 得分 8
对数组进行遍历，然后转换成日期类型，比较Top
4 楼ghaihua（晨昕）回复于 2005-08-01 17:23:30 得分 64
我写了一个，应该没错，但不知道与你要的是不是一样，你试试
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
Dim a
Dim Small
Dim flag
a=Array("8/1/2005 3:48:44 AM","7/29/2005 2:01:45 AM","4/5/2005 11:05:02 AM")
Small = Datediff("s",a(0),Now())
falg = 0
For i=LBound(a)+1 to UBound(a)
Response.Write(Datediff("s",a(i),Now())&"<br>"&i&"<br>")
if Small>Datediff("s",a(i),Now()) then falg = i
next
Response.Write("最现在最近的时候为a("&falg&"):"&a(falg))
%>
</body>
</html>Top
5 楼xhbmj（《升龙道》）回复于 2005-08-03 16:14:08 得分 0
这个排序不对Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
