Question

vb中的格式化函数Format

我的程序运行后有很多结果，整数、小数，小于1的数。所以我用FORMAT函数将它格式化成"0.00"，但是有的整数就变成像2.00我想把这样的结果输出成2.如果格式化成"0.##"，整数就变成 1.
也就是我想要的结果就是带小数的为"0.##"整数为"0"格式。
要直接输出结果的函数，不是用代码一段一段的判断，因为结果很多。不可能结果多少个写多少个代码。

Answer 1

Function N(ByVal Number) 'Number必须是数字

    N = Replace(Format(Number, "0.00"), ".00", "")

End Function

'调用示例如图：

'调用示例：Print N(12)

'输出结果：12

追问

不错，1.20这样这样的数，没办法变成1.2 请在帮我想想~

Answer 2

Private Sub Command1_Click()
Dim s As Single
Dim s1 As Integer
s = 1.9
s1 = 20
Print IIf(Int(s) - s = 0, CStr(s), Format(s, "0.00"))
Print IIf(Int(s1) - s1 = 0, CStr(s1), Format(s1, "0.00"))
s = 10.12
Print IIf(Int(s) - s = 0, CStr(s), Format(s, "0.00"))
End Sub