ファンクションポイント簡易マクロ - 版の履歴

2020年2月16日 (日) 04:19にPirotoによる

2020-02-16T04:19:45Z

差分を表示

2020年2月15日 (土) 08:32にPirotoによる

2020-02-15T08:32:42Z

2020年2月15日 (土) 08:29にPirotoによる

2020-02-15T08:29:07Z

2020年2月15日 (土) 08:16にPirotoによる

2020-02-15T08:16:52Z

2020年2月15日 (土) 07:59にPirotoによる

2020-02-15T07:59:33Z

Piroto: ページの作成:「==ファンクションポイント簡易マクロ== [ファンクションポイント][Excel VBA] Const KEY_VALUE_DELIM_CHAR = ":" Const TRANSACTIONAL_TYPE_EI…」

2020-02-15T07:29:09Z

ページの作成:「==ファンクションポイント簡易マクロ== [ファンクションポイント][Excel VBA] Const KEY_VALUE_DELIM_CHAR = ":" Const TRANSACTIONAL_TYPE_EI…」

新規ページ

==ファンクションポイント簡易マクロ==
[ファンクションポイント][Excel VBA]

Const KEY_VALUE_DELIM_CHAR = ":"
Const TRANSACTIONAL_TYPE_EI = "EI"
Const TRANSACTIONAL_TYPE_EO = "EO"
Const TRANSACTIONAL_TYPE_EQ = "EQ"

Const TRANSACTIONAL_COMPLEXITY_LOW = "LOW"
Const TRANSACTIONAL_COMPLEXITY_AVG = "AVG"
Const TRANSACTIONAL_COMPLEXITY_HIGH = "HIGH"

'
'トランザクショナルファンクションの複雑度を判定
'
Public Function FP_CALC_COMPLEXITY(TransactionalFunctionType As Range, det As Range, ftr As Range) As String
Dim ft As String
Dim intDet As Integer
Dim intFtr As Integer

ft = Split(TransactionalFunctionType(1, 1).Text, KEY_VALUE_DELIM_CHAR)(0)
intDet = CInt(Val(det(1, 1).Text))
intFtr = CInt(Val(ftr(1, 1).Text))

Select Case ft
Case TRANSACTIONAL_TYPE_EI
ret = CalcComplexityEI(intDet, intFtr)
Case TRANSACTIONAL_TYPE_EO
ret = CalcComplexityEO_EQ(intDet, intFtr)
Case TRANSACTIONAL_TYPE_EQ
ret = CalcComplexityEO_EQ(intDet, intFtr)
End Select

FP_CALC_COMPLEXITY = ret
End Function
Public Function FP_CALC_FUNCTION_POINT(TransactionalFunctionType As Range, complexity As Range) As Integer
Dim ret As String
Dim ft As String
Dim comp As String

ft = Split(TransactionalFunctionType(1, 1).Text, KEY_VALUE_DELIM_CHAR)(0)
comp = UCase(Trim(complexity(1, 1).Text))

Select Case ft
Case TRANSACTIONAL_TYPE_EI
Select Case comp
Case TRANSACTIONAL_COMPLEXITY_LOW
ret = "3"
Case TRANSACTIONAL_COMPLEXITY_AVG
ret = "4"
Case TRANSACTIONAL_COMPLEXITY_HIGH
ret = "6"
End Select
Case TRANSACTIONAL_TYPE_EO
Select Case comp
Case TRANSACTIONAL_COMPLEXITY_LOW
ret = "4"
Case TRANSACTIONAL_COMPLEXITY_AVG
ret = "5"
Case TRANSACTIONAL_COMPLEXITY_HIGH
ret = "7"
End Select
Case TRANSACTIONAL_TYPE_EQ
Select Case comp
Case TRANSACTIONAL_COMPLEXITY_LOW
ret = "3"
Case TRANSACTIONAL_COMPLEXITY_AVG
ret = "4"
Case TRANSACTIONAL_COMPLEXITY_HIGH
ret = "6"
End Select
End Select

FP_CALC_FUNCTION_POINT = CInt(Val(ret))
End Function

'
' EIの複雑度を計算
'
Private Function CalcComplexityEI(det As Integer, ftr As Integer) As String
Dim ret As String

If ftr <= 1 Then
If det <= 4 Then
ret = TRANSACTIONAL_COMPLEXITY_LOW
End If
If 5 <= det And det <= 15 Then
ret = TRANSACTIONAL_COMPLEXITY_LOW
End If
If 16 <= det Then
ret = TRANSACTIONAL_COMPLEXITY_AVG
End If
End If

If ftr = 2 Then
If det <= 4 Then
ret = TRANSACTIONAL_COMPLEXITY_LOW
End If
If 5 <= det And det <= 15 Then
ret = TRANSACTIONAL_COMPLEXITY_AVG
End If
If 16 <= det Then
ret = TRANSACTIONAL_COMPLEXITY_HIGH
End If
End If

If 3 <= ftr Then
If det <= 4 Then
ret = TRANSACTIONAL_COMPLEXITY_AVG
End If
If 5 <= det And det <= 15 Then
ret = TRANSACTIONAL_COMPLEXITY_HIGH
End If
If 16 <= det Then
ret = TRANSACTIONAL_COMPLEXITY_HIGH
End If
End If

CalcComplexityEI = ret
End Function
'
' EO、EQ の複雑度を計算
'
Private Function CalcComplexityEO_EQ(det As Integer, ftr As Integer) As String
Dim ret As String

If ftr <= 1 Then
If det <= 5 Then
ret = TRANSACTIONAL_COMPLEXITY_LOW
End If
If 6 <= det And det <= 19 Then
ret = TRANSACTIONAL_COMPLEXITY_LOW
End If
If 20 <= det Then
ret = TRANSACTIONAL_COMPLEXITY_AVG
End If
End If

If 2 <= ftr And ftr <= 3 Then
If det <= 5 Then
ret = TRANSACTIONAL_COMPLEXITY_LOW
End If
If 6 <= det And det <= 19 Then
ret = TRANSACTIONAL_COMPLEXITY_AVG
End If
If 20 <= det Then
ret = TRANSACTIONAL_COMPLEXITY_HIGH
End If
End If

If 4 <= ftr Then
If det <= 5 Then
ret = TRANSACTIONAL_COMPLEXITY_AVG
End If
If 6 <= det And det <= 19 Then
ret = TRANSACTIONAL_COMPLEXITY_HIGH
End If
If 20 <= det Then
ret = TRANSACTIONAL_COMPLEXITY_HIGH
End If
End If

CalcComplexityEO_EQ = ret

End Function

← 古い版		2020年2月15日 (土) 08:32時点における版
1行目:		1行目:
	==ファンクションポイント簡易マクロ==		==ファンクションポイント簡易マクロ==
−	\| [[ファンクションポイント]] \| [[Excel VBA]]	+	[[ファンクションポイント]] \| [[Excel VBA]] \|

← 古い版		2020年2月15日 (土) 08:29時点における版
1行目:		1行目:
	==ファンクションポイント簡易マクロ==		==ファンクションポイント簡易マクロ==
−	[[ファンクションポイント]][[Excel VBA]]	+	\| [[ファンクションポイント]] \| [[Excel VBA]]

← 古い版		2020年2月15日 (土) 08:16時点における版
1行目:		1行目:
	==ファンクションポイント簡易マクロ==		==ファンクションポイント簡易マクロ==
−	[[ファンクションポイント][Excel VBA]]	+	[[ファンクションポイント]][[Excel VBA]]

@@ 1行目: / 1行目: @@
 ==ファンクションポイント 簡易マクロ==
-[ファンクションポイント][Excel VBA]
+[[ファンクションポイント][Excel VBA]]
@@ 86行目: / 86行目: @@
       Dim ret As String
-      If ftr <= 1 Then
+      If ftr &lt;= 1 Then
-          If det <= 4 Then
+          If det &lt;= 4 Then
               ret = TRANSACTIONAL_COMPLEXITY_LOW
           End If
-          If 5 <= det And det <= 15 Then
+          If 5 &lt;= det And det &lt;= 15 Then
               ret = TRANSACTIONAL_COMPLEXITY_LOW
           End If
-          If 16 <= det Then
+          If 16 &lt;= det Then
               ret = TRANSACTIONAL_COMPLEXITY_AVG
           End If
@@ 99行目: / 99行目: @@
       If ftr = 2 Then
-          If det <= 4 Then
+          If det &lt;= 4 Then
               ret = TRANSACTIONAL_COMPLEXITY_LOW
           End If
-          If 5 <= det And det <= 15 Then
+          If 5 &lt;= det And det &lt;= 15 Then
               ret = TRANSACTIONAL_COMPLEXITY_AVG
           End If
-          If 16 <= det Then
+          If 16 &lt;= det Then
               ret = TRANSACTIONAL_COMPLEXITY_HIGH
           End If
       End If
-      If 3 <= ftr Then
+      If 3 &lt;= ftr Then
-          If det <= 4 Then
+          If det &lt;= 4 Then
               ret = TRANSACTIONAL_COMPLEXITY_AVG
           End If
-          If 5 <= det And det <= 15 Then
+          If 5 &lt;= det And det &lt;= 15 Then
               ret = TRANSACTIONAL_COMPLEXITY_HIGH
           End If
-          If 16 <= det Then
+          If 16 &lt;= det Then
               ret = TRANSACTIONAL_COMPLEXITY_HIGH
           End If
@@ 130行目: / 130行目: @@
       Dim ret As String
-      If ftr <= 1 Then
+      If ftr &lt;= 1 Then
-          If det <= 5 Then
+          If det &lt;= 5 Then
               ret = TRANSACTIONAL_COMPLEXITY_LOW
           End If
-          If 6 <= det And det <= 19 Then
+          If 6 &lt;= det And det &lt;= 19 Then
               ret = TRANSACTIONAL_COMPLEXITY_LOW
           End If
-          If 20 <= det Then
+          If 20 &lt;= det Then
               ret = TRANSACTIONAL_COMPLEXITY_AVG
           End If
       End If
-      If 2 <= ftr And ftr <= 3 Then
+      If 2 &lt;= ftr And ftr &lt;= 3 Then
-          If det <= 5 Then
+          If det &lt;= 5 Then
               ret = TRANSACTIONAL_COMPLEXITY_LOW
           End If
-          If 6 <= det And det <= 19 Then
+          If 6 &lt;= det And det &lt;= 19 Then
               ret = TRANSACTIONAL_COMPLEXITY_AVG
           End If
-          If 20 <= det Then
+          If 20 &lt;= det Then
               ret = TRANSACTIONAL_COMPLEXITY_HIGH
           End If
       End If
-      If 4 <= ftr Then
+      If 4 &lt;= ftr Then
-          If det <= 5 Then
+          If det &lt;= 5 Then
               ret = TRANSACTIONAL_COMPLEXITY_AVG
           End If
-          If 6 <= det And det <= 19 Then
+          If 6 &lt;= det And det &lt;= 19 Then
               ret = TRANSACTIONAL_COMPLEXITY_HIGH
           End If
-          If 20 <= det Then
+          If 20 &lt;= det Then
               ret = TRANSACTIONAL_COMPLEXITY_HIGH
           End If

ファンクションポイント 簡易マクロ - 版の履歴