decimaler

hvis der er ingen decimaler skal den tilføje ,00 og hvis der er et skal den tilføje 0 til strTal
forstår i??

Hvis der altid skal enten ,00 eller 0 på kan ud tjekke på om der er , i strTal.:

if inStr(1,strTal,",") > 0 then
  'Der var et komma i
  strTal = strTal & "0"
else
  'Igen komma i
  strTal = strTal & ",00"
end if

takker meget

hvis nu strTal er 10,25 bliver det til 10,250 Kan du hjælpe med det problem?

Ja så kan du udbygge ddt sådan her:


if inStr(1,strTal,",") > 0 then
  'Der var et komma i
  if len(Mid(strTal,inStr(1,strTal,",")+1) = 1 then
    strTal = strTal & "0"
  end if
else
  'Igen komma i
  strTal = strTal & ",00"
end if

Der er en mere elegant måde at behandle decimaler på i ASP.

FormatNumber(Tal, DecEfterKomma, TalForanKomma, NegTal, Tusinder)

Tal            : Tallet eller variablen med tallet

DecEfterKomma        : Kan udelades
              Antal Decimaler efter komma
              -1 (default) bruger Regional Settings

TalForanKomma        : Kan udelades
              vbTrue skriver tal under én '0,00'
              vbFalse skriver tal under én ',00'
              -1 (default) bruger Regional Settings

NegTal            : Kan udelades
              vbTrue sætter parenteser omkring
              vFalse gør ikke

Tusinder        : Kan udelades
              vbTrue bruger tusindtalseparator
              vbFalse gør ikke                              -1 (default) bruger Regional Settings

Eksempler:

FormatNumber(123, 2, vbTrue, vbFalse, vbTrue)    //123,00
FormatNumber(1234, 2, vbTrue, vbFalse, vbTrue)    //1.234,00
FormatNumber(.4, 3, vbTrue, vbFalse, vbTrue)    //0,400
FormatNumber(.4, 3, vbFalse, vbFalse, vbTrue)    //,400

Det giver vist sig selv, men ellers prøv dig lidt frem.

-Søren

for denne fejl:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet ')' var ventet
/rasmus/kunst/ny/asp/tilmeld_rabat.asp, line 337, column 57
if len(Mid(strRabatpris,inStr(1,strRabatpris,",")+1) = 1 then
--------------------------------------------------------^

Der mangler en venstreparentes. En nemmere løsning til erstatning for hele det accepterede svar ville være:

strTal = FormatNumber(strTal, 2, vbTrue, vbFalse, vbTrue)

-Søren

Undskyld, sevlfølgelig en højre-parentes. Der er kun angivet to parametre i Mid-udtrykket, men der skal være tre.

Det ændrer ikke ved mit foregående svar :-)

if len(Mid(strRabatpris,inStr(1,strRabatpris,",")+1)) = 1 then