请教如何时间排序，取得最早时间和最晚时间？

以下是引用风吹过b在2023-5-14 13:04:14的发言：

用控件吧。
listbox 支持排序，
写一个子函数来调用吧
还有一个最后一个是怎么回事？  00:00 ，不是最小吗？？

Option Explicit

'窗体上放一个 listbox1 ，sotred 属性设为了 true
Private Type jg
    a As Variant
    b As Variant
End Type

Private Sub Command1_Click()
Dim j As jg
Dim a, b, c, d
a = "10:18 11:49 13:37 15:09 19:48 "
b = "08:29 18:19 18:20 18:23 "
c = "08:39 08:41 07:21 08:30 08:20 19:47 08:47 "
d = "14:48 16:07 15:48 19:20 14:10 00:00 "

j = minmax(a)
Print j.a, j.b
j = minmax(b)
Print j.a, j.b
j = minmax(c)
Print j.a, j.b
j = minmax(d)
Print j.a, j.b

End Sub

Private Function minmax(s As Variant) As jg
Dim f() As String
Dim i As Long
f = Split(s, " ")
List1.Clear
For i = 0 To UBound(f)
    If Len(f(i)) > 0 Then
        List1.AddItem f(i)
    End If
Next i
minmax.a = List1.List(0)
minmax.b = List1.List(List1.ListCount - 1)
End Function