Dim a As String
Dim b As String
a = "12.3"
b = Asc(Right(a, 1))
If b < 53 Then
Else
.....
End If
-
等级
本版专家分：0结帖率 96.67% -
比如：
Dim a As String
Dim b As String
a = "12.3"
b = Asc(Right(a, 1))
If b < 53 Then
Else
.....
End If展开阅读全文
-
等级
本版专家分：14177 -
晕，，，
-
版主等级
本版专家分：11487勋章
-
- 铜牌 2013年9月 总版技术专家分月排行榜第三
-
-
红花
2013年7月 MS-SQL Server大版内专家分月排行榜第一
2009年3月 Oracle大版内专家分月排行榜第一
2009年2月 Oracle大版内专家分月排行榜第一
-
-
黄花
2013年9月 MS-SQL Server大版内专家分月排行榜第二
2013年8月 MS-SQL Server大版内专家分月排行榜第二
2009年4月 Oracle大版内专家分月排行榜第二
2009年1月 Oracle大版内专家分月排行榜第二
2004年10月 MS-SQL Server大版内专家分月排行榜第二
-
-
蓝花
2013年10月 MS-SQL Server大版内专家分月排行榜第三
2008年12月 Oracle大版内专家分月排行榜第三
2004年11月 MS-SQL Server大版内专家分月排行榜第三
-
-
四舍五入只能是對數學運算，要先把它轉換成數字後才再轉換。如果它本身就是“abcdaweraa”之類的字符串，又什麼能談得上是四舍五入呢？
-
等级
本版专家分：20509
-
先转为数值四舍五入后再转回字符串行不行？？？？
-
等级
本版专家分：74
-
是啊，先将字符串转换为数字，用value()
转换之前最好先判断一下是不是数字的字符串，用isNumeric()
-
等级
本版专家分：5128 -
先用Val()得到数字
然后用Round()四舍五入
最后用CStr()转回字符
-
等级
本版专家分：2364 -
呵呵,我想楼主应该只是争对数字吧.四啥五入只有对数字才有效的...
就如楼上所说的,先用val转为数字,四舍之后,再转回就OK了噢!如果真是字符串,我想就没有必要四舍了吧!
-
等级
本版专家分：359 -
不知道楼主希望得到什么功能呢?
-
等级
本版专家分：50
-
这是实现一个小数四舍五入的功能，看要不要的，要得请加分
'------------------------------------------------------------
' Function :fcRoundValue
' Description :对数值进行四舍五入计算
' Parameters :dblValue--数值，lngDecimal--保留小数位数
' Return :Double--数值
'------------------------------------------------------------
Public Function fcRoundValue(dblValue As Double, lngDecimal As Long) As Double
Dim strTempRemain As String '数值保留部分
Dim lngTempRemain As Long '数值保留部分位数
Dim dblTempRound As Double '数值四舍五入部分
Dim strDecimal As String '小数点位置
Dim strTempValue As String '临时数值变量
Dim dblTempcount As Double '四舍五入的值
Dim lngLoop As Long '循环变量
'转换数值类型
strTempValue = CStr(dblValue)
'小数点位置
strDecimal = InStr(strTempValue, ".")
'如果四舍五入的设定小数位数比实际小数位数要多(实际数值没有小数)
If strDecimal = 0 Then
fcRoundValue = dblValue
Exit Function
'如果四舍五入的设定小数位数比实际小数位数多或者相等(实际数值有小数)
ElseIf (CLng(strDecimal) + lngDecimal) >= Len(strTempValue) Then
fcRoundValue = dblValue
Exit Function
End If
'取得保留位置部分的数据及数据长度
strTempRemain = Left(strTempValue, (CLng(strDecimal) + lngDecimal))
lngTempRemain = Len(strTempRemain)
'取得数据四舍五入部分的值
dblTempRound = gfcConvzero(CDbl(Mid(strTempValue, lngTempRemain + 1, 1)))
'如果需要四舍五入(四舍五入部分数值大于等于5)
If (dblTempRound >= 5) Then
dblTempcount = 1
'计算四舍五入的值
For lngLoop = 1 To lngDecimal
dblTempcount = dblTempcount / 10
Next
'如果是正值或零值
If (dblValue >= 0) Then
'计算最终结果
fcRoundValue = CDbl(strTempRemain) + dblTempcount
'如果是负值
ElseIf (dblValue <= 0) Then
'计算最终结果
fcRoundValue = CDbl(strTempRemain) - dblTempcount
End If
'如果不需要四舍五入(四舍五入部分数值小于5)
ElseIf (dblTempRound < 5) Then
'计算最终结果
fcRoundValue = CDbl(strTempRemain)
End If
Exit Function
End Function
-
等级
本版专家分：302
-
参考：
if IsNumeric(Str) then
用Round()四舍五入
else
msgbox "不能四舍五入！"
end if
-
等级
本版专家分：7361
-
Public Function myRound(ByVal sglN As Double, lngW As Long) As Double
On Error GoTo err1
'四舍五入函数
Dim lngN As Long '字符总长
Dim lngD As Long '记录小数点位置
Dim lngC As Long '小数位数
Dim sglX As Double '小数点后lngW-1位以前的数字
Dim lngX2 As Long '保存lngW位的数字(要保留的小数最未位)
Dim lngX3 As Long '保存lngW+1位的数字(要舍去的小数第一位)
'计算小数点位置
lngD = InStr(sglN, ".")
lngN = Len(sglN)
If lngD = 0 Then
myRound = sglN
Else
sglX = Left(sglN, lngD + (lngW - 1))
lngC = Len(Mid(sglN, lngD + 1, Len(sglN) - lngD))
If lngC > lngW Then
lngX2 = Mid(sglN, lngD + lngW, 1)
lngX3 = Mid(sglN, lngD + lngW + 1, 1)
If lngX3 > 4 Then lngX2 = lngX2 + 1
If lngW = 1 Then
myRound = sglX & "." & lngX2
Else
myRound = sglX & lngX2
End If
Else
myRound = sglN
End If
End If
Exit Function
err1:
MsgBox "未知错误!", 48, "myRound:"
End Function
- Java笔试题
一、Java基础方面 1、作用域public,private,protected,以及不写时的区别 答：区别如下： 作用域 当前类 同一package 子孙类 其他package public √ √ √ √ protected √
- Java基础知识面试题（2020最新版）
文章目录Java概述何为编程什么是Javajdk1.5之后的三大版本JVM、JRE和JDK的关系什么是跨平台性？原理是什么Java语言有哪些特点什么是字节码？采用字节码的最大好处是什么什么是Java程序的主类？应用程序和小程序的...
- 一个对于小数四舍五入的算法C语言版
声明：对于解题，应该会有更为简便的算法，通过测试点即可，本算法可以提供一种参考，是一个通用的关于带有小数的四舍五入算法，本人学生党，手写不易，不喜勿喷，谢谢，也希望有各界大神批评赐教 有很多算法新手...
- 《Python程序设计与算法基础教程（第二版）》江红 余青松 全部章节的课后习题，上机实践，课后答案，案例...
1. 这本书对Python的知识点的描述很详细，而且排版看的很舒服. 2. 几个例题：假装自己从零开始学，将一些有代表性、有意思的例题抽取出来. 3. 还有自己对一部分课后复习题，全部课后上机实践题的解题思路
- python四舍五入运算产生误差的原因以及实现精确四舍五入的方法
这时，如果我们需要对其做一些运算，比如四舍五入，由于实际操作的对象是二进制浮点数，而二进制浮点数常常又无法精确的表示十进制浮点数，这时就会存在误差。看如下例子。 可以看到，当我们直接用round函数对3....
- Python四舍五入与保留小数位数（精确舍入与保留）
本文深入讲解Python3中 四舍五入、 截断保留 与 保留小数位数、取整，帮助Python初学者排坑！ 总结不易，转载请标明出处！ 文章目录0. 前言（吐槽）1. 四舍五入(精确)1.1 四舍五入并保留x位小数——用decimal模块中...
- Verilog对数据进行四舍五入（round）与饱和（saturation）截位
【设计经验】5、Verilog对数据进行四舍五入（round）与饱和（saturation）截位 一、软件平台与硬件平台 软件平台： 操作系统：Windows 8.1 64-bit 开发套件：Vivado2015.4.2 Matlab2016a 仿真工具：Vivado...
- python format函数保留两位小数_Python四舍五入与保留小数（精确舍入与保留）
总结不易，转载请标明出处：https://blog.csdn.net/weixin_41683971/article/details/1050276540. 前言（吐槽）作为一个Python初学者，偶然遇到需要利用Python3进行四舍五入的操作，就想着查一查有没有什么简单快捷...
- Java BigDecimal详解，提供了丰富的四舍五入规则
java.math.BigDecimal类提供用于算术，刻度操作，舍入，比较，哈希算法和格式转换操作。 toString()方法提供BigDecimal的规范表示。它使用户可以完全控制舍入行为。 提供用于操作BigDecimal规模两种类型的操作： ...
- Java四舍五入保留1位小数、2位小数...
Java四舍五入保留1位小数的方法： import java.math.BigDecimal; public class Test { public static void main(String[] args) { ... //利用字符串格式化的方式实现四舍五入,保留1位小数 String resul...
- 测试开发笔记
第一章 测试基础 7 什么是软件测试： 7 ★软件测试的目的、意义：（怎么做好软件测试） 7 3.软件生命周期： 7 第二章 测试过程 8 1.测试模型 8 H模型： 8 V模型 9 2.内部测试 10 3外部测试： 10 验收测试：（在系统...
- Python内置函数
Python内置函数Python abs()函数Python all() 函数Python any() 函数Python basestring() 函数Python bin() 函数Python bool() 函数Python bytearray() 函数Python callable() 函数Python chr() 函数Python ...
- 【算法】求字符串子串的高效实现
出处 有一道秋招笔试题是这样： 输入两个正整数n、d（1<=d<=1000），把n看成字符串，...主要难点是求看成字符串的n的所有子串，必须要快速高效地求出，除了回溯法，还有一种二进制移位操作算法如下...
- C语言之输入输出
在C语言中，有三个函数可以用来在显示器上输出数据，它们分别是： puts()：只能输出字符串，并且输出结束后会自动换行。 putchar()：只能输出单个字符。 printf()：可以输出各种类型的数据，在前面的很多章节中都...
- 全网目前最全python例子（附源码）
告别枯燥，60秒学会一个小例子，系统学习Python，从入门到大师。Python之路已有190个例子： 第零章：感受Python之美 第一章：Python基础 第二章：Python之坑 第三章：Python字符串和正则 第四章：Python文件 第五章...
- Python输入输出详解
http://blog.csdn.net/pipisorry/article/details/24143801 Python基本输入输出教程 python内置输入函数 python2输入 raw_input() python3输入 ...先在交互式解释器中查看input函数 ... Read a s...
- JavaAPI
----------------------android培训、java培训、期待与您交流！ ---------------------- JavaAPI API全称是Appliction ProgrammingInterface(应用程序接口)，简单理解就是我们编程...对字符串的操作常用两个类
- Java中使用BigDecimal实现精确舍五入及工程运算
（注：前面写了一个超大整数相加的类，参见： 超大整数相加，超过了long的范围，你要怎么做！，后来有朋友评论说BigDecimal可以完全实现我的这这个功能，刚开始的时候，我还不服气，据我所知那里有这样的类哦，后来...
- vue将数字变为字符串_vue 实现强制类型转换 数字类型转为字符串
vue 实现强制类型转换 数字类型转为字符串我是从页面直接拿的ID过来的，类型是数字类型后端需要的是字符串类型只需要在后面加上 + ‘ ' ，传一个空字符串就可以了以上这篇vue 实现强制类型转换 数字类型转为字符串...
- Python中常用操作字符串的函数与方法总结
例如这样一个字符串 Python，它就是几个字符：P,y,t,h,o,n，排列起来。这种排列是非常严格的，不仅仅是字符本身，而且还有顺序，换言之，如果某个字符换了，就编程一个新字符串了；如果这些字符顺序发生变化了，也...
- 一起学python-opencv四（字符串操作和数组运算及矩阵运算）
没错，这个应该是暂时的numpy的第一阶段学习的最后一讲。在下一讲将要先回归到opencv，因为暂时这些numpy的知识肯定是够好几讲用的，numpy这个...center这个20应该是指定输出字符串的一个宽度，U20其实就是长度为2...
- JavaScript 常用操作（字符串、map、转换）
JS 字符串相关操作 字符串转json – JSON.stringify( a ) json转字符串 – JSON.parse(a) /** 常用例子：发送websocket请求的时候的json */ const tempSendContent = {} tempSendContent['id'] = 'uuid' ...
- vb字符串操作
1 VBA中的字符串 VBA不仅可以处理数字，也可以...声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在
- 编写一个python程序、输出如下语句_Python 入门习题
如果下面代码有问题或者你有更好的实现方法欢迎与我私信~1、输入一个字符串，内容是带小数的实数，例如"123.45"，输出是两个整数变量x和y，x是整数部分123，y是小数部分45。你可以用split函数完成。str =input()L=...
- 编程语言习题集（1）
从今天开始，我们新开了一个栏目，叫做编程语言习题集，供大家对于常见的语言（Java、C#、C++、python、js）等进行相关的练习。与数理逻辑不同的是，我们这里是混合的，只挑选出容易错的题目来进行讲解。 1. C/...
- python判断字符串中包含某个字符串_Python中的“f”字符串
前言在Python中，字符串的打印大家都知道是用print函数，如果在字符串中嵌有其它变量的话，一般我们有两种方式来处理，一是最原始的将字符串、变量分别作为print的参数，一一列写；一种是将{}占位符在字符串应该嵌入...
- python核心编程（二&三）— python简介&Python基础
python简介&python基础
- Oracle字符串操作
1.1. 字符串类型 1.1.1. CHAR和VARCHAR2类型 CHAR和VARCHAR2类型都是用来表示字符串数据类型，用来在表中存放字符串信息, 比如姓名、职业、地址等...如保存字符串’HELLOWORLD’，共10个英文字母： CHAR(100)：
- SQL Server 字符串处理函数大全（例子）
select语句中只能使用sql函数对字段进行操作（链接sql server）， select 字段1 from 表1 where 字段1.IndexOf("云")=1; 这条语句不对的原因是indexof（）函数不是sql函数，改成sql对应的函数就可以了。 left（）是...
- Python 1-10 字符串操作
Python 字符串练习