Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果不用辅助列判断两个等级所在的档次


  共有790人关注过本帖树形打印复制链接

主题：如果不用辅助列判断两个等级所在的档次
帅哥哟，离线，有人找我吗？
zhangchi96
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：551 积分：5001 威望：0 精华：0 注册：2012/2/11 13:27:00 		如果不用辅助列判断两个等级所在的档次  发帖心情 Post By：2023/12/10 21:35:00 [只看该作者]

现有产品的档次 ： 一档 、 二挡 、三档 、四挡 、五档、六档 、七档、八档、九档 ，一档为最高、九档最低

其中
         高级 包含 ：一档 、二挡 、三档 
         中级 包含：四挡 、五档、六档
         初级 包含：七档、八档、九档

定义两个档次：A 、B  

im A As String

Dim B As String


这里A和B ，是一档 、 二挡 、三档 、四挡 、五档、六档 、七档、八档、九档 中的任意一个
如果A<> B, 在不用辅助列的情况下：
(1) 如何判断A、B 是同一个级别里的，或者不同一个级别，如  A = 三档，B = 五档，那么因为A是高级，B属于中级，A比B高一级
                                                                            如  A = 四档，B = 五档，那么因为A是中级级，B属于中级，A和B同一级
(2) 如果A和B是同一级别，怎么判断A比B高一档，如如  A = 四档，B = 五档，那么因为A是中级，B属于中级，A与B同一级 ，但判断出A比B高一档
                                                                            
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106665 积分：542508 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/10 22:20:00 [只看该作者]

Dim 档次() As String = {"一档", "二挡", "三档", "四挡", "五档", "六档", "七档", "八档", "九档"}

Dim a As String = "三档"
Dim b As String = "五档"

Dim a1 As Integer = Array.IndexOf(档次, a)
Dim b1 As Integer = Array.IndexOf(档次, b)

If (a1 < 3 AndAlso b1 > 2) OrElse (a1 < 6 AndAlso b1 > 5) Then
    MsgBox("不同级")
Else
    MsgBox("同级")
End If
If a1 = b1 Then
    MsgBox("同档")
Else
    MsgBox(IIf(a1 > b1, "b", "a") & "高一档")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02930 秒, 4 次数据查询