08. juni 2007 - 17:04Der er
16 kommentarer og 1 løsning
Start på VB
Hej Jeg har lige startet på VB med en bog der hedder Visual Basic 6.0 af Michell Cronberg. Jeg er desværre ikke kommet længere end til førtse eksempel hvor jeg skal lave mit første program. Jeg skal lave et modul hvor funktionerne kodes. Koden er:
Option Explicit
Function BeregnBeløbFørMoms(BeløbEfterMoms, Momspct) BeregnBeløbFørMoms = BeløbEfterMoms / (1 + Momspct) End Function
Function BeregnBeløbEfterMoms(BeløbFørMoms, Momspct) BregnBeløbEfterMoms = BeløbFørMoms * (1 + Mompct) End Function
Når jeg prøver at afvikle koden kommer den med en fejl. Jeg har kontroleret at alt er skrevet præcis som beskrevet i bogen. Er der nogen der kan hjælpe.??
Function BeregnBeløbFørMoms(BeløbEfterMoms, Momspct) Dim BeregnBeløbFørMomsValue as single = 0 BeregnBeløbFørMomsValue = BeløbEfterMoms / (1 + Momspct) Return BeregnBeløbFørMomsValue End Function
Der er intet i vejen med dine 2 funktioner, hvis du retter de slåfejl, som jeg og kjulius har anført. Jeg har kopieret din kode, rettet slåfejlene og kørt følgende procedure uden problemer:
Public Sub Test() Debug.Print BeregnBeløbFørMoms(100, 25) Debug.Print BeregnBeløbEfterMoms(100, 25) End Sub
Ohh, jamen så siger jeg undskyld for min ubetænksomhed. :-) Jeg ved ikke hvorfor, men et alias som word-hajen lyder bare så aggressivt, at jeg forbandt det med en mand. Meget chauvinistisk anskuelse, som jeg nu må revidere... ;-)
--> ves: Spørgsmålet skal lige lukkes, så word-hajen kan få sine point... :-)
Synes godt om
Ny brugerNybegynder
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.
Det er blevet kaldt ”det største it-nedbrud i historien” og omkostningerne kan nemt løbe op i syv milliarder kroner: Men hvem skal betale for Crowdstrikes fejl?
