6_5.[N O P Q R]

VB/VBAの 組み込み関数 TOP-Pageへ

こちらも役に立つ情報
各関数の使用例
Now
コンピューターの システムの日付 と時刻に応じて現在の日付と時刻を指定するバリアント型 (Date) の値を返します
Now
記述凡例
MsgBox Now
NPer
定額の支払いを定期的に行い、利率が一定であると仮定して、投資に必要な期間 (支払回数) を指定する Double を返します
NPer(rate, pmt, pv, [ fv, [ type ]])
rate [必須] 投資の利率を示す倍精度浮動小数点型 ( Double ) の値を指定します
pmt [必須] 毎回の支払額を指定する Double
pv [必須] 将来行われる一連の支払いまたは受領の現在価値 (現時点での価値) を指定する Double
fv [省略可] バリアント型 (Variant) 将来価値、つまり、最後の支払い後の収支の希望額を指定します
type [省略可] 支払期日を示すバリアント型 ( Variant ) の値
記述凡例
Dim FVal, PVal, APR, Payment, PayType, TotPmts
Const ENDPERIOD = 0, BEGINPERIOD = 1
FVal = 0
PVal = InputBox("いくら借りたいですか?")
APR = InputBox("あなたのローンの年率はいくらですか?")
If APR > 1 Then APR = APR / 100
Payment = InputBox("毎月いくら返済しますか?")
PayType = MsgBox("支払いは月末ですか?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)
If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1
MsgBox "ローンの返済には " & TotPmts & "ケ月かかります"
NPV
一連の定期的なキャッシュ フロー (支払と受取) と割引率に基づいて投資の正味現在価値を示す、Double を返します
NPV(rate, values())
rate [必須] 期間の割引率を小数で表す Double です。
values() [必須] キャッシュ フロー値を指定する Double の 配列です
NPV 関数は、投資の現在価値を返す PV 関数と似ていますが、PV 関数はキャッシュ フローが期首と期末のどちらで開始されてもかまわないという点で異なります。 NPV のキャッシュ フロー値とは異なり、PV のキャッシュ フローは投資期間を通じて一定である必要があります
記述凡例
Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double
Fmt = "###,##0.00"
Guess = 0.1
RetRate = 0.0625
Values(0) = -70000
Values(1) = 22000: Values(2) = 25000
Values(3) = 28000: Values(4) = 31000
NetPVal = NPV(RetRate, Values())
Msg = "これらのキャッシュフローの正味現在価値は次のとおりです "
Msg = Msg & Format(NetPVal, Fmt) & "."
MsgBox Msg
Oct
数値を 8 進数で表す Variant (String) を返します
Oct(number)
number [必須] 任意の有効な 数式または 文字列式です
記述凡例
MsgBox Oct(4)     ' Returns 4.
MsgBox Oct(8)    ' Returns 10.
MsgBox Oct(459)    ' Returns 713.
Partition
文字
記述凡例
Pmt
文字
記述凡例
PPmt
文字
記述凡例
PV
文字
記述凡例
QBColor
文字
記述凡例
Rate
文字
記述凡例
Replace
文字
記述凡例
その他
RGB
文字
記述凡例
Right
文字
記述凡例
RightB
文字
記述凡例
Rnd
文字
記述凡例
Round
文字
記述凡例
RTrim
指定した文字列の末尾のスペースを除いたコピー
関連[LTrim][Trim]
Rrim(string)
必須の string 引数は、任意の有効な 文字列式です。 string に Null が含まれている場合は Null が返されます
記述凡例
Dim StrVal
StrVal = "  Trim  "
MsgBox "LTrim = [" & LTrim(StrVal) & "]"
MsgBox "RTrim = [" & RTrim(StrVal) & "]"
MsgBox "Trim = [" & Trim(StrVal) & "]"