現物株式一日定額の売買手数料の比較

株 コンピューター

現物の日計りでかならずその日の内に手じまうことを想定。

約定代金 オリックス 岩井 SBI 楽天 松井 立花 SMBCフレンド定額プラン
片道 往復 ジャスダック以外 ジャスダック A (3150円/10回) B (6300円/30回) C (10500円/60回)
5 10 315 84 100 450 0 250 271 630 420 350
10 20 315 84 200 450 315 250 292 630 420 350
15 30 315 168 300 450 315 250 313 630 420 350
20 40 315 168 450 450 525 250 334 630 420 350
25 50 315 252 450 450 525 250 355 630 420 350
30 60 315 252 800 450 1050 500 626 630 420 350
40 80 315 336 800 450 1050 500 668 630 420 350
50 100 315 420 800 450 1050 500 710 630 420 350
60 120 840 504 1220 900 2100 750 1002 630 420 350
70 140 840 588 1220 900 2100 750 1044 630 420 350
80 160 840 672 1220 900 2100 750 1086 630 420 350
90 180 840 756 1220 900 2100 750 1128 630 420 350
100 200 840 840 1220 900 2100 750 1170 630 420 350
150 300 1680 1680 1640 2100 3150 1000 1630 630 420 350
200 400 1680 1680 2060 2100 4200 1250 2090 630 420 350
250 500 2520 2520 2480 3150 5250 1500 2550 630 420 350
300 600 2520 2520 2900 3150 6300 1750 3010 630 420 350
400 800 3360 3360 3740 4200 8400 2250 3930 630 420 350
500 1000 4200 4200 4580 5250 10500 2750 4850 630 420 350
600 1200 5040 5040 5420 6300 12600 3250 5770 630 420 350
700 1400 5880 5880 6260 7350 14700 3750 6690 630 420 350
800 1600 6720 6720 7100 8400 16800 4250 7610 630 420 350
900 1800 7560 7560 7940 9450 18900 4750 8530 630 420 350
1000 2000 8400 8400 8780 10500 21000 5250 9450 630 420 350
Excel で計算した。プログラムはつぎのとおり。

Option Explicit

' すべての Function の引数は、片道分の約定代金合計。

Public Function Orix(ByVal x As Long) As Long
    Dim y As Long
    If x <= 50 Then
        y = 315
    Else
        y = WorksheetFunction.Ceiling(x, 100) / 100 * 840
    End If
    Orix = y
End Function

Public Function Iwai(ByVal x As Long) As Long
    Dim y As Long
    If x <= 100 Then
        y = WorksheetFunction.Ceiling(x, 10) / 10 * 84
    ElseIf x <= 12400 Then
        y = WorksheetFunction.Ceiling(x, 100) / 100 * 840
    Else
        y = 105000
    End If
    Iwai = y
End Function

Public Function Tachibana(ByVal x As Long, ByVal jasdaq As Boolean) As Long
    ' 往復の合計に変換する。
    x = x * 2
    Dim y As Long
    If x <= 50 Then
        y = 250
    Else
        y = 250 + WorksheetFunction.Ceiling(x, 100) / 100 * 250
    End If
    If jasdaq Then
        ' 万円単位を円単位に変換する。
        y = y + CLng(Int(CDbl(x * 10000) * 0.00021))
    End If
    Tachibana = y
End Function

Public Function Sbi(ByVal x As Long) As Long
    ' 往復の合計に変換する。
    x = x * 2
    Dim y As Long
    If x <= 10 Then
        y = 100
    ElseIf x <= 20 Then
        y = 200
    ElseIf x <= 30 Then
        y = 300
    ElseIf x <= 50 Then
        y = 450
    ElseIf x <= 100 Then
        y = 800
    Else
        y = 800 + WorksheetFunction.Ceiling(x - 100, 100) / 100 * 420
    End If
    Sbi = y
End Function

Public Function Matsui(ByVal x As Long) As Long
    ' 往復の合計に変換する。
    x = x * 2
    Dim y As Long
    If x <= 10 Then
        y = 0
    ElseIf x <= 30 Then
        y = 315
    ElseIf x <= 50 Then
        y = 525
    ElseIf x <= 100 Then
        y = 1050
    ElseIf x <= 200 Then
        y = 2100
    ElseIf x <= 10000 Then
        y = WorksheetFunction.Ceiling(x, 100) / 100 * 1050
    Else
        y = 105000
    End If
    Matsui = y
End Function

Public Function Rakuten(ByVal x As Long) As Long
    Dim y As Long
    If x <= 50 Then
        y = 450
    ElseIf x <= 100 Then
        y = 900
    ElseIf x <= 200 Then
        y = 2100
    Else
        y = WorksheetFunction.Ceiling(x, 100) / 100 * 1050
    End If
    Rakuten = y
End Function