投稿日 | : 2004/09/07(Tue) 17:49 |
投稿者 | : 黒影 |
Eメール | : |
URL | : |
タイトル | : Re^4: これはどぉ? |
こんなのは?
kazuやんさんの最初のコードをちょっぴり改造しただけですが...(^^;)
'**********************************************************
'* pMin2 :引数の中で最小の正値を返す。但し3つとも0なら0を返す
'* i,j,k :いずれも、0または正整数
'* 戻り値 :最小の値、又は0
'**********************************************************
Function pMin2(i As Integer, j As Integer, k As Integer) As Integer
Dim min As Integer '最小値
'全て0の場合
If (i Or j Or k) = 0 Then
pMin2 = 0
Else
'最小値初期設定
min = i
If (min > j) Then
min = IIf(j = 0, min, j)
Else
min = IIf(min = 0, j, min)
End If
If (min > k) Then
min = IIf(k = 0, min, k)
Else
min = IIf(min = 0, k, min)
End If
pMin2 = min
End If
End Function