Søg
Avatar billede rusti Nybegynder
26. oktober 2005 - 22:42 Der er 10 kommentarer og
1 løsning

afrunding af decimaler i textbox

hej jeg har en textbox kaldet txtkrkm hvor den regner ud hvor mange kr man tjener pr km.
Regnestykket se ud som følgende

If Val(txtKilometerindkørt) = "0" Then
txtkrkm = 0
Else
txtkrkm = Val(txtBeløbindkørt) / Val(txtKilometerindkørt)
End If

Det jeg gerne vil have er at den afrunder beløbet så der kun er 2 decimaler men ved ikke hvordan jeg gør det.
Avatar billede oversjanten Nybegynder
26. oktober 2005 - 23:04 #1
Jeg mener du kan bruge:

Round(txtkrkm, 2)
Avatar billede visualdeveloper Nybegynder
26. oktober 2005 - 23:27 #2
Dim txtkrkm As Double
Dim Rundaf As Integer

txtkrkm = Val
Rundaf = CInt(Val(txtBeløbindkørt) / Val(txtKilometerindkørt))
Avatar billede visualdeveloper Nybegynder
26. oktober 2005 - 23:32 #3
hov kom til at trykke send, her er rigtig kode:

Dim txtkrkm As Double
Dim Rundaf As Integer

txtkrkm = Val(txtBeløbindkørt) / Val(txtKilometerindkørt)
Rundaf = Round(txtkrkm, 2)
Avatar billede visualdeveloper Nybegynder
26. oktober 2005 - 23:38 #4
så hvis det virke må du hellere give poinsne til oversjanten da det var ham det kom først !
Avatar billede kabbak Professor
26. oktober 2005 - 23:39 #5
If Val(txtKilometerindkørt) = "0" Then
txtkrkm = 0
Else
txtkrkm = Round(Val(txtBeløbindkørt) / Val(txtKilometerindkørt)),2)
Avatar billede rusti Nybegynder
27. oktober 2005 - 06:49 #6
oki takker det virker
Avatar billede rusti Nybegynder
04. november 2005 - 11:58 #7
jeg mangler et svar fra kabbak eller oversjanten
Avatar billede kabbak Professor
04. november 2005 - 12:14 #8
et svar ;-))

Deler gerne point med oversjanten
Avatar billede rusti Nybegynder
04. november 2005 - 12:20 #9
han må også gerne få 30 point fra mig for svaret men så må han lige skrive
Avatar billede oversjanten Nybegynder
04. november 2005 - 12:23 #10
et svar ;-)
Avatar billede rusti Nybegynder
04. november 2005 - 12:30 #11
Hej oversjanten har oprettet et spørgsmål til dig på http://www.eksperten.dk/spm/661743 så smid lige et svar der og du får pointene
Avatar billede 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.

Loading billede Opret Preview
Kategori
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 14:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
25/0713:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
White papers
Flere white papers »