玩酷之家

 找回密码
 立即注册
查看: 440|回复: 0

【VB.NET】版本号大小比较

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2020-2-6 10:25:44 | 显示全部楼层 |阅读模式
  1.     Public Function VerComp(sVersion1 As String, sVersion2 As String) As Long
  2.         Dim i As Long, iUbound As Long, iCha As Long
  3.         Dim sTemp As String
  4.         Dim arrVer1() As String, arrVer2() As String
  5.         arrVer1 = Split(sVersion1, ".")
  6.         arrVer2 = Split(sVersion2, ".")

  7.         If (UBound(arrVer1) > UBound(arrVer2)) Then
  8.             iUbound = UBound(arrVer2)

  9.         Else
  10.             iUbound = UBound(arrVer1)

  11.         End If
  12.         '先做都有的节的比较
  13.         For i = LBound(arrVer1) To iUbound
  14.             iCha = Val(arrVer1(i)) - Val(arrVer2(i))
  15.             If (iCha > 0) Then
  16.                 VerComp = 1 : Exit Function
  17.             ElseIf (iCha < 0) Then
  18.                 VerComp = -1 : Exit Function
  19.             End If

  20.         Next
  21.         '都有的节判断完毕,分不出大小
  22.         VerComp = UBound(arrVer1) - UBound(arrVer2)
  23.     End Function
复制代码
相同返回=0,第一个大返回>0,第二个大返回<0
湖边的稻草 1059 Studio
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-4 15:45 , Processed in 1.060802 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表