请问怎么准确地比较文件的版本号高低
比如某个软件的版本号是5.2.3790.24123,这里有几个点，不可能当成小数比较版本高低，但可能要把他和一个5.11.7883的版本号比较高低，逻辑上应该是后者高。
版本
[解决办法]

Option Explicit

Sub Main()
    Debug.Print CompVer("5.2.3790.24123", "5.2.3790.24123")
    Debug.Print CompVer("5.2.3790.24123", "5.2.3790.999")
    Debug.Print CompVer("5.2.3790.24123", "5.11.7883")
End Sub

Function CompVer(ByVal v1 As String, ByVal v2 As String) As Long
    Dim a1() As String
    Dim a2() As String
    Dim i As Long
    
    a1 = Split(v1, ".")
    a2 = Split(v2, ".")
    For i = 0 To 3
        Select Case Sgn(CInt(a1(i)) - CInt(a2(i)))
            Case -1: GoTo LT
            Case 0
            Case 1: GoTo GT
        End Select
    Next
    
    CompVer = 0
    Exit Function
LT:
    CompVer = -1
    Exit Function
GT:
    CompVer = 1
End Function

[解决办法]
本帖最后由 bcrun 于 2013-01-30 18:47:40 编辑

Dim strVer1 As String, strVer2 As String
Dim strItem1() As String, strItem2() As String
Dim i As Integer, n As Integer, d As Long

strVer1 = "5.2.3790.24123"
strVer2 = "5.11.7883"
strItem1 = Split(strVer1, ".")
strItem2 = Split(strVer2, ".")

n = UBound(strItem1)
If n < UBound(strItem2) Then n = UBound(strItem2)

For i = 0 To n
    If strItem1(i) <> strItem2(i) Then Exit For
Next i

If i < n + 1 Then
    d = CLng(strItem1(i)) - CLng(strItem2(i))
    If d < 0 Then
        MsgBox strVer1 & " < " & strVer2
    Else
        MsgBox strVer1 & " > " & strVer2
    End If
Else
    MsgBox strVer1 & " = " & strVer2
End If