VB2010用こよみ情報取得関数
¥16,500