Re: [VB6 ] format函數
※ 引述《Guestion (Question)》之銘言:
: 問一個有關format函數的使用方法
: 假如有一個變數 x
: 當 x = 0.000004567 時,會變成 5E-6
: 又 x = 0.0147 時,會變成 0.015
: 也就是 x > 0.001 時,只顯示到小數點後第三位
: x < 0.001 時,顯示到第一個不為零的數字(後面的數字就四捨五入)
: 請問該如何寫出這段呢?
If 輸入數值大於等於0.001 Then
輸出數值 = (輸入數值 * 1000 + 0.5) / 1000
或者是
輸出數值 = Format(輸入數值 + 0.00005), "0.###")
Else
輸出數值預設為輸入數值的最後一個字
For i = 1 To 輸入數值長度-1
If 輸入數值的第i個字 <> 0 Then
If 如果輸入數值的第i+1個字(數值的下一位數) >= 5 Then
輸出數值 = 輸入數值的第i個字+1
Exit For
Else
輸出數值 = 輸入數值的第i個字
Exit For
End If
End If
Next i
輸出數值 = 原有的輸出字串 後方再補上"E-"和i-2
End If
程式結束.......
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.81.88.26
推
05/26 22:12, , 1F
05/26 22:12, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):