因為工作需要 需要數字無條件進位的程式
因為工作需要 需要數字無條件進位的程式
上網找到一個函式
數字無條件進位的函數 - 史考特部落格園地
http://www.pro-soho.com/Blog/article.asp?id=58
但是發現些問題存在
數字尾數不能為0會出錯
ex: 1253.5-OK
1523-OK
1520-ERROR
就改寫了一下
改成無條件進位到十位數要改成百位 千位 也簡單
asp.net2.0_VB
01 '=====e.Row.Cells(I).Text就是數字來源=====
02
Dim p1 As String
03Dim p2 As String
04p1 = e.Row.Cells(I).Text
05Dim pa = Split(p1, ".")
06If Right(pa(0), 1) <> "0" Then
07 p2 = CInt(Left(pa(0), Len(pa(0)) - 1)) + 1
08 p2 = p2 * 10
09 e.Row.Cells(I).Text = p2
10Else
11 e.Row.Cells(I).Text = pa(0)
12End If
02
Dim p1 As String 03
Dim p2 As String 04
p1 = e.Row.Cells(I).Text 05
Dim pa = Split(p1, ".") 06
If Right(pa(0), 1) <> "0" Then 07
p2 = CInt(Left(pa(0), Len(pa(0)) - 1)) + 1 08
p2 = p2 * 10 09
e.Row.Cells(I).Text = p2 10
Else 11
e.Row.Cells(I).Text = pa(0) 12
End If