Access VBA 質問スレ Part2 (788レス)
上下前次1-新
抽出解除 レス栞
708(1): デフォルトの名無しさん [sage] 2023/10/05(木) 01:14:56.61 ID:6f6nA7M7(1) AAS
>>706
CurrencyかDecimalでべき乗する関数ってどのような?
709(1): デフォルトの名無しさん [sage] 2023/10/05(木) 04:00:15.23 ID:xIPl72Do(1/2) AAS
>>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で宣言してる
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 1.289s*