Mærkeligt tal

Det gør den fordi det er to strenge du lægger sammen.

Label2.Caption = clng(label2.caption) + clnt(lblpengeind)

skulle gøre det

clnt(lblpengeind) = clng(lblpengeind)
;)

Så får jeg fejlen:

Sub or Function not defined...

hvor stopper den henne?

Det er fordi du lægger 2 strenge sammen, først skal "." fjernes.

Dim X
Dim Sum1, Sum2

Sum1 = ""
Sum2 = ""

'Fjern . i Label1
For X = 1 To Len(Label1.Caption)
If Mid(Label1.Caption, X, 1) <> "." Then Sum1 = Sum1 & Mid(Label1.Caption, X, 1)
Next X

'Fjern . i Label2
For X = 1 To Len(Label2.Caption)
If Mid(Label2.Caption, X, 1) <> "." Then Sum2 = Sum2 & Mid(Label2.Caption, X, 1)
Next X

Label2.Caption = Val(Sum1) + Val(Sum2)
Label2.Caption = Format(Label2.Caption, "###,###,###")


(Label1.Caption skal du skifte til lblpengeind

-SCB

Sætte denne del ind i din Timer2 sub:

Dim X
Dim Sum1, Sum2

Sum1 = ""
Sum2 = ""

'Fjern . i lblpengeind
For X = 1 To Len(lblpengeind)
If Mid(lblpengeind, X, 1) <> "." Then Sum1 = Sum1 & Mid(lblpengeind, X, 1)
Next X

'Fjern . i Label2
For X = 1 To Len(Label2.Caption)
If Mid(Label2.Caption, X, 1) <> "." Then Sum2 = Sum2 & Mid(Label2.Caption, X, 1)
Next X

Label2.Caption = Val(Sum1) + Val(Sum2)
Label2.Caption = Format(Label2.Caption, "###,###,###")


-SCB

scb: Ville det ikke være nemmere med Replace(Label2.Caption, ".", "") for at fjerne punktummet?

Jo, men f.eks VB5.0 understøtter ikke funktionen.

Okay. Det vidste jeg så ikke før nu.  :o)

Hvad med bare at bruge val() ?

Label2.Caption = val(Label2.Caption) + val(lblpengeind)

/Martin

Så får du kun tallet til det første punktum.
300.000 bliver til 300
300.123 bliver til 300

Nå - så kan du jo lave det på molbo-metoden, ved først at fjerne alle punktummer, derefter lægge tallene uden punktummer sammen (husk val()) og derefter sætte punktummer ind i resultatet :o)

Eller helt lade være med at bruge de åndsvage punktummer ;o)

Ahh - det har scb allerede vist i sit svar - so sorry :o)