获取版本号及判断是否运行版本

贴两个函数,用来获取版本号及判断是否运行版本:

Function GetAccessVersion() As String   '获取版本号

  GetAccessVersion =SysCmd(acSysCmdAccessVer)

End Function



Function IsRuntime()                            '判断是否运行版本         

On Error GoTo ErrIsRuntime

IsRuntime =SysCmd(6)

ExitIsRuntime:

         Exit Function



ErrIsRuntime:

    If (Err =5) Then

        IsRuntime =False

    Else

        Error Err

    End If

    Resume ExitIsRuntime

End Function