| ■84068 |
Re[3]: 有効桁数３桁まででJIS丸めがしたい |
□投稿者/ hihijiji -(2017/05/12(Fri) 16:17:54)
| 簡単なのは一度指数表記にしてから変換かな？
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)))) |
|