Dim variabele, strEmail
Dim prijsPersoon,prijsPersoonHoog,prijsHuurcaravan,prijsLinnengoed,prijsBeddengoed,prijsElektriciteit,prijsMountainbike,prijsPersoonAanbetaling, prijsHuurcaravanAanbetaling,prijsKilometer
Dim prijsKamerBB,PrijsKamerBBHoog,PrijsPersoonBB,prijsBBAanbetaling
Dim datumBegin,datumEind,datumBeginHoog,datumEindHoog
Dim PercKleineKinderKorting, AantalHoogseizoenKinderKorting
Dim prijsOntbijt, prijsOntbijtLuxe, prijsMaaltijd, prijsMaaltijdLuxe

// Variabelen definiėren
	kalenderJaar=2008
	middagpauze="13.00u tot 16.00u"
	
	prijsPersoon=6
	prijsPersoonHoog=7
	prijsPersoonAanbetaling=10
	
	prijsHuurcaravan=12
	prijsHuurcaravanHoog=prijsHuurcaravan
	prijsHuurcaravanAanbetaling=75

	prijsPlekje=0
	prijsKampeermiddel=0
	prijsHuisdier=0
	
	prijsLinnengoed=1
	prijsBeddengoed=2
	prijsElektriciteit=2.5
	prijsDouche=0.5
	prijsMountainbike=3.5
	
	prijsOntbijt=6
	prijsOntbijtLuxe=8.5

	PrijsKamerBB=15
	prijsKamerBBHoog=20
	prijsPersoonBB=prijsPersoon+prijsOntbijt
	prijsPersoonBBHoog=prijsPersoonHoog+prijsOntbijt
	PrijsBBAanbetaling=50
	
	prijsMaaltijd=15
	prijsMaaltijdLuxe=20
	prijsMaaltijdAfhalen=4
	prijsPastaAfhalen=4
	prijsPizzaAfhalen=5
	prijsKaas=1	'/100g
	prijsRicotta=0.5	'/100g
	
	prijsKilometer=0.5
	prijsExcursieRome=30
	prijsExcursieTarquinia=20
	prijsExcursieCerveteri=20
	prijsExcursieOstia=30
	prijsExcursieNapels=60
	prijsExcursieSanGuiliano=12.50
	
	datumBegin="1-5"
	datumEind="15-9"
	datumBeginHoog="1-7"
	datumEindHoog="15-8"
	
	beginLeeftijdKleinKind=0
	eindLeeftijdKleinKind=4
	PercKleineKinderKorting=0.5
		prijsKleinKind=PercKleineKinderKorting*prijsPersoon
		prijsKleinKindHoog=PercKleineKinderKorting*prijsPersoonHoog

	beginLeeftijdKind=5
	eindLeeftijdKind=12
	AantalHoogseizoenKinderKorting=5
	
	tijdBBOpen="16:00"
	tijdBBSluiten="10:00"
	
	aantalPersonenMaximum=20

Function Mese(invoer)
if lcase(invoer)="januari" or invoer="1" then Mese="gennaio"
if lcase(invoer)="februari" or invoer="2" then Mese="febraio"
if lcase(invoer)="maart" or invoer="3" then Mese="marzo"
if lcase(invoer)="april" or invoer="4" then Mese="aprile"
if lcase(invoer)="mei" or invoer="5" then Mese="maggio"
if lcase(invoer)="juni" or invoer="6" then Mese="giugnio"
if lcase(invoer)="juli" or invoer="7" then Mese="luglio"
if lcase(invoer)="augustus" or invoer="8" then Mese="agosto"
if lcase(invoer)="september" or invoer="9" then Mese="settembre"
if lcase(invoer)="oktober" or invoer="10" then Mese="ottobre"
if lcase(invoer)="november" or invoer="11" then Mese="novembre"
if lcase(invoer)="december" or invoer="12" then Mese="diccembre"
End Function

Function NummerVoluit(Invoer)
NummerVoluit=Invoer
if invoer=1  then NummerVoluit="een"
if invoer=2  then NummerVoluit="twee"
if invoer=3  then NummerVoluit="drie"
if invoer=4  then NummerVoluit="vier"
if invoer=5  then NummerVoluit="vijf"
if invoer=6  then NummerVoluit="zes"
if invoer=7  then NummerVoluit="zeven"
if invoer=8  then NummerVoluit="acht"
if invoer=9  then NummerVoluit="negen"
if invoer=10  then NummerVoluit="tien"
End Function

Function Gratis (Invoer)
Gratis="€ " & FormatNumber(Invoer)
If Invoer=0 then Gratis="gratis"
End Function

Function Vervangen(invoer, brontekst, doeltekst)
x = invoer
While InStr(x, brontekst) > 0
    n = InStr(x, brontekst)
    If n > 0 Then x = Left(x, n - 1) & doeltekst & Right(x, Len(x) - n - Len(brontekst) + 1)
Wend
Vervangen = x
End Function