Siffer problem

nyVar = Round(dinDatabasVariabel, 2)

intEtt = 2.2
intTva = 2.22

If Len(Right((Len(intEtt) - InStrRev(intEtt, ".")))) = 1 Then
  intEtt = intEtt & "0"
End If
If Len(Right((Len(intTva) - InStrRev(intTva, ".")))) = 1 Then
  intTva = intTva & "0"
End If

Något sånt?

/red Ja, #L#, så kan man ju också göra. :p

#L# skrev:

nyVar = Round(dinDatabasVariabel, 2)

Nej, så kan man inte göra. Round avrundar endast, och har inget att göra med antalet decimaler i resultatet. Om du avrundar ett tal med en decimal, så har avrundningen också en decimal om du anger ett högre tal.

Sebbe skrev:

Något sånt?

Må fungera, men man skall inte gå över åar efter vatten, än mindre stora hav. ;)

Strängfunktioner använder man på strängar, talfunktioner på tal.

dblMyDouble = CDBl(objRS("fältet"))
Response.Write FormatNumber(dblMyDouble, 2)

Microsofts VB-Scriptreferens är kanonläcker. ;)

Mvh,

Tackar det funkar bra.

For i = 1 to n
Kop_antal(i) = CDBl(objRecordset1("Antal_kop"))
Kop_pris(i) = CDBl(objRecordset1("Pris"))

Problemet som kom är när det inte finns några värden.

For j = n--1 to 5
Kop_antal(j) = 0
Kop_pris(j) = " "
next

Ska titta lite på det så löser det nog sig.

Tack