vb中有没有这样的函数：xxx(1.12324,2)=1.13

xhcbh 2004-11-15 09:06:35

就是不采用四舍五入，而是直接截去指定的部分并进1。

...全文

113 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

aiur2000 2004-11-15

打赏
举报

回复

没具体完善
Private Sub Form_Load()
MsgBox CustIt(13.1234, 2)
End Sub

Public Function CustIt(a As Single, b As Integer) As Single
Dim abc() As String
Dim rightA As String
abc = Split(a, ".")
CustIt = abc(0) & "." & CStr(CInt(Left(abc(1), b)) + 1)
End Function

5iask 2004-11-15

打赏
举报

回复

没有,自己写一个吧很容易.

viena 2004-11-15

打赏
举报

回复

好像没有

tztz520 2004-11-15

打赏
举报

回复

可以自己写一个函数

VM 虚拟各种系统的工具安装目录不要放在C盘需要下载的镜像Windows NT win7 xp server08R2 ...1g=1024M1M=1024KB1KB=1024bit1bit 是一个字节一个字节就是8位由0或者1组成（二进制） 10 进制0-9组成的数字...

输出语句 2.JS中的注释为// 3.传统的HTML文档顺序是:document->html->(head,body) 4.一个浏览器窗口中的DOM顺序是:window->(navigator,screen,history,location,document) 5.得到表单中元素的名称和值:...

1, 2, 0, 1, 2, 0, 2, 0, 0, 2, 0, 2, 1, 0, 2, 0, _ 1, 0, 2, 0, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 2, _ 1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 1, 2, 0, 1, 0, 2, _ 1, 0, 2, 0, 1, 1, 2, 0, 0, 1, 1, 2, 0, 1, ...

用 RTrim，这个我原来只知道用来删除最后的空格，也没有仔细看过其它的用法，才发现可以直接trim掉一些字符 s = s.ToString().RTrim(',') 91 erase()函数的用法？删除一个元素或者一个元素的范围在一个字符串...

return substr($url,$pos1+1,$pos2-$pos1-1); } else { return substr($url,$pos1); } } $path = "http://www.sina.com.cn/abc/de/fg.php?id=1"; echo getExt1($path); echo " "; ...

7,787

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章