• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • ASP写的揣摸Money各个位值的函数

      最近在公司做一个帐务报销系统。

      需要把一个MONEY值的个位十位百位千位尚有角啊分啊的零丁取出来生成表格。

      因此写了一个取得此值的 Function ,

      Win95系统API函数大揭秘
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

      放到这里共享。如果你看到有写得欠妥的地方,请给我来 killhand007@163.com 指正交流。

      Function Moneynm(n,m)

              checkPoint = InstrRev(n,".")

        If n>9999.99 Then

            Response.write"数据高出限制,请一定您的报销金额在9999.99元以内!"

        Else

          If (checkPoint <> 0) Then

            leftNum = Mid(n,1,checkPoint-1)

            rightNum = Mid(n,checkPoint+1,Len(n))

            Else

            leftNum = n

          End If

           gw = Mid(leftNum,Len(leftNum),Len(leftNum))

           sw = 0

           bw = 0

           qw = 0

           jw = 0

           fw = 0

          If Len(leftNum)>1 Then

              sw = Mid(leftNum,Len(leftNum)-1,1)

          End If

          If Len(leftNum)>2 Then

              bw = Mid(leftNum,Len(leftNum)-2,1)

          End If

          If Len(leftNum)>3 Then

              qw = Mid(leftNum,Len(leftNum)-3,1)

          End If

          If Len(rightNum)>0 Then

              jw = Mid(rightNum,1,1)

          End If

          If Len(rightNum)>1 Then

              fw = Mid(rightNum,2,1)

          End If

        Select case m

        case "gw"

          Response.Write gw

        case "sw"

          Response.Write sw

        case "bw"

          Response.Write bw

        case "qw"

          Response.Write qw

        case "jw"

          Response.Write jw

        case "fw"

          Response.Write fw

        End Select

      End If

      End Function

      当然在此基础上你还可以或许取得万位十万位等。

      希望对有需要的朋友有所赞助。 

      Win95系统API函数大揭秘
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

    • 0
    • 0
    • 0
    • 73
    • 单栏布局 侧栏位置: