asp貨幣大寫轉(zhuǎn)換函數(shù)_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：怎樣限制只能中文輸入的方法。
      function isCharsInBag (s, bag) { var i,c; for (i = 0; i s.length; i++) { c = s.charAt(i);//字符串s中的字符 if (bag.indexOf(c) -1) return c; } return ; } 檢查函數(shù): function ischinese(s) { var errorChar; var badChar = ABCDEFGHIJKLMNOPQRST
      Function AtoC(a As Currency) As String
          '說明：本函數(shù)適合于萬億以下的貨幣轉(zhuǎn)換，允許A的值是最多兩位小數(shù)
          '定義兩個字符串，此處漢字與數(shù)字均按一位計算
          Dim String1 As String   '如下定義
          Dim String2 As String   '如下定義
          Dim String3 As String   '從原A值中取出的值
          Dim I As Integer        '循環(huán)變量
          Dim J As Integer        'A的值乘以100的字符串長度
          Dim Ch1 As String       '數(shù)字的漢語讀法
          Dim Ch2 As String       '數(shù)字位的漢字讀法
          Dim nZero As Integer    '用來計算連續(xù)的非零數(shù)是幾個
          
          String1 = "零壹貳叁肆伍陸柒捌玖"
          String2 = "萬仟佰拾億仟佰拾萬仟佰拾元角分"
          'MsgBox CStr(a * 100)
          If InStr(1, CStr(a * 100), ".") <> 0 Then
              err.Raise 5000, , "此函數(shù)( AtoC() )只能轉(zhuǎn)換小數(shù)點后有兩位以內(nèi)的數(shù)！"
          End If
          
          J = Len(CStr(a * 100))
          String2 = Right(String2, J)         '取出對應(yīng)位數(shù)的STRING2的值
          
          For I = 1 To J
              String3 = Mid(a * 100, I, 1)    '取出需轉(zhuǎn)換的某一位的值
              If String3 <> "0" Then
                  Ch1 = Mid(String1, Val(String3) + 1, 1)
                  Ch2 = Mid(String2, I, 1)
                  nZero = nZero + 1           '表示本位不為零
              Else
                  
      分享：ASP編程中15個非常有用的例子(二)
      8.強迫輸入密碼對話框 答把這句話放載頁面的開頭 % response.status=401 not Authorized response.end % 9 如何傳遞變量從一頁到另一頁 答 用HIDDEN類型來傳遞變量 % form method=post action=mynextpage.asp % for each item in request.form % input
      


      

      共2頁上一頁12下一頁
      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2010-04-13


      


      



      


      



      相關(guān)ASP教程：