/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
VBA kodeproblemer
Fra : Ib Meineche


Dato : 31-03-01 10:03

Jeg er er nybegynder i VBA programmering, men jeg synes det er utrolig
spændende. I forbindelse med med kodning har jeg problemer med følgende
programstump - hvad gør jeg forkert - er der noget der kan skrives mere
hensigtsmæssigt ??


(Modulark)

Public Const tkValuta As String = "#,##0.00 kr"

Public Function Pris(dage, voksne, boern, biler, camping, telte As
Currency)

Call modBeregning

Pris = ((voksne * VOKSEN_PRIS_DAG) + (boern * BOERN_pris_dag) + (biler *
BIL_PRIS_DAG) + (camping * CAMPING_PRIS_DAG) + (telt * TELT_PRIS_DAG)) *
dage

End Function

Public Function moms(beloeb As Currency)

moms = beloeb * 0.25

End Function

Sub modBeregning()

Const VOKSEN_PRIS_DAG As Single = 50

Const BARN_PRIS_DAG As Single = 25

Const BIL_PRIS_DAG As Single = 10

Const CAMPING_PRIS_DAG As Single = 50

Const TELT_PRIS_DAG As Single = 20

End Sub

(Form)

Private Sub cmdBeregn_Click()

Dim PrisFM, MomsBel As Currency

PrisFM = Pris(txtDage.Value, txtVoksne.Value, txtBorn.Value,
txtBiler.Value, txtCamping.Value, txtTelte.Value)

MomsBel = moms(PrisFM)

MsgBox "Prisen er:" & vbTab & Format(PrisFM, tkValuta), , "Pris" _

& vbLf & "Moms er:" & Format(MomsBel, tkValuta) _

& vbLf & "I alt:" & Format((PrisFM + MomsBel), tkValuta)

End Sub




 
 
Leo Heuser (01-04-2001)
Kommentar
Fra : Leo Heuser


Dato : 01-04-01 11:00

Ib

Det vil lette arbejdet, hvis du beskriver hvilke problemer, du har.
Hvilken fejlmeddelelse får du og hvilken linie er markeret med gult?

Med venlig hilsen
LeoH


"Ib Meineche" <meineche@post.tele.dk> skrev i en meddelelse
news:9a468v$1oh$1@news.inet.tele.dk...
> Jeg er er nybegynder i VBA programmering, men jeg synes det er utrolig
> spændende. I forbindelse med med kodning har jeg problemer med følgende
> programstump - hvad gør jeg forkert - er der noget der kan skrives mere
> hensigtsmæssigt ??
>
>
> (Modulark)
>
> Public Const tkValuta As String = "#,##0.00 kr"
>
> Public Function Pris(dage, voksne, boern, biler, camping, telte As
> Currency)
>
> Call modBeregning
>
> Pris = ((voksne * VOKSEN_PRIS_DAG) + (boern * BOERN_pris_dag) + (biler
*
> BIL_PRIS_DAG) + (camping * CAMPING_PRIS_DAG) + (telt * TELT_PRIS_DAG)) *
> dage
>
> End Function
>
> Public Function moms(beloeb As Currency)
>
> moms = beloeb * 0.25
>
> End Function
>
> Sub modBeregning()
>
> Const VOKSEN_PRIS_DAG As Single = 50
>
> Const BARN_PRIS_DAG As Single = 25
>
> Const BIL_PRIS_DAG As Single = 10
>
> Const CAMPING_PRIS_DAG As Single = 50
>
> Const TELT_PRIS_DAG As Single = 20
>
> End Sub
>
> (Form)
>
> Private Sub cmdBeregn_Click()
>
> Dim PrisFM, MomsBel As Currency
>
> PrisFM = Pris(txtDage.Value, txtVoksne.Value, txtBorn.Value,
> txtBiler.Value, txtCamping.Value, txtTelte.Value)
>
> MomsBel = moms(PrisFM)
>
> MsgBox "Prisen er:" & vbTab & Format(PrisFM, tkValuta), , "Pris" _
>
> & vbLf & "Moms er:" & Format(MomsBel, tkValuta) _
>
> & vbLf & "I alt:" & Format((PrisFM + MomsBel), tkValuta)
>
> End Sub
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408896
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste