| ■No84068 (hihijiji さん) に返信 > 簡単なのは一度指数表記にしてから変換かな? > C#からの自動変換なので間違いがあるかもしれませんがこんな感じ > Dim dec = 0.012345D > Dim ans = dec > .ToString("0.0000e00") > .Split(New () {"e"C}) > .[Select](Function(s) Decimal.Parse(s)) > .Aggregate(Function(l, r) Math.Round(l, 2) * CDec(Math.Pow(10.0, CDbl(r))))
hihijiji さん、ご回答ありがとうございます!
> C#からの自動変換なので間違いがあるかもしれませんがこんな感じ
自動変換していただき、ありがとうございました。 自分なりにvb.netのコードに修正して、試してみました。
ToString関数を使うっていう発想がなかったです。 すごい、一瞬で変換できた!!と感動でした。笑
どうもありがとうございました。
|