[RESOLVED] List of Time Zones in right order

[Hassan Basri]

Hello, I am trying to list in a combo-box (like in the Time Zone tab of the "Date and Time Properties" of windows).

I am able to this using this code:

http://vbnet.mvps.org/index.html?cod...onedisplay.htm

However the results are not in order. Anybody know how to sort them?

[techgnome]

If you sort it by Display Name or Std Basis, it will be.

-tg

[westconn1]

what order do you want them in? i have code to sort them by gmt offset

[Hassan Basri]

Hello Westconn,

I want it in the same order as in Windows Which is by GMT as in -12,-11...0...11, 12

Thanks for your assistance.

[westconn1]

this is the code that was given to me to sort the array of timezones and i am using

Private Sub SortArray(ByRef sArray() As String)
Dim i         As Long
Dim ArrTemp() As Long
 
    ReDim ArrTemp(UBound(sArray))
    For i = LBound(sArray) To UBound(sArray)
        ArrTemp(i) = Val(Trim$(Mid(sArray(i), 5, 6)))
    Next
    BubbleSortNumbers ArrTemp, sArray
End Sub
 
Private Sub BubbleSortNumbers(varray() As Long, vRealarray() As String)
   
   Dim cnt1     As Long
   Dim cnt2     As Long
   Dim tmp      As Long
   Dim tmpStr   As String
         For cnt1 = UBound(varray) To LBound(varray) Step -1
 
      For cnt2 = LBound(varray) + 1 To cnt1
      
      If varray(cnt2 - 1) > varray(cnt2) Then
         'Switch Positions array
         tmp = varray(cnt2 - 1)
         varray(cnt2 - 1) = varray(cnt2)
         varray(cnt2) = tmp
         'Switch real array
         tmpStr = vRealarray(cnt2 - 1)
         vRealarray(cnt2 - 1) = vRealarray(cnt2)
         vRealarray(cnt2) = tmpStr
      End If
            Next cnt2
 
   Next cnt1
End Sub
 
' call like this
        opentimezonelist  ' sub to return array of timezones
        
        Dim arrsort() As String
        ReDim arrsort(UBound(arrdisplay))  ' array of returned timezones
        arrsort = arrdisplay
        
        SortArray arrsort
        For i = 0 To UBound(arrsort)
            List1.AddItem arrsort(i)
        Next

[Hassan Basri]

Thanks westconn1 works perfectly.

[Hassan Basri]

Hello westconn1, I added a small piece of code to your code so after the items are sorted using GMT, I do a secondary alphabetical sort. All I did was add an extra condition in the BubbleSortNumbers function where the GMT are identical. Here is the code:

Private Sub SortArray(ByRef strArray() As String)
 
Dim iCounter As Integer
Dim lngArrayTmp() As Long
 
On Error Resume Next
 
ReDim lngArrayTmp(UBound(strArray))
 
For iCounter = LBound(strArray) To UBound(strArray)
    lngArrayTmp(iCounter) = Val(Trim$(Mid$(strArray(iCounter), 5, 6)))
Next
 
Call BubbleSortNumbers(lngArrayTmp, strArray)
 
End Sub
 
Private Sub BubbleSortNumbers(lngArray() As Long, strArray() As String)
   
Dim iCounter As Integer
Dim jCounter As Integer
Dim lngTmp As Long
Dim strTmp As String
 
On Error Resume Next
 
For iCounter = UBound(lngArray) To LBound(lngArray) Step -1
    For jCounter = (LBound(lngArray) + 1) To iCounter
        If lngArray(jCounter - 1) > lngArray(jCounter) Then
            'Switch Positions array
            lngTmp = lngArray(jCounter - 1)
            lngArray(jCounter - 1) = lngArray(jCounter)
            lngArray(jCounter) = lngTmp
            'Switch real array
            strTmp = strArray(jCounter - 1)
            strArray(jCounter - 1) = strArray(jCounter)
            strArray(jCounter) = strTmp
        ElseIf lngArray(jCounter - 1) = lngArray(jCounter) Then
            If StrComp(strArray(jCounter - 1), strArray(jCounter), vbTextCompare) = 1 Then
                'Switch Positions array
                lngTmp = lngArray(jCounter - 1)
                lngArray(jCounter - 1) = lngArray(jCounter)
                lngArray(jCounter) = lngTmp
                'Switch real array
                strTmp = strArray(jCounter - 1)
                strArray(jCounter - 1) = strArray(jCounter)
                strArray(jCounter) = strTmp
            End If
        End If
    Next jCounter
Next iCounter
   
End Sub