'枠番作成関数

Function Waku_Calc(tousuu As Byte, Umaban As Byte) As Byte

'9〜15頭立て用に１頭のみの枠数を算出

    Dim A As Byte

    A = 8 - (tousuu - 8 * Int(tousuu / 8))



'16頭立て以上の処理

'(15番は18頭立てのみ7枠、それ以外は8枠。17､18番は必ず8枠)

    If tousuu >= 16 Then

        Waku_Calc = Int((Umaban + 1) / 2)

        If Umaban = 15 Then

            If tousuu = 18 Then

                Waku_Calc = 7

            End If

        ElseIf Umaban > 16 Then

            Waku_Calc = 8

        End If

'8頭立て以下の処理

    ElseIf tousuu <= 8 Then

        Waku_Calc = Umaban

'9〜15頭立て以下の処理

    ElseIf Umaban <= A Then

        Waku_Calc = Umaban

    Else

        Waku_Calc = Int((Umaban + 1 + A) / 2)

    End If

End Function