Access VBA 質問スレ Part2

[709 デフォルトの名無しさん 2023/10/05(木) 04:00:15.23 ID:xIPl72Do]

>>708
こまかい条件省くとこんな感じじゃね
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で宣言してる