23/10/05 04:00:15.23 xIPl72Do.net
>>710
こまかい条件省くとこんな感じじゃね
Function pow(x As Currency, y As Integer) As Variant
Dim i As Integer
Dim ret As Variant
ret = CDec(x)
For i = 1 To y - 1
ret = ret * CDec(x)
Next
pow = ret
End Function
Decimalは直接定義できないからVariantで宣言してる