数字格式化问题

senol 2004-09-08 02:18:37
如何根据参考数字(大小不定)的小数点后的位数,格式化指定数字小数点后的位数(即制定数字小数点后的位数和参考数字的小数点后的位数相同)??
...全文
74 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
senol 2004-09-09
  • 打赏
  • 举报
回复
比我想象的复杂,看来只有这样了,谢谢楼上的...
lovebeethoven 2004-09-08
  • 打赏
  • 举报
回复
又改善了一下

Dim i As Integer
Dim ii As Integer
Dim s As String
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字"
Exit Sub
End If
i = InStr(Str(Val(Text1.Text)), ".")
If i = 0 Then
s = "0"
Else
i = Len(Str(Val(Text1.Text))) - i
s = "0."
For ii = 1 To i
s = s & "0"
Next ii
End If
MsgBox Format(12.3, s)
lovebeethoven 2004-09-08
  • 打赏
  • 举报
回复
Dim i As Integer
Dim ii As Integer
Dim s As String
i = InStr(Str(Val(Text1.Text)), ".") '根据一个文本框内的示范数字确定小数位
i = Len(Str(Val(Text1.Text))) - i
s = "0."
For ii = 1 To i
s = s & "0"
Next ii
MsgBox Format(12.3, s)

我试过可以,不过不完善,给你参考
jam021 2004-09-08
  • 打赏
  • 举报
回复
用format

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧