Just nu i M3-nätverket
Jump to content

problem med avrundning


Leon Radley

Recommended Posts

Om jag lägger till nått i shoppingcarten som inte har decimal pris tex. 70,90 så får jag ut CCcart_Shipping till rätt, men så fort det kommer en decimal i bilden så slutar det fungera... jag har försökt runda av med FormatNumber, men det vill ju inte fungera..

 

 

<%

Dim ShippingRS__value

ShippingRS__value = "0"

If (CCcart_Weight <> "") Then

ShippingRS__value = CCcart_Weight

End If

%>

<%

Dim ShippingRS

Dim ShippingRS_numRows

 

Set ShippingRS = Server.CreateObject("ADODB.Recordset")

ShippingRS.ActiveConnection = MM_CharonCart_STRING

ShippingRS.Source = "SELECT * FROM Freight WHERE weightfrom <= " + Replace(ShippingRS__value, "'", "''") + " AND weightto > " + Replace(ShippingRS__value, "'", "''") + ""

ShippingRS.CursorType = 0

ShippingRS.CursorLocation = 2

ShippingRS.LockType = 1

ShippingRS.Open()

 

ShippingRS_numRows = 0

%>

<%

Session("Freightlimit") = 1500

x=FormatNumber(CCcart_SubTotal, 0, -2, -2, -2)

y=FormatNumber(Session("Freightlimit"), 0, -2, -2, -2)

If x >= y Then

CCcart_Shipping = 0

Else

CCcart_Shipping=ShippingRS.Fields.Item("freight").Value

End If

%>

Link to comment
Share on other sites

Det är ju inte i databasen som det är fel.. där är när jag försöker köra en >= fråga på en variabel och en session

 

<%

Session("Freightlimit") = 1500

x=FormatNumber(CCcart_SubTotal, 0, -2, -2, -2)

y=FormatNumber(Session("Freightlimit"), 0, -2, -2, -2)

If x >= y Then

CCcart_Shipping = 0

Else

CCcart_Shipping=ShippingRS.Fields.Item("freight").Value

End If

%>

 

 

Link to comment
Share on other sites

Istället för med komma (,) så använd punkt för att markera kronor och ören. Det tror jag gör susen!

 

Använd en replace-grej just bara när du kontrollerar just dessa grejer.

 

Tror detta ska stämma!?

[inlägget ändrat 2002-11-03 22:23:18 av Sasja]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...