アプリ版:「スタンプのみでお礼する」機能のリリースについて

以下のプログラムを実行するとText1の内容は0.6999969となります
0.7となるプログラミング方法があれば教えて下さい

Private Sub Command1_Click()
Dim u1 As Single
Dim u2 As Single
Dim u3 As Single
u1 = 234.3
u2 = 235
u3 = u2 - u1
Text1 = u3
End Sub

以上宜しくお願いします

A 回答 (2件)

宣言を「Currency」型に。

    • good
    • 0
この回答へのお礼

早速回答頂きまして有り難うございました
おかげさまで解決しました

お礼日時:2006/12/18 18:22

いちばん簡単なのは


型をSingleではなくCurrencyにする。
Singleで無いとダメなら四捨五入
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!