利用VB.NETFormat函数实现四舍五入功能

VB.NET经过长时间的发展，很多用户都很了解VB.NET了，这里我发表一下个人理解，和大家讨论讨论。在VB.NET要做到四舍五入的功能应该用VB.NET Format这个函数，用CInt或CLng都只能取到整数部分，而用VB.NET Format函数可以取到你所指定的小数位数。

公司主营业务：做网站、成都网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出利州免费做网站回馈大家。

副程式：

 
 
  
  PublicFunctionRound(numAsVariant,nAsLong)AsString  
  
  Round=Format(num,IIf(n>0,"0."&String(n,"0"),"0"))  
  
  EndFunction

#T#叁数说明：num：欲四舍五入的数值。因为欲四舍五入的数值可能是Double或Single或是其它资料型态，所以这里把num宣告成Variant；如果把num宣告成Double，而欲四舍五入的数值是Single型态，就会出现资料型态不符合的错误；但是把num宣告成Variant则可避免这种错误，或是使用传值呼叫(ByVal)也可避免这种错误。其实我不确定这个观念是否正确，如果有误请来信指正，谢谢。n：取到小数点以下第n位。Round函数传回的是一个字串资料。

范例：

 
 
  
  PrivateSubCommand1_Click()  
  
  DimaAsDouble  
  
  a=1234.56789  
  
  Debug.PrintFix(a)  
  
  Debug.PrintInt(a)  
  
  Debug.PrintCInt(a)  
  
  Debug.PrintCLng(a)  
  
  Debug.PrintRound(a,0)  
  
  Debug.PrintRound(a,3)  
  
  EndSub

执行後在VB的即时运算视窗出现以下结果：

Fix和Int是属於无条件舍去，但是他们两者在处理负数的部分仍有些微差异，请自行叁阅VBHelp；CInt和CLng也有四舍五入的功能，但是只能取到整数部分；Format则可以四舍五入到你所指定的小数位数。有一点值得一提的是，VB.NET Format的第二个叁数使用"0"和"#"的差异：

 
 
  
  format(123.4,".000")输出123.400  
  
  format(123.4,".###")输出123.4

也就是说：第二个叁数使用"0"的，会自动补上多馀的0，有时候为了编排好看会希望这麽做；使用"#"的则不会自动补上0。

文章题目：利用VB.NETFormat函数实现四舍五入功能
分享链接：http://www.mswzjz.com/qtweb/news6/163006.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容