asp如何制作时间数组

[邱嵩松]

比如 早上8点到晚上17点30

按半小时递增，自动生成一个数组
变成值为 8:00 8:30 9:00 9:30 一直到 17:30 的数组

开始和结束时间可以自定义 怎么实现呢？

[二月十六]

定义一个数据，然后获取早上8点到晚上17点30的分钟差，除以30做循环，每次从8点加30分钟，存到数组中

[hookee]

Function getSeq(sStart, sEnd)
    On Error Resume Next
    If Not( IsDate(sStart) And IsDate(sEnd)) Then
        getSeq = Array()
        Exit Function
    End If
    Dim n, t, t1, t2
    Dim a()
    t1 = CDate(sStart)
    t2 = CDate(sEnd)
    If t1 > t2 Then
        t = t1
        t1 = t2
        t2 = t
    End If
    ReDim a(1)
    a(0) = t1
    t = t1
    Do While t <= t2
        t = DateAdd("n", 30, t)
        If t <= t2 Then
            n = UBound(a) + 1
            ReDim Preserve a(n+1)
            a(n) = t
        End If
    Loop
    getSeq = a
End Function

Dim i, a
a = getSeq("8:30", "12:30")
For i = 0 To UBound(a)
    Response.Write a(i)
Next