作者tpjobp (月之殇)
看板Visual_Basic
标题Re: [VB6 ] format函数
时间Mon May 22 11:05:58 2006
※ 引述《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
1F:推 Guestion:大概了解了 非常感谢! 05/26 22:12