7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-07-17
- 打赏
- 举报
Private Sub Command1_Click()
Dim x As Single
x = CSng(InputBox("please enter a number:", "info", "-3.14"))
MsgBox Int(x) - (Int(x) < x)
End Sub
Dim x As Single
x = CSng(InputBox("please enter a number:", "info", "-3.14"))
MsgBox Int(x) - (Int(x) < x)
End Sub
qdhuxp 2004-07-17
- 打赏
- 举报
都可以
熊孩子开学喽 2004-07-17
- 打赏
- 举报
问题就是：无条件进位函数
既然是要进位，那么说明一定是有小数的，既然是有小数的，赋给一个整数之后小数部分就被整掉，既然还要进位，那就直接加1阿，所以我的办法是对的。下面写出函数形式。
Function AutoAdd(BYVAL FloatNumber as Double) as Long
AutoAdd=FloatNumber +1
End Function
既然是要进位，那么说明一定是有小数的，既然是有小数的，赋给一个整数之后小数部分就被整掉，既然还要进位，那就直接加1阿，所以我的办法是对的。下面写出函数形式。
Function AutoAdd(BYVAL FloatNumber as Double) as Long
AutoAdd=FloatNumber +1
End Function
wqxu 2004-07-16
- 打赏
- 举报
Private Function Intdata(data As Single) As Long
if data<0 then '负数时,int就可以了
Intdata=int(data)
else '正数时
if data>int(data) then '当有小数点时
Intdata=int(data)+1
else '当没有小数点时,即data=int(data)时
intdata=int(data)
end if
end if
end function
if data<0 then '负数时,int就可以了
Intdata=int(data)
else '正数时
if data>int(data) then '当有小数点时
Intdata=int(data)+1
else '当没有小数点时,即data=int(data)时
intdata=int(data)
end if
end if
end function
gdami 2004-07-16
- 打赏
- 举报
起码还要考虑整数情况吧？
你的也太简单了点。
你的也太简单了点。
熊孩子开学喽 2004-07-16
- 打赏
- 举报
很简单啊
DIM A AS SINGLE
DIM B AS LONG
A=1.2
B=A+1
连函数都不用，VB直接帮你转好了。
DIM A AS SINGLE
DIM B AS LONG
A=1.2
B=A+1
连函数都不用，VB直接帮你转好了。
gdami 2004-07-16
- 打赏
- 举报
有负数情况吗？
num$ = 2.123
If num > Int(num) Then num = Int(num) + 1
MsgBox num
num$ = 2.123
If num > Int(num) Then num = Int(num) + 1
MsgBox num
victorycyz 2004-07-16
- 打赏
- 举报
如果是负数呢？
tztz520 2004-07-16
- 打赏
- 举报
Private Function Ina(data As Single) As Long
If data = Fix(data) Then
Ina = data
Else
Ina = Fix(data) + 1
End If
End Function
If data = Fix(data) Then
Ina = data
Else
Ina = Fix(data) + 1
End If
End Function
