古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net (835ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

377: デフォルトの名無しさん [] 2018/02/26(月) 06:40:53.98 ID:eCGyw0Qs(1/5) AAS
Private Sub Form_Load()
　　Text1 = "106.456"
　　Command1.Caption = "▲"
End Sub
となっています

１ドルなん円という数字が入っていて
小数２位以下はいらないので▲ボタンを押すごとに
106.456→106.500→106.600→106.700・・・
となるように
Private Sub Command1_Click()
Dim v&
　　v& = Int(Val(Text1) * 10) + 1
　　Text1 = Format(v& / 10, "0.000")
End Sub
２行のプログラムをつくりましたが、あら不思議、これは動きません
Ｉｎｔが悪さをしている、Ｉｎｔはいらないと分かったのですが
なぜＩｎｔが悪さをするのでしょうか

---

379: デフォルトの名無しさん [] 2018/02/26(月) 11:36:26.78 ID:eCGyw0Qs(2/5) AAS
整数型に変換してるんですけど
ＩＮＴの外にある「＋１」が無効になる感じです

---

382: デフォルトの名無しさん [] 2018/02/26(月) 19:01:29.09 ID:eCGyw0Qs(3/5) AAS
お二方のは、最初の１回だけ動いて、
以降は動かなくなりましたよ
しかしCsngやValだと
106.456→106.500→106.600→106.700・・・
としたいところ
106.456→106.600→106.700・・・
になってしまうけど、まぁ動きました
お手間をとらせました、有難うございました

---

384: デフォルトの名無しさん [] 2018/02/26(月) 20:28:52.46 ID:eCGyw0Qs(4/5) AAS
ああ分かったよ
実数の扱いの深い部分だね
Debug.Printで見ても表示されないから分からなかったわけだ

---

385: デフォルトの名無しさん [] 2018/02/26(月) 20:48:01.22 ID:eCGyw0Qs(5/5) AAS
これだ
? Csng("125.600") * 10
1256

? Csng("125.600") * 10 + 0!
1256

? Csng("125.600") * 10 + 0.0
1255.99998474121

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.347s*