Punktum i et udtræk

divider med 100?

select mittal/100 from mintabel

string = left(string, 1) & "." & right(string, 2)

Det virker ikke helt som det skal
Når man divider med 100 sættes der godt nok et komma med 2 decimaler hvis der fek. står 185 i tabellen, skrives 1,85 men står der 190 skrives 1,9 og så mangler der jo et nul, hvordan kan det løses?

Så brug min løsning den er sikker :-)

...ellers vil formatNumber(mittal, 2) altid give 2 decimaler.

trumf >> hvor og hvordan den linie ind?

string = left(string, 1) & "." & right(string, 2)

mittal = left(hent("mittal"), 1) & "." & right(hent("mittal"), 2)

Hm, det som jeg brugte før
"&replace(rs("minetal"), "'", "''")/100&"

kan du ændre linien så det passer?

mittal = left(rs("minetal"), 1) & "." & right(rs("minetal"), 2)

Mange tak :-)

Jeg var lidt for hurtig.
Det virker altså ikke som det skal

hvis der står 4 i min tabel er udtrækket 4.4 ( skulle være 0.04 )
hvis der står 60 er udtrækket 6.60 ( skulle være 0.60 )

OK, hvad er reglerne for hvordan et tal skal se ud. Jeg kan ikke lige gennemskue hvad det skal bruges til.
Hvorfor gemmer du ikke bare tal som de skal bruges ???

Er det muligt at update en tabel med eks. 0.01 ?
Tallene skal illustrere kroner og øre

Derfor hvis 4 så skal udtrækket være 0.04 DKK

Prøver lige...
mittal = rs("minetal")
If Len(mittal) < 3 Then
  If Len(mittal) = 2 Then
    mittal = "0." & mittal
  Else
    mittal = "0.0" & mittal
  End If
Else
  mittal = left(mittal, 1) & "." & right(mittal, 2)
End If

Dette vil virke med tal fra 0 til 999

Er der større tal i databasen ???

ja 100000

OK så vil denne virke i stedet.

mittal = rs("minetal")
If Len(mittal) < 3 Then
  If Len(mittal) = 2 Then
    mittal = "0." & mittal
  Else
    mittal = "0.0" & mittal
  End If
Else
  mittal = left(mittal, Len(mittal)-2) & "." & right(mittal, 2)
End If

Det er nok flottest kode med en funktion så lav det sådan

Placer denne funktion i starten af din side

Function lavTal(byval tal)
If Len(tal) < 3 Then
  If Len(tal) = 2 Then
    lavTal = "0." & mittal
  Else
    lavTal = "0.0" & tal
  End If
Else
  lavTal = left(tal, Len(tal)-2) & "." & right(tal, 2)
End If
End Function

Og kald så funktionen med
lavTal(rs("minetal"))

Jeg har prøvet de sidste foreslag, men der sker intet, helt blank, ingen udtræk

Skriv lige al din kode...

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
                      strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("regnskaber.mdb")
    Conn.Open AccessDataBase
Set rs = Conn.Execute("SELECT saldo FROM regnskab")
if not rs.EOF then


mittal = rs("saldo")
If Len(mittal) < 3 Then
  If Len(mittal) = 2 Then
    mittal = "0." & mittal
  Else
    mittal = "0.0" & mittal
  End If
Else
  mittal = left(mittal, Len(mittal)-2) & "." & right(mittal, 2)
End If

    end if
    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing
%>

Prøv dette her:

<%
Function lavTal(byval tal)
If Len(tal) < 3 Then
  If Len(tal) = 2 Then
    lavTal = "0." & tal
  Else
    lavTal = "0.0" & tal
  End If
Else
  lavTal = left(tal, Len(tal)-2) & "." & right(tal, 2)
End If
End Function

    Set Conn = Server.CreateObject("ADODB.Connection")
                      strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("regnskaber.mdb")
    Conn.Open AccessDataBase
Set rs = Conn.Execute("SELECT saldo FROM regnskab")
if not rs.EOF then
  Do while Not rs.EOF
    response.write(lavTal(rs("saldo")) & "<BR>")
    rs.MoveNext
  Loop
end if
    rs.Close
    Set rs = Nothing
    Conn.Close
    Set Conn = Nothing
%>

Tak for hjælpen, det virker perfekt nu :-)