皆さん、こんにちは。山本美孝です。

 何回転目に揃うか(Kaitensu)の予想ができたら、次は投資金額の計算をします。

------------------------------------------------------------
Dim Border As Integer
Border = 30 ’1000円で何回回るのかをボーダーと呼びます

Border = Border / 2 ’500円で何回回るのか

Dim Toushi As Integer
Toushi = (Int(Kaiten ¥ Border) + 1) * 500

If Kaiten Mod Border = 0 Then
  Toushi = Toushi - 500
End If

------------------------------------------------------------

コメント