请大家解决，ASP数字格式计算.

最近做了网站         要用到计算         "价格"      
  但是格式不能用      
  人民币格式         比如     :         100.00     +     50.50=150.50      
     
  我要计算欧元      
     
  欧元的格式是      
  1.000,00      
  也就是             50,50+6,50=57,00      
  请问         在ASP+Access2000     环境中该怎么做     才能达到这个效果。      
     
  谢谢指教！ 问题点数：30、回复次数：6Top

1 楼rexsp（真水无香）回复于 2003-11-01 09:04:27 得分 5

得写函数，将数据切一下，然后再分别相加，如果有进位就进位，相当于自己写个重载函数一样。Top

2 楼xupiao（叫個什麼名字好呢,得好好讓我想想...）回复于 2003-11-01 09:06:27 得分 5

最簡單的是看成字符串然后進行分隔然後運算然后再合起來  
  可以寫成+-*/的functionTop

3 楼alexzhang00（三角猫）回复于 2003-11-01 10:02:07 得分 9

<%  
  Function   SumPrice(price1,price2,dotnumber)  
   
      price1   =   replace(price1,",","")  
      price2   =   replace(price2,",","")  
      SumPrice   =   CLng(price1)   +   clng(price2)  
      SumPrice   =   CStr(SumPrice)  
      SumPrice   =   Left(Sumprice,len(Sumprice)-dotnumber)   &   ","   &   right(SumPrice,dotnumber)  
   
  End   Function  
   
  '调用：  
  total   =   SumPrice("13,40","25,47",2)  
  response.write   total  
  %>Top

4 楼alexzhang00（三角猫）回复于 2003-11-01 10:21:00 得分 9

上面的函数中，price1,price2是你要计算的两个欧元值，要写成字符串型，如："123,45"  
  dotnumber是你的小数位数，也就是   ","后面的位数  
   
  如果你要实现更多的数值相加的话，可以用这个函数扩展:  
   
  <%  
  Function   SumPrice(priceArr,dotnumber)  
   
  dim   i  
  SumPrice   =   0  
  for   i   =   lbound(priceArr)   to   ubound(priceArr)  
          priceArr(i)   =   replace(priceArr(i),",","")  
          SumPrice   =   SumPrice   +   Clng(priceArr(i))  
  next  
  SumPrice   =   Cstr(SumPrice)  
  SumPrice   =   Left(Sumprice,len(Sumprice)-dotnumber)   &   ","   &   right(SumPrice,dotnumber)  
   
  End   Function  
   
  '调用  
  Dim   yourPrice(3)  
  yourPrice(0)   =   "34,56"  
  yourPrice(1)   =   "56,33"  
  yourPrice(2)   =   "24,45"  
  yourPrice(3)   =   "234,56"  
   
  result   =   SumPrice(yourPrice,2)  
  response.write   result  
  %>  
  Top

5 楼alexzhang00（三角猫）回复于 2003-11-01 10:23:27 得分 2

上面只做了+/-运算，如果减的话，请将   数字写为   "-12,23"形式Top

6 楼fredmeng（）回复于 2003-11-01 18:35:37 得分 0

感谢大家的帮忙  
  我先研究研究。  
   
  :-)Top

相关问题

• 函数
• 格式
• 欧元
• 计算

• 帖主：fredmeng
• rexsp
• xupiao
• alexzhang00
• alexzhang00
• alexzhang00

• Web开发类图书