关于双色球中奖等级的判断！(有新问题了)(已解决)

sxgaobo

请教！如何用自己选择的号码与公布的中奖号码对应判断出有几个中奖，中的几等奖啊？

todaynew

写个函数比对一下就完事了

sxgaobo

{:soso_e115:}怎么写啊，版主出手好吗？

todaynew

sxgaobo 发表于 2012-10-8 22:14
怎么写啊，版主出手好吗？

Function n(str0 As String, str1 As String) As Long
    Dim Arr0, Arr1
    Dim i As Long
    Dim m As Long
    Arr0 = Split(str0, "-")
    Arr1 = Split(str1, "-")
    m = 0
    For i = 0 To 5
        If Arr1(i) <> Arr0(i) Then
            Exit For
        End If
        m = m + 1
    Next
    Select Case m
        Case 6
            m = 2 + (Arr1(6) = Arr0(6))
        Case 5
            m = 4 + (Arr1(6) = Arr0(6))
        Case 4
            m = 5 + (Arr1(6) = Arr0(6))
        Case 3
            m = 5 + (Arr1(6) <> Arr0(6)) * 5
        Case 0, 1, 2
            m = 6 + (Arr1(6) <> Arr0(6)) * 6
    End Select
    n = m
End Function

SELECT 号码, 时间, n("08-16-18-20-26-32-09",[号码]) AS 中奖等级
FROM 自己选中号码;

sxgaobo

{:soso_e100:}{:soso_e179:}版主真高人也~~~！！！

sxgaobo

{:soso_e115:}版主，存在问题啊！
如公布的中奖号码为：
01-04-20-24-28-29-16
自己选择的号码为：
01-04-05-28-29-30-10，应为5等奖，看判断的是0
01-04-10-28-29-30-16，应为4等奖，可判断的是6等
号码不分顺序，有皆为中
规则：
一等奖 ：7个号码相符（6个红色球号码和1个蓝色球号码）（红色球号码顺序不限，下同）
二等奖 ：6个红色球号码相符；
三等奖 ：5个红色球号码和1个蓝色球号码相符；
四等奖 ：5个红色球号码或4个红色球号码和1个蓝色球号码相符；
五等奖 ：4个红色球号码或3个红色球号码和1个蓝色球号码相符；
六等奖 ：1个蓝色球号码相符（有无红色球号码相符均可）。

todaynew

sxgaobo 发表于 2012-10-12 10:11
版主，存在问题啊！
如公布的中奖号码为：
01-04-20-24-28-29-16

按规则改一下函数不就完事了

sxgaobo

不好意思，您那函数真有些看不懂啊！！！

andymark

建立中奖规则表，如图



计算红球中奖个数：

1. Function GetRedCount(str0 As String, str1 As String) As Integer
   
2.   Dim Arr0, Arr1
   
3.   Dim i As Integer
   
4.   Dim J As Integer
   
5.   Dim m As Integer
   
6.   Arr0 = Split(str0, "-")
   
7.   Arr1 = Split(str1, "-")
   
8.   m = 0
   
9.   For i = 0 To 5
   
10.    For J = 0 To 5
    
11.       If Arr0(i) = Arr1(J) Then
    
12.          m = m + 1
    
13.          Exit For
    
14.       End If
    
15.     Next J
    
16.   Next i
    
17. GetRedCount = m
    
18. End Function
    

复制代码

计算蓝球中奖个数：

1. 
   
2. Function GetBlueCount(str0 As String, str1 As String) As Integer
   
3.   Dim Arr0, Arr1
   
4. 
   
5.   Dim m As Integer
   
6.   Arr0 = Split(str0, "-")
   
7.   Arr1 = Split(str1, "-")
   
8.   m = 0
   
9.   If Arr0(6) = Arr1(6) Then
   
10.      m = 1
    
11.   End If
    
12. GetBlueCount = m
    
13. End Function

复制代码

查询中奖情况：

1. SELECT 等级
   
2. FROM 中奖规则
   
3. WHERE 红球中奖个数=GetRedCount("01-04-10-28-29-30-10", "01-04-20-24-28-29-16") and 蓝球中奖个数=GetBlueCount("01-04-10-28-29-30-10", "01-04-20-24-28-29-16");

复制代码

sxgaobo

谢谢 andymark ！！！
{:soso_e179:}