怎样修改商城系统商品价格的格式？

就是把￥4,500.00元改为￥4500元或￥4500.00元

'商城价格样式
  Function GetPriceStr(PriceType,Discount,Discount_v,Price_Original,Price,Price_Market,Price_Member)
        If Price_Market=0 Then Price_Market="—" Else Price_Market="￥"&FormatNumber(Price_Market,2,-1)
     If Price_Member=0 Then Price_Member="—" Else Price_Member="￥"&FormatNumber(Price_Member,2,-1)
     If Price_Original=0 Then Price_Original="—" Else Price_Original="￥"&FormatNumber(Price_Original,2,-1)
     Price=FormatNumber(Price,2,-1)
       Select Case PriceType
     Case 0:GetPriceStr="市场价："&Price_Market &"<br />商城价：￥"&Price &"<br />会员价：" & Price_Member
     Case 1:GetPriceStr="原价："&Price_Original
     Case 2:GetPriceStr="商城价：￥"&Price
     Case 3:GetPriceStr="原　价："&Price_Original & "<br />会员价：" & Price_Member
     Case 4:GetPriceStr="商城价：￥"&Price & "<br />会员价：" & Price_Member
     Case 5:GetPriceStr="市场价："&Price_Market & "<br />商城价：￥"&Price
     Case 6:GetPriceStr="市场价："&Price_Market &"<br />原　价："&Price_Original & "<br />会员价："&Price_Member
     Case 7:GetPriceStr="市场价："&Price_Market &"<br />原　价："&Price_Original & "<br />商城价：￥"&Price & "<br />会员价："&Price_Member
     Case 8:GetPriceStr="会员价："&Price_Member
    End Select
    If Not KS.IsNul(Discount) Then
     If Cbool(Discount)=true Then
       If Discount_v = 10 Then
     GetPriceStr=GetPriceStr & "<br />折　扣：<span class=""discount"">0</span>"
       Else
     GetPriceStr=GetPriceStr & "<br />折　扣：<span class=""discount"">"&Discount_v & "</span>折"
       End If
     End If
    End If
  End Function

不知道怎么修改这段代码