社区
VB基础类
帖子详情
请问vb中对小数位非零进一取整的函数是什么?(不同于四舍五入)
fangf
2001-07-19 10:14:28
请问vb中对小数位非零进一取整的函数是什么?(不同于四舍五入)
如1.2 --------->2
1.6 --------------2
...全文
534
3
打赏
收藏
请问vb中对小数位非零进一取整的函数是什么?(不同于四舍五入)
请问vb中对小数位非零进一取整的函数是什么?(不同于四舍五入) 如1.2 --------->2 1.6 --------------2
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hyui
2001-07-19
打赏
举报
回复
emilcy:
如果x=2.0呢?那完了就是3了.
对于正数:
function IntX(x)
if int(x)<>x then
IntX=int(x+1)
else
IntX=x
end if
end function
负数照着办了.
Tackie
2001-07-19
打赏
举报
回复
这样做不全对,当X本身就是整数的时候,计算的结果是错的。
应该先用Format函数将其转换成有一位小数,再判断这位小数是不是0
emilcy
2001-07-19
打赏
举报
回复
if x>0 then
int(x+1.0)
else
int(x-1.0)
end if
FusionCharts-v3.1-crack
功能特性 animation是否动画显示数据,默认为1(True) showNames是否显示横向坐标轴(x轴)标签名称 rotateNames是否旋转显示标签,默认为0(False):横向显示 showValues是否在图表显示对应的数据值,默认为1(True) yAxisMinValue指定纵轴(y轴)最小值,数字 yAxisMaxValue 指定纵轴(y轴)最小值,数字 showLimits是否显示图表限值(y轴最大、最小值),默认为1(True) 图表标题和轴名称 caption图表主标题 subCaption图表副标题 xAxisName横向坐标轴(x轴)名称 yAxisName纵向坐标轴(y轴)名称 图表和画布的样式 bgColor图表背景色,6位16进制颜色值 canvasBgColor画布背景色,6位16进制颜色值 canvasBgAlpha画布透明度,[0-100] canvasBorderColor画布边框颜色,6位16进制颜色值 canvasBorderThickness画布边框厚度,[0-100] shadowAlpha投影透明度,[0-100] showLegend是否显示系列名,默认为1(True) 字体属性 baseFont图表字体样式 baseFontSize图表字体大小 baseFontColor图表字体颜色,6位16进制颜色值 outCn
vB
aseFont图表画布以外的字体样式 outCn
vB
aseFontSize图表画布以外的字体大小 outCn
vB
aseFontColor图表画布以外的字体颜色,6位16进制颜色值 分区线和网格 numDivLines画布内部水平分区线条数,数字 divLineColor水平分区线颜色,6位16进制颜色值 divLineThickness水平分区线厚度,[1-5] divLineAlpha水平分区线透明度,[0-100] showAlternateHGridColor是否在横向网格带交替的颜色,默认为0(False) alternateHGridColor横向网格带交替的颜色,6位16进制颜色值 alternateHGridAlpha横向网格带的透明度,[0-100] showDivLineValues是否显示Div行的值,默认?? numVDivLines画布内部垂直分区线条数,数字 vDivLineColor垂直分区线颜色,6位16进制颜色值 vDivLineThickness垂直分区线厚度,[1-5] vDivLineAlpha垂直分区线透明度,[0-100] showAlternateVGridColor是否在纵向网格带交替的颜色,默认为0(False) alternateVGridColor纵向网格带交替的颜色,6位16进制颜色值 alternateVGridAlpha纵向网格带的透明度,[0-100] 数字格式 numberPrefix增加数字前缀 numberSuffix增加数字后缀% 为 '%25' formatNumberScale是否格式化数字,默认为1(True),自动的给你的数字加上K(千)或M(百万);若取0,则不加K或M decimalPrecision指定
小数位
的位数,[0-10]例如:='0'
取整
divLineDecimalPrecision指定水平分区线的值
小数位
的位数,[0-10] limitsDecimalPrecision指定y轴最大、最小值的
小数位
的位数,[0-10] formatNumber逗号来分隔数字(千位,百万位),默认为1(True);若取0,则不加分隔符 decimalSeparator指定小数分隔符,默认为'.' thousandSeparator指定千分位分隔符,默认为',' Tool-tip/Hover标题 showhovercap是否显示悬停说明框,默认为1(True) hoverCapBgColor悬停说明框背景色,6位16进制颜色值 hoverCapBorderColor悬停说明框边框颜色,6位16进制颜色值 hoverCapSepChar指定悬停说明框内值与值之间分隔符,默认为',' 折线图的参数 lineThickness折线的厚度 anchorRadius折线节点半径,数字 anchorBgAlpha折线节点透明度,[0-100] anchorBgColor折线节点填充颜色,6位16进制颜色值 anchorBorderColor折线节点边框颜色,6位16进制颜色值 Set标签使用的参数 value数据值 color颜色 link链接(本窗口打开[Url],新窗口打开[n-Url],调用JS
函数
[JavaScript:
函数
]) name横向坐标轴标签名称
VB
四舍五入
函数
Private Sub Command1_Click() Print
四舍五入
(11.111, 2) Print
四舍五入
(11.116, 2) Print
四舍五入
(11.1116, 3) End Sub Function
四舍五入
(值, 保留位 As Integer) As Double Dim n As Double Dim i As Integer n = 1 For i = 0 To 保留位 - 1 n = n * 10 Next
四舍五入
= Int(值 * n + 0.5) / n.
利用
VB
.NET Format
函数
实现
四舍五入
功能
VB
.NET经过长时间的发展,很多用户都很了解
VB
.NET了,这里我发表一下个人理解,和大家讨论讨论。在
VB
.NET要做到
四舍五入
的功能应该用
VB
.NETFormat这个
函数
,用CInt或CLng都只能取到整数部分,而用
VB
.NET Format
函数
可以取到你所指定的
小数位
数。 Public Function Round(numAsVariant,nAsLong) As String Round=Format(num,IIf(n>0,"0."&String(n,"0"),"0"))
VB
A基础语法:
取整
函数
VB
A
取整
函数
有好几个,用法也不同,有的还可以在工作表
中
使用,下面根据需求分别说明: 1、
四舍五入
取整
,一般用于取近似数 (1)CInt:只能在
VB
A
中
使用 CInt(12.56)=13, CInt(12.46)=12, CInt(-12.56)=-13, CInt(-12.46)=-12 (2)Round:在
VB
A
中
使用和CInt相同 Round(12.56)=13, Roun...
VB
开发——
VB
中
如何
四舍五入
在 Visual Basic 要做到
四舍五入
的功能应该用 Format 这个
函数
,用 CInt 或 CLng 都只能取到整数部分,而用 Format
函数
可以取到你所指定的
小数位
数。副程式:Public Function Round(num As Variant, n As Long) As String Round = Format(num, IIf(n > 0, "
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章