小数点以下の検知

質問

とつぜん失礼します。VB.Netを使用しています。
計算結果が小数点以下　たとえば"25.6"だった場合10倍して整数化する
プログラムを書きたいのですが、調べてもわかりません。
すみませんが誰かお教えください。

回答No.2

ainax · ベストアンサー

ごめんなさい。よく考えたら下記の方が楽です。

Dim x As Single = 25.6
If Not x = Int(x) Then x *= 10

お礼

Not x = Int(x)
こんな記述ができるの知りませんでした。
最後はx=x*10ですかね。
やってみます。
ありがとうございます。

回答No.1

ainax

modを使います。

dim x as single = 26.5

' 10倍してから10で割った時余りが1以上なら、10倍する
if ((x * 10) mod 10) > 1 then x *= 10