Untitled
unknown
plain_text
a year ago
12 kB
5
Indexable
For RE = 1 To 2
num = 0
test_Pay_Type(0) = 0
For TTP = 1 To 2
test_TTP(0) = TTP
For CC = 1 To NN_C
test_CC(0) = CC
X1 = Sheets("Setup").Cells(8, 7 + CC)
X2 = Sheets("Setup").Cells(9, 7 + CC)
NN = Sheets("Setup").Cells(6, 7 + CC)
WW = Sheets("Setup").Cells(10, 7 + CC)
For MF = 1 To 2
If MF = 1 Then SEX$ = "M" Else SEX$ = "F"
test_MF(0) = MF
For X = X1 To X2
test_X(0) = X
If NN = 1 Then
test_Pay_Type(0) = 1
ptype = "single"
Else
test_Pay_Type(0) = test_Pay_Type(0) Mod 4 + 1
If test_Pay_Type(0) = 1 Then
ptype = "year"
ElseIf test_Pay_Type(0) = 2 Then
ptype = "halfyear"
ElseIf test_Pay_Type(0) = 3 Then
ptype = "season"
ElseIf test_Pay_Type(0) = 4 Then
ptype = "month"
End If
End If
For Dis1 = 1 To 7
If Sheets("Setup").Cells(12, 4) = 1 Then RR_end = 2 Else RR_end = 1
For RR = 1 To RR_end
If (NN = 1 And RR = 2) Or NN <> 1 Then
num = num + 1
If RE = 1 Then num1 = num1 + 1
If RE = 2 Then
'增值回饋分享金選擇方式
test_RD(1) = RR
test_RD(2) = test_RD(2) Mod 4 + 1
'If NN <= Sheets("試算表").Cells(17, 2) And test_RD(2) = 1 Then test_RD(2) = test_RD(2) + 1
If test_RD(1) = 1 Then RD_1 = "PMST" Else RD_1 = "PUAD" '第1~5年回饋金選擇
If test_RD(2) = 1 Then '第6年後回饋金選擇
RD_2 = "PMST"
ElseIf test_RD(2) = 2 Then
RD_2 = "PUAD"
ElseIf test_RD(2) = 3 Then
RD_2 = "DVAC"
ElseIf test_RD(2) = 4 Then
RD_2 = "CSWD"
End If
'宣告利率
' If HKLL_num >= 1 And num <= (num1 / 2) * 1 / HKLL_num Then
' RI = 1
' ElseIf HKLL_num >= 2 And num <= (num1 / 2) * 1 / HKLL_num + ((num1 / 2) * 2 / HKLL_num - (num1 / 2) * 1 / HKLL_num) * (1 / 10) Then
' RI = 2
' ElseIf HKLL_num >= 3 And num <= (num1 / 2) * 3 / HKLL_num Then
' RI = 3
' ElseIf HKLL_num >= 4 And num <= (num1 / 2) * 4 / HKLL_num + ((num1 / 2) * 5 / HKLL_num - (num1 / 2) * 4 / HKLL_num) * (9 / 10) Then
' RI = 4
' ElseIf HKLL_num >= 5 And num <= (num1 / 2) * 5 / HKLL_num Then
' RI = 5
' ElseIf HKLL_num >= 1 And num <= (num1 / 2) * (HKLL_num + 1) / HKLL_num Then
' RI = 1
' ElseIf HKLL_num >= 2 And num <= (num1 / 2) * (HKLL_num + 1) / HKLL_num + ((num1 / 2) * (HKLL_num + 2) / HKLL_num - (num1 / 2) * (HKLL_num + 1) / HKLL_num) * (1 / 10) Then
' RI = 2
' ElseIf HKLL_num >= 3 And num <= (num1 / 2) * (HKLL_num + 3) / HKLL_num Then
' RI = 3
' ElseIf HKLL_num >= 4 And num <= (num1 / 2) * (HKLL_num + 4) / HKLL_num + ((num1 / 2) * (HKLL_num + 5) / HKLL_num - (num1 / 2) * (HKLL_num + 4) / HKLL_num) * (9 / 10) Then
' RI = 4
' Else
' RI = 5
' End If
'保額
If TTP = 1 Then
If num = 1 Or test_SA(0) = max_SA / 10000 Or (X <= 15 And test_SA(0) = max_SA_15 / 10000) Then
test_SA(0) = min_SA / 10000 + temp * 1111 / 10000
temp = temp + 1
Else
If X > 15 Then
test_SA(0) = Round(WorksheetFunction.min(test_SA(0) + 0.8 + unit / 10000, max_SA / 10000), 4)
Else
test_SA(0) = Round(WorksheetFunction.min(test_SA(0) + 0.8 + unit / 10000, max_SA_kid / 10000), 4)
End If
End If
Else
Erase test_SA
If num = (num1 - 1) / 2 + 1 Or SA_O >= max_SA / 10000 Or (X <= 15 And SA_O >= max_SA_kid / 10000) Then
SA_O = min_SA / 10000
ElseIf X <= 15 Then
SA_O = Round(min(SA_O + 1.1 + unit / 10000, max_SA_kid / 10000), 4)
Else
SA_O = Round(min(SA_O + 10.1 + unit / 10000, max_SA / 10000), 4)
End If
End If
'保費
If TTP = 2 Then
If num = (num1 - 1) / 2 + 1 Then test_GP1(0) = Round(G(MF, CC, X) * SA_O, 0) Else test_GP1(0) = Round(G(MF, CC, X) * SA_O, 0)
Else
Erase test_GP1
End If
If CAREER + 1 > 6 Then CAREER = 1 Else CAREER = CAREER + 1
test_HKLL(0) = Sheets("Setup").Cells(80, 3 + RI)
Sheets("腳本").Cells(num + 1, 1) = num
Sheets("腳本").Cells(num + 1, 2) = CURR '幣別
Sheets("腳本").Cells(num + 1, 3) = ptype '繳別
Sheets("腳本").Cells(num + 1, 4) = Dis1 '折扣組
Sheets("腳本").Cells(num + 1, 5) = "True" '主約
Sheets("腳本").Cells(num + 1, 6) = Plancode1 'Plancode
Sheets("腳本").Cells(num + 1, 7) = Plancode2 '英文簡稱
Sheets("腳本").Cells(num + 1, 8) = "O" '投保對象
Sheets("腳本").Cells(num + 1, 9) = "test" '姓名
Sheets("腳本").Cells(num + 1, 10) = SEX$ '性別
Sheets("腳本").Cells(num + 1, 11) = X '保險年齡
Sheets("腳本").Cells(num + 1, 12) = X '足歲年齡
Sheets("腳本").Cells(num + 1, 13) = "N" '判斷職業代碼
Sheets("腳本").Cells(num + 1, 14) = CAREER '職業等級
Sheets("腳本").Cells(num + 1, 15) = NN '繳費年期
Sheets("腳本").Cells(num + 1, 16) = Sheets("Setup").Cells(10, 7 + CC) & "@" '保障年期
If TTP = 1 Then
Sheets("腳本").Cells(num + 1, 21) = test_SA(0) * 10000 '保額
Else
Sheets("腳本").Cells(num + 1, 22) = test_GP1(0) '保費
End If
If Sheets("Setup").Cells(9, 3) = 1 Then
Sheets("腳本").Cells(num + 1, 23) = test_HKLL(0) * 100 '宣告利率
Sheets("腳本").Cells(num + 1, 24) = RD_1 '回饋金選擇方式1
Sheets("腳本").Cells(num + 1, 25) = RD_2 '回饋金選擇方式2
End If
End If
Next RR
Next Dis1
Next X
Next MF
End If
Next CC
Next TTP
Next RE
Editor is loading...
Leave a Comment