|
|
 | 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
>
>
>
| |
|
|