[發問] 自定函數-選擇權權利金報價單問題

frantz

權利金報價單位       
報價未滿10點：0.1點(5元)
報價10點以上，未滿50點：0.5點(25元)
報價50點以上，未滿500點：1點(50元)
報價500點以上，未滿1,000點：5點(250元)
報價1,000點以上：10點(500元)

小弟參考以上規則自己嘗試利用自定函數方式編寫出以下的寫法
不知道這樣子寫需不需要在修正呢 。
能否請前輩指點一下。
謝謝。

1. Function MyOP(V As String, V1 As Double)
   
2.   
   
3.    If V <= 10 Then
   
4.     MyOP = Round(V1, 1)
   
5.     End If
   
6.    
   
7.     If (Len(V) = 2 Or Len(V) >= 4) Then
   
8.     If V > 10 And V < 50 And Mid(V, 1, 4) >= 0 And Mid(V, 1, 4) <= 4 Then
   
9.     MyOP = Round(V1, 0)
   
10.     ElseIf V > 10 And V < 50 And Mid(V, Len(V), Len(V)) = 5 Then
    
11.     MyOP = Mid(Int(V1), 1, 2) + 0.5
    
12.     ElseIf V > 10 And V < 50 And Mid(V, Len(V), Len(V)) > 5 Then
    
13.     MyOP = Round(V1, 0)
    
14.     End If
    
15.     End If
    
16.    
    
17.    
    
18.    
    
19.    
    
20.     If V <= 100 And V1 >= 50 Then
    
21.     MyOP = Mid(Int(V1), 1, 2) + 1
    
22.    
    
23.     ElseIf V < 500 And V1 > 100 Then
    
24.     MyOP = Mid(Int(V1), 1, 3) + 1
    
25.    
    
26.     ElseIf V <= 1000 And V >= 500 Then
    
27.     MyOP = (Mid(Round(V1, 0), 1, 2) * 10) + 5
    
28.    
    
29.     ElseIf V <= 10000 And V > 1000 Then
    
30.     MyOP = (Mid(Round(V1, 0), 1, 3) * 10) + 10
    
31.     ElseIf V > 10000 Then
    
32.     MyOP = (Mid(Round(V1, 0), 1, 4) * 10) + 10
    
33.    
    
34.     End If
    
35. End Function

複製代碼

frantz

回復 2# GBKEE


    謝謝超版
待會我回去TRY
瞭解當中的不同處

frantz

回復 3# 准提部林


    謝謝前輩
當初會寫這個是因為有用一般公式計算選擇權的撐壓價。
會有在價格大於五十元之後，仍有小數位的問題。
因此想把這些大於五十元之上的數字可以四捨五入進位。
用進位方式去呈現符合規則的數字。
待會回去我一個個TRY看看不同處。

frantz

回復 2# GBKEE
回復 3# 准提部林

謝謝兩位前輩提供的寫法
剛剛測試後，發現寫法呈現出來效果都是一樣。
如我按48.1 或者48.5、48.6等情形時，
出來都是0.5
但如果要四捨五入進位判斷的話。
能不能寫成如下呢?

1. Function MyOP(V)
   
2. MyOP = Switch(V >= 1000, 10, V >= 500, 5, V >= 50, 1, V >= 10, 0.5, V > 0, 0.1)
   
3. 
   
4. If (V > 0 And V <= 10) Then
   
5.   MyOP = V
   
6. End If
   
7.   
   
8. If V > 10 Then
   
9.     If Round(V, 2) - Int(V) = 0 Then
   
10.     MyOP = Int(V)
    
11.     ElseIf (Round(V, 4) - Int(V) >= 0.001 And Round(V, 4) - Int(V) <= 0.5) Then
    
12.     MyOP = Int(V) + MyOP
    
13.     Else
    
14.     MyOP = Round(V, 0)
    
15.     End If
    
16. 
    
17. 
    
18. End If
    
19. End Function

複製代碼

frantz

剛剛小弟自己在重新思考寫法如下
配合規則進行點數計算時，能更貼進規則。
10點以下跳數時，『每跳動』是0.1點計算(計算出來應該是9.5、9.6、9.7)
10點以上未滿50點，『每跳動』是0.5點計算(計算出來應該是10、10.5、11)
50點以上未滿500點，『每跳動』是1點計算(計算出來應該是51、52、53)
500點以上未滿1000點，『每跳動』是5點計算(計算出來應該是500、505、510)
1000點以上時，『每跳動』是10點計算(計算出來應該是1000、1020、1030)

1. Function MyOP(V As Double) As Double
   
2. Dim t, a
   
3. t = Round(V, 4) - Int(V)
   
4.     Select Case V
   
5.         Case Is <= 0
   
6.             a = 0
   
7.         Case Is < 10            '報價未滿10點：0.1點(5元)
   
8.             a = 0.1
   
9.         Case 10 To 49        '報價10點以上，未滿50點：0.5點(25元)
   
10.             a = 0.5
    
11.         Case 50 To 499      '報價50點以上，未滿500點：1點(50元)
    
12.             a = 1
    
13.         Case 500 To 999     '報價500點以上，未滿1,000點：5點(250元)
    
14.             a = 5
    
15.         Case Is > 999    '報價1,000點以上：10點(500元)
    
16.             a = 10
    
17.     End Select
    
18. 
    
19. 
    
20. If (V >= 0 And V < 10) Then
    
21.     Select Case t
    
22.     Case Is <= 0
    
23.         MyOP = 0.1
    
24.     Case Is < 10
    
25.         MyOP = V
    
26.     End Select
    
27. ElseIf (V >= 10 And V < 50) Then
    
28.     Select Case t
    
29.     Case Is <= 0
    
30.         MyOP = Int(V)
    
31.     Case 0.0001 To 0.5
    
32.         MyOP = Int(V) + a
    
33.     Case Is > 0.5
    
34.        MyOP = Round(V, 0)
    
35.     End Select
    
36. ElseIf (V >= 50 And V < 500) Then
    
37.     Select Case t
    
38.     Case Is <= 0
    
39.         MyOP = Int(V)
    
40.     Case 0.0001 To 0.4999
    
41.         MyOP = Int(V)
    
42.     Case Is = 0.5
    
43.        MyOP = Round(V, 0) + a
    
44.     Case Is > 0.5
    
45.        MyOP = Round(V, 0)
    
46.     End Select
    
47. ElseIf (V >= 500 And V < 1000) Then
    
48.     Select Case t
    
49.     Case Is <= 0
    
50.         MyOP = WorksheetFunction.RoundDown(V, -1)
    
51.     Case 0.0001 To 0.4999
    
52.         MyOP = WorksheetFunction.RoundDown(V, -1) + a
    
53.     Case Is = 0.5
    
54.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
    
55.     Case Is > 0.5
    
56.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
    
57.     End Select
    
58. ElseIf V >= 1000 Then
    
59.     Select Case t
    
60.     Case Is <= 0
    
61.         MyOP = WorksheetFunction.RoundDown(V, -1)
    
62.     Case 0.0001 To 0.4999
    
63.         MyOP = WorksheetFunction.RoundDown(V, -1)
    
64.     Case Is = 0.5
    
65.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
    
66.     Case Is > 0.5
    
67.        MyOP = WorksheetFunction.RoundDown(V, -1) + a
    
68.    
    
69.     End Select
    
70. End If
    
71. 
    
72. 
    
73. End Function

複製代碼