Decimal tal og udregning...!!!!!!

Vil du lægge dem sammen eller tildele den enes værdi til den anden?

Altså min kode er således:


strVareId = rs("id")
strVareNavn = rs("titel")
strVareImg = rs("pix")
strVareInfo = rs("tekst")
strVarePris = rs("pris")+strPrisTjekker
strVareData = rs("data")
strVareMoms = strVarePris*0.25

Dim strCalcRate, RateValue
strCalcRate = rs("rate")
RateValue = strCalcRate

strVareRate = strVarePris*RateValue
strVarePris = strVarePris+strVareMoms+strVareRate



Og jeg benytter koden strVarePris til siden!

Den med decimaltal er rs("rate")

Hvordan gemmer du "rate" i DB ? . Jeg tænkte bare hvis du nu brugte komma der i stedet for punktum ville du ved at bytte om herpå stoppe fejlen der.

Eyh altså jeg gemmer i databasen eksempelvis 0,20 i cellen rate. Det kan ikke stå med punktum.

Hvis jeg eksempelvis ændrer strVareMoms = strVarePris*0.25 til at bruge 0,25 forstår den ikke hvad jeg mener..

HVAD SKAL JEG GØRE ???

Bare et foreslag:

strVareId = rs("id")
strVareNavn = rs("titel")
strVareImg = rs("pix")
strVareInfo = rs("tekst")
strVarePris = rs("pris")+strPrisTjekker
strVareData = rs("data")
strVareMoms = strVarePris*0.25

Dim strCalcRate, RateValue
strCalcRate = rs("rate")
RateValue = strCalcRate

strVareRate = strVarePris*RateValue
strVarePris = CDec(strVarePris)+CDec(strVareMoms)+CDec(strVareRate)

Ja og så bare gøre det på strVarePris og RateValue

steen > KOden virker ikke... samme fejl !!

mortenkjeldberg> Kan du give mig mere info om hvad du mener ??

Bruge CDec på strVarePris og RateValue.

Ny kode:strVareId = rs("id")
strVareNavn = rs("titel")
strVareImg = rs("pix")
strVareInfo = rs("tekst")
strVarePris = rs("pris")+strPrisTjekker
strVareData = rs("data")
strVareMoms = strVarePris*0.25

Dim strCalcRate, RateValue
strCalcRate = rs("rate")
RateValue = strCalcRate

strVareRate = CDec(strVarePris)*CDec(RateValue)
strVarePris = CDec(strVarePris)+CDec(strVareMoms)+CDec(strVareRate)



Ny fejl:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
Typer stemmer ikke overens: 'CDec'

Altså det der driller er kommaet som du selv siger. Her er en "lille" løsning, der ikke er for køn og jeg ved heller ikke helt om den kan køre.

CDec(Replace(CStr(rs("rate")),',','.'))

Ombyt evt. ' med "

Tjaa det virkede ligesom stadigvæk ikke ...

Er rs("rate") egentlig ikke en string ?

hvad mener du med string ??

En textstreng !

Nej er en :

Datatype: Tal
Feltstørrelse: Decimal
Format: Tal

osv...

Prøv en gang kun at sætte CDec(RateValue) i andensidste linie

naarh virker ikke!!!

Samme fejl?

JEP!

Prøv det her:

strCalcRate = Chr(34) & rs("rate") & Chr(34)
RateValue = Replace(CStr(strCalcRate),",",".")
Response.Write dec

og se hvad den skriver ud udkommenter evt de linier der indtil nu har givet fejl.

Undskyld dec skal være RateValue

Virker ikke lige meget hvordan jeg laver koden!!

Fejlmeddelelse ?

må vente lidt - har utrolig travlt med noget andet...!!!!

Jeg prøver bare at hjælpe.

Du skal have lavet rs("rate") om til en string og manipulere den ved at lave kommaer om til punktummer og fjerne eventuelle "'er. Jeg har lige haft det til at du, så nu må du prøve om du kan..

send lige den kode du brugte for at få det til at virke!!

<html>
<head>
<title>Something</title>
</head>
<body>
<%
  dec = Chr(34) & "0,5" & Chr(34)
  dec = Replace(CStr(dec),",",".")
  Response.Write dec
%>
</body>
</html>

prøv at bruge CDbl() i stede

Virkede altså ikke :(

~lukker~