Notifikationer

Markér alle som læst Log ud

darth-domino Nybegynder

10. maj 2005 - 09:57 Der er 8 kommentarer og
1 løsning

Rund tal OP!

Hvordan får jeg en VBA kode til at runde eks 2,5 OP til 3....

Synes godt om

thomaxz Nybegynder

10. maj 2005 - 10:11 #1

du kan bruge

nyttal=round(tal,decimaler)

den runder 2,5 op til 3 men 2,4 ned til 2 hvis du angiver decimal til 0.

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

10. maj 2005 - 10:14 #2

Thomas-> rent faktisk bliver 2,5 rundet ned med Round (mens 3,5 rundes op og 4,5 rundes ned og ....)

Dette skyldes bankverdenens underlige måde at afrunde tal på.

Men man kan bruge denne:

Int(dittal+0.5)

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

10. maj 2005 - 10:15 #3

PS: Jeg går ud fra, at du gerne vil have 2,4 rundet ned på alm. vis!

Synes godt om

darth-domino Nybegynder

10. maj 2005 - 10:18 #4

Nej... det skal altid rundes op af... selv en 2,1 skal blive 3!

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

10. maj 2005 - 10:24 #5

Ok, så brug denne funktion, som burde kunne gøre det:

Public Function RundOp(tal As Single) As Long
If tal - Int(tal) = 0 Then
RundOp = tal
Else
RundOp = Int(tal + 1)
End If
End Function

?RundOp(2) = 2
?RundOp(2.2) = 3

Synes godt om

ferdinand.k Mester

10. maj 2005 - 10:25 #6

kan du ikke bare lægge 1 til tallet, og så bruge round()

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

10. maj 2005 - 10:27 #7

Ferdinand-> Prøv den med f.eks. 2 (jeg går ud fra, at 2 IKKE skal rundes op til 3?)

I det hele taget skalman holde sig helt fra round, med mindre man er bankmand/dame

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

10. maj 2005 - 10:28 #8

tak, Darth :o)

Synes godt om

martin_moth Mester

11. maj 2005 - 16:46 #9

ferdinand.k: "kan du ikke bare lægge 1 til tallet, og så bruge round()"

Så vil 1,9 jo blive rundet til

1,9 + 1 = 1,9
round(2,9) = 3

og 1,9 skal jo ikke rundes op til 3, vel?

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