改进一下asp自带的formatNumber函数

asp的formatNumber再处理类似 25/5的值时,结果是 5.00  处理类似 28/8的值时,结果是3.50 
改进一下,去掉没用的0  让结果分别是 5和3.5


代码如下:

Function fm(nb)
If IsNumeric(nb) Then
Dim a
a=FormatNumber(nb,2,-1)
If Right((a+""),2)=00 Then
fm=CLng(a)
Else
fm=FormatNumber(nb,1,-1)
End if
Else
fm=0
End if
End Function

赞 (0)

相关推荐

  • 改进一下asp自带的formatNumber函数

    asp的formatNumber再处理类似 25/5的值时,结果是 5.00  处理类似 28/8的值时,结果是3.50  改进一下,去掉没用的0  让结果分别是 5和3.5 复制代码 代码如下: Function fm(nb) If IsNumeric(nb) Then Dim a a=FormatNumber(nb,2,-1) If Right((a+""),2)=00 Then fm=CLng(a) Else fm=FormatNumber(nb,1,-1) End if Els

  • VBS教程：函数-FormatNumber 函数

    FormatNumber 函数返回表达式,此表达式已被格式化为数值. FormatNumber(  expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) ArgumentsExpression 必选项.要被格式化的表达式. NumDigitsAfterDecimal 可选项.指示小数点右侧显示位数的数值.默认值为 -1,指示使用的是计算机的

  • ASP调用带参数存储过程的几种方式

    ASP调用带参数存储过程的几种方式     选择自 hxfwsk 的 Blog   关键字   存储过程  出处 作者: 讨饭猫 ASP调用带参数存储过程的几种方式 最近有很多的朋友问到调用存储过程的问题,这里简单介绍几种ASP调用带参数存储过程的方法. 1 这也是最简单的方法,两个输入参数,无返回值: set connection = server.createobject("adodb.connection") connection.open someDSN  Connection

  • ASP超级链接和HTML函数正则表达式 修正版

    过滤超级链接 复制代码 代码如下: Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 复制代码 代码如下: Fu

  • asp执行带参数的sql语句实例

    asp执行带参数的sql语句,需要向sql语句添加参数,可以有效屏蔽SQL注入,源代码如下: 复制代码 代码如下: var conn = Server.CreateObject("ADODB.Connection"); conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb"); conn.Open();

  • 如何用ASP发送带附件的邮件？

    如何用ASP发送带附件的邮件?<% Option Explicit Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "liyanbing@163.net " objMail.Subject = "闪亮日子之星河影动" objMail.AttachFile("s:\flashdays\images\win.jpg"

  • asp之日期和时间函数示例

    asp之日期和时间函数示例 可以使用日期和时间函数来得到各种格式的日期和时间 函数语法说明示例NowNow()取得系统当前的日期和时间Dim MyVar MyVar = Now' MyVar 包含当前的日期和时间.DateDate()取得系统当前的日期Dim MyDate MyDate = Date' MyDate 包含当前系统日期.TimeTime()取得系统当前的时间Dim MyTime MyTime = Time ' 返回当前系统时间.YearYear(Date)取得给定日期的年份Dim

  • JS中setInterval、setTimeout不能传递带参数的函数的解决方案

    在JS中无论是setTimeout还是setInterval,在使用函数名作为调用句柄时都不能带参数,而在许多场合必须要带参数, 这就需要想方法解决. 一.采用字符串形式:--(缺陷)参数不能被周期性改变 setInterval("foo(id)",1000); 二.匿名函数包装 (推荐) 复制代码 代码如下: window.setInterval(function() { foo (id); }, 1000); 这样就可以周期性执行foo(id)这个函数,而且把变量id传递进去: 三

  • python函数装饰器之带参数的函数和带参数的装饰器用法示例

    本文实例讲述了python函数装饰器之带参数的函数和带参数的装饰器用法.分享给大家供大家参考,具体如下: 1. 函数带多个参数 # 普通的装饰器, 打印函数的运行时间 def decrator(func): def wrap(*args, **kwargs): start_time = time.time() res = func(*args, **kwargs) end_time = time.time() print('运行时间为', end_time-start_time) return

  • javascript FormatNumber函数实现方法

    由于javascript里没有这个函数,那么我们该如何实现呢?下面我就给出这个函数,大家可以把:<script language=javascript src="formatnumber.js"></script> 这一句加入你的html页即可,也可以用 <!-- #include file="formatnumber.js" --> 加入你的asp页:或用 <? include("formatnumber.js&

随机推荐