便利なVBA関数

VBA関数はMicrosoft Excel(マイクロソフト・エクセル)などの表計算ソフトで用いられる。
最小公倍数を求める関数を以下に記します。

【引数の説明】
x,yは最小公倍数を求めるための任意の数値。zはその精度を定める数値です。例えばz=1のときは1/10,z=3のときは1/1000。普通、最小公倍数を求める関数はピタリと一致する公倍数しか求めることが出来ないのに対し、引数zを決めることにより、「大体一致する」程度の公倍数を求めることが出来る。

【使い方】
セル内で、「=koubai(x,y,z)」と入力する。
　例：19.32と8.96の最小公倍数を求める。
=koubai(19.32,8.96,2) の場合、z=2だから、0.01の精度で一致する公倍数を求める。

'コード開始-------------

Function koubai(x, y, z) As Double
Dim a As Double
Dim k(2) As Double

a = x / y
i = 1
Do While a - Int(a) >= 1 / 10 ^ z
a = a + x / y
i = i + 1
Loop
k(0) = a * y

a = y / x
i = 1
Do While a - Int(a) >= 1 / 10 ^ z
a = a + y / x
i = i + 1
Loop
k(1) = a * x

If k(0) > k(1) Then
koubai = k(1)
Else
koubai = k(0)
End If
End Function
'-----------------コード終了

岡本英三
Okamoto Eizo

日本、このアパート家賃の高い国

高齢者だけではなく、すべての人にとって、食べ物と住居費が安ければ例え収入は低くても安楽に暮らすことが出来る。したがって収入の低い人に政府がおカネをばら撒くよりも、如何にしたら食べ物と住居費を低く出来るかを考えるほうが先決だ。

日本は土地を活用しないで遊ばせている地主がいる一方で、アパートなどの家賃が高いために、せっかく年金等を受給したとしても生活が苦しい人たちがいる。そういう食い違い（アンバランス）を無くすためには、遊休不動産をもっと活用させて、アパート建築を促進する必要がある。そうすることによりアパートの供給が増えれば家賃の水準も低下するから、低収入の人たちが暮らしやすくなる。
そのためには遊休不動産の所有者に対する飴と鞭を上手く使うと良い。飴としてはアパート建築に対する優遇税制や所得控除、又は補助金などが挙げられる。他方鞭としては、遊休不動産への課税強化が挙げられる。

家賃などの住居費と食費は所謂固定費に当たり、これを軽減させることが、逆にいえば他方で消費拡大の決め手となる。少ない収入でも、もし家賃や食費が低ければ、その浮いたおカネを他の支出に回すことができるからだ。

左翼系の政党が主張しているように、税を徴収し、それを低所得者に配分するだけでは何も成長したことにはならない。そうではなくて、「食い物と住処にかかる費用は安いから、何の心配も要らない」とすることによって初めて、人々は労働したり文化活動に勤しんだり出来るのである。

　※本来ならば民法を改正して、遺言など、格別の意思表示をしないで亡くなった者の資産は、これを一旦国庫又は自治体の財産とし、そして地元地域を優先に再分配するというのが望ましい。しかしそうする前段階として、「いくら私有財産制が機軸だといっても、不動産を遊ばせたままで長期間保有したり、或いはそれを子孫に相続させたりする独占は、これを許さない」という社会にしなければならない。