监理检测网论坛

首页 » 试验检测论坛 » 试验检测管理综合交流 » 全自动试验程序(转)
zjqht - 2007/7/15 22:27:00
谢谢,顶起TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
cuizhiqun - 2007/7/19 23:10:00
真的很好啊TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
香江 - 2007/7/20 5:25:00
好东东,谢谢提供分享!TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
nhgljrhj - 2007/8/10 11:55:00
顶!顶!TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
zzs123 - 2007/8/12 8:53:00
不错,谢谢!TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
断翅 - 2007/11/22 12:36:00
嗯,好样的,好东东TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
世纪风 - 2008/3/11 21:56:00
:default5:TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
周万国 - 2008/3/12 9:40:00
不错TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
黄金雨 - 2008/3/12 10:04:00
全自动试验程序(转)TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
天下一统 - 2008/3/14 18:16:00
很好!谢谢 ($êr›www.kiii.cn–*cŸÆ¤ lçTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
清新雅致 - 2008/3/28 17:21:00
定算顶顶TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
ywd2 - 2008/3/28 18:27:00
想下载看看TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
strongerman - 2008/3/29 14:27:00
顶啊,大力支持楼主的无私奉献:default5:TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
liangdian - 2008/3/29 16:40:00
谢谢!!!!!:default6:TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
ztsjlw - 2008/4/4 17:25:00
不错,支持!TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
wxzdm562100 - 2008/4/15 9:54:00
很好!谢谢TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
hbt1130 - 2008/5/30 14:56:00
谢谢提供《公路工程质量检验评定标准(机电工程)》资料!S‘Ñé…&LINwww.kiii.cnyâÖë*j¡_TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
yeming - 2009/2/16 21:32:00
太好了,谢谢你了TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
wbic1030 - 2009/2/17 15:16:00
很好!谢谢TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
天涯1 - 2009/2/17 21:40:00
:default7: :default7: :default7:TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
lvgang1800 - 2009/2/21 9:17:00
顶顶顶顶顶顶顶顶TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
250417562 - 2009/2/27 20:04:00
看看,谢谢TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
weart888 - 2009/3/3 21:54:00
谢谢楼主TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
cz_caojun - 2009/4/23 22:37:00
很好!谢谢TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
ZYZ0124 - 2009/4/25 15:13:00
好东东TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
蓝田 - 2009/4/26 14:35:00
感谢lz分享TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
大脸猫爱吃鱼 - 2009/4/26 21:51:00
要好好学习一下,谢谢分享!TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
goodman - 2009/5/24 22:15:00
该用户帖子内容已被屏蔽
a_1_2_34 - 2009/6/1 20:57:00
我已经下载了,不过好像LZ没有解决4舍6入5单双的问题哦,我这有个数据处理的自定义函数,供大家分享Public Function RoundCint(shuzhi, amanalong)TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
   '当小数部分恰好为 0.5 时,Cint 和 CLng 函数会将它转换为最接近的偶数值。例如,0.5 转换为 0、1.5 转换为 2。CintTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
   '和 CLng 函数不同于 Fix 和 Int 函数,Fix 和 Int 函数会将小数部分截断而不是四舍五入。TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
    Dim amanglong As LongTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
    Dim weishu As DoubleTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
     weishu = amanalongTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
     baoliuweishu = shuzhi * (10 ^ weishu)TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
     RoundCint = CInt(baoliuweishu) / 10 ^ weishuTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
End FunctionTaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
a云儿 - 2009/6/2 21:35:00
不错,我也下载了TaŸ^¯×ºJZ3bbs.3c3t.comʍitíX×k
123
查看完整版本: 全自动试验程序(转)