Notifikationer

Markér alle som læst Log ud

force_master Praktikant

25. april 2004 - 11:57 Der er 5 kommentarer og
1 løsning

automatisk oprunding

Hej
har følgende kode

For i = 0 To 14
sumialt = Text2(i)
sum2 = Text9.Text + sumialt
Text9.Text = sum2
Next

nu skulle den så gerne ligge de 15 text2 sammen, men det gør den ikke , enten skriver den tallene efter hinanden på en linje, eller også afrunder den selv ex 43,75 sætter den til 44.

Hvad gør jeg forkert. ?

mVH
Force-Master

Synes godt om

jpvj Nybegynder

25. april 2004 - 12:17 #1

Du skal caste dine tekst strenge til værdier (mener det val i VB).

+ operatoren fungerer også som en streng konkatenator (dvs. den sætter strenge sammen, hvilket er det du oplever).

Synes godt om

jpvj Nybegynder

25. april 2004 - 12:18 #2

altså

For i = 0 To 14
sumialt = val(Text2(i))
sum2 = val(Text9.Text) + sumialt
Text9.Text = sum2 // her bliver det automatisk casted
Next

Synes godt om

jpvj Nybegynder

25. april 2004 - 12:20 #3

Men det kan vel gøres meget kort (incl. afrunding):

sumialt = 0
For i = 0 To 14
sumialt = sumialt + val(Text2(i))
Next
Text9.Text = str(round(sumialt))

Synes godt om

force_master Praktikant

25. april 2004 - 12:26 #4

jo tak, den er jo go , men nu afrunder den ned istedet for,
den skal ikke afrunde , hverken op eller ned.

Synes godt om

force_master Praktikant

25. april 2004 - 13:06 #5

nå fik det løst.

For i = 0 To 14
If Text2(i) = 0 Then
Else
ny = Text2(i)
glvardi = gammel
nyialt = glvardi + ny
gammel = nyialt
End If
Next

Text9.Text = Format(gammel, "#,##0.00")

Synes godt om

martin_moth Mester

25. april 2004 - 13:32 #6

Den kode du i rigtig god stil selv har accepteret ser noget rodet - og forkert - ud.
Tror du ikke dette er bedre:

for i = 0 to 14
sum = sum + val(Text2(i))
next i
Text9.Text = Format(sum, "#,##0.00")

Det er nok en god ide også at Dim'me dine variabler...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS