Beregninger i VB

fordi dine "regional settigngs" kører engelsk format. Dermed opfattes det . som et dansk komma. altså 4,4 + 1,1

Skriv :
4400.00 + 1100.00

eller gå i dit "kontrol panel" og ændre "regional settings" til dansk!

MsgBox (Format(CInt("4.400,00") + CInt("1.100,00"),2))

//>Rune

VB opfatter '.' som ',' forbi sådan er det på engelsk. (Internationalicering har ikke lige slået igennem på det punkt ;)) For at få det et at virke skal du fjerne '.' og derefter erstatte ',' med '.'
Oswald

Jeg har åbenbart formuleret mig forkert. Problemet er, at jeg ikke får resultatet 5.500,00 men kun 5.5

sorenstrom>>
Oswald bør have pointene, du må ikke anvende tusind-punktum (eller millioner for den sags skyld) på en computer.
Når din PC står til 'dansk' under kontrolpanel/ International / tal, skulle man tro det var ok, men i VB er det ikke.  Ellers skal du selv definere en ny klasse, det bliver lidt langhåret.

Undlad at skrive tusind-punktum fra begyndelsen.  Insisterer du kan fjerne dem ved streng-behandling:

var1 = 4.400,25

var2 = left(var1,(instr(var1,".")-1) & mid(var1,(instr(var1,".")+1)

bagefter skal du på tilsvarende måde ændre , til . som dec.-adskiller og til sidst tage værdien af streng-varialblen med val(var3)

Stort postyr for meget lidt.

M.v.h.  Jørn

var1 = text1.text naturligvis

m.v.h. Jørn

Jeg prøver igen.
Det har intet med Regional Settings at gøre.
Jeg taster uden tusindtalsadskiller som her 4400.
Dernæst formaterer jeg feltet, så der står 4.400,00
Tilsvarende i det andet felt.
I det tredje felt, hvor der skal beregnes, skriver jeg

txtIalt.text = format(Val(txtFragt.text), "##,##0.00") + Format(ValtxtVarepris.text), "##,##0.00")

Resultatet bliver nu kun 5.5 og ikke 5.500,00

Fejlen er at du lægger de formaterede tal sammen!! Ikke tallene selv.
Prøv i stedet :
txtIalt.text = format(Val(txtFragt.text) + Val(txtVarepris.text), "##,##0.00")

>> kichian
Tak for det. Det var lige det, der manglede