Avatar billede puppetmaster Nybegynder
14. april 2005 - 12:28 Der er 3 kommentarer og
1 løsning

Sortere datoer i array

Hvordan gør man det?
Datoerne i arrayet, myArray, er værdier hentet fra en liste (dvs. strenge)
Disse skal vel konverteres til datoer og så på en eller anden måde sorteres...
Avatar billede puppetmaster Nybegynder
14. april 2005 - 13:26 #1
I WordBasic kan man åbenbart bruge følgende:

Sub SortTest()
    Dim ss(2) As String
    Dim i As Long

    ss(0) = "orange"
    ss(1) = "apple"
    ss(2) = "banana"
    WordBasic.SortArray ss()

    For i = 0 To 2
        Debug.Print ss(i)
    Next i

End Sub

Men der er vist ikke en SortArray funktion i VBA (Access), så hvad skal man gøre?
Avatar billede terry Ekspert
14. april 2005 - 13:36 #2
not sure if ther eis any built in fucntions in Access VBA but you could look at this
Sub BubbleSort(ToSort As Variant, Optional SortAscending As Boolean = True)
    ' Chris Rae's VBA Code Archive - http://chrisrae.com/vba
    ' By Chris Rae, 19/5/99. My thanks to
    ' Will Rickards and Roemer Lievaart
    ' for some fixes.
    Dim AnyChanges As Boolean
    Dim BubbleSort As Long
    Dim SwapFH As Variant
    Do
        AnyChanges = False
        For BubbleSort = LBound(ToSort) To UBound(ToSort) - 1
            If (ToSort(BubbleSort) > ToSort(BubbleSort + 1) And SortAscending) _
              Or (ToSort(BubbleSort) < ToSort(BubbleSort + 1) And Not SortAscending) Then
                ' These two need to be swapped
                SwapFH = ToSort(BubbleSort)
                ToSort(BubbleSort) = ToSort(BubbleSort + 1)
                ToSort(BubbleSort + 1) = SwapFH
                AnyChanges = True
            End If
        Next BubbleSort
    Loop Until Not AnyChanges
End Sub
Avatar billede puppetmaster Nybegynder
14. april 2005 - 14:27 #3
Thanks, terry, had to make very few modifications, it works.
Please "post" an answer, so I can award you the points.
Avatar billede terry Ekspert
14. april 2005 - 14:38 #4
tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester