Formatering af tal.

Eks du kan evt ligge det ind i en funktion:


tal = 100000
if Cdbl(tal) >= Cdbl(1000) then
  tmp = Cstr(tal / 1000)
  if inStr(1, tmp, ".") = 0 then
    tmp = tmp & ".0"
  else
    if len(tmp)<=len(tal) then tmp = tmp & "0"
  end if
  tal=tmp
end if

Response.Write tal

Ser ud til det spiller dog viser den:

67700 som 67,7.0

Ja ok, prøv at rette det til dette:

tal = 67700
if Cdbl(tal) >= Cdbl(1000) then
  tmp = replace(Cstr(tal / 1000),",",".")
  if inStr(1, tmp, ".") = 0 then
    tmp = tmp & ".0"
  else
    if len(tmp)<=len(tal) then tmp = tmp & "0"
  end if
  tal=tmp
end if

Response.Write tal