🚀 go-pugleaf

ok�, was eigenlijk wel bedoeld om hier te posten, maar na verzenden te duwen
had ik gemerkt dat het op mail was beland dus nu op algemeen verzoek zal ik
het hier dan ook maar posten, wist niet dat er zoveel liefhebbers zouden
zijn :-)

KrIstOfK
[Belgium ruless]

------------

Hey,

ik zal het je regel per regel uitleggen:

   Function Terug(ByVal intbedrag As Integer) As String
Je roept de functie Terug() op en je geeft een bedrag intbedrag mee, als
resultaat krijg je een string

    Dim strTerug As String
Je declareert een variabele strTerug waarin je een waarde zal steken die je
later zal teruggeven

    If intbedrag >= 500 Then
Je start een ALS-formule waarin je een voorwaarde gaat stellen.  De
voorwaarde is dus: ALS het meegegeven bedrag kleiner of gelijk aan 500 is,
dan gaat het de volgende code uitvoeren, anders gaan we naar de ELSE

      strTerug = "500 " & Terug(intbedrag - 500)
De variabele strTerug die daarnet gedeclareerd is gaan we nu opvullen (omdat
we aan de voorwaarde van daarnet voldoen).  In de variabelegaan we als tekst
500 zetten met daarachter nog iets.  Dit nog iets bestaat uit het volgende:
van het binnengekomen bedrag (dat groter is dan 500) gaan we 500 aftrekken
en met dit getal deze functie opnieuw doorlopen.

    ElseIf intbedrag >= 200 Then
Als het getal nu niet groter of gelijk aan 500 is, gaan we hier kijken of
het groter of gelijk aan 200 is.

       strTerug = "200 " & Terug(intbedrag - 200)
Hier gaan we dan de string opvullen als 200 en het resultaat van dezelfde
functie nog eens maar dan met het getal verminderd met 200.

    Return strTerug
De string teruggeven (naar de oproepende functie)

   End Function
einde van het plezier

'k zal nu ook keer een voorbeeldje geven want 'k kan mij voorstellen dat nog
ni echt duidelijk is :-)

ik roep dus de functie op met het getal 850: Terug(850)

- If intbedrag >= 500 is waar dus we gaan dat uitvoeren:
  strTerug wordt dus: 500 & Terug(850-500)
    - If intbedrag >= 500 is niet meer waar dus gaan we naar de ElseIf
      ElseIf intbedrag >= 200 is wel waar dus dit uitvoeren:
        deze strTerug wordt: 200 & Terug(350-200)
        - If intbedrag >= 500 niet waar, naar de ElseIf
          ElseIf intbedrag >= 200 ook niet waar, er is geen verdere else dus
einde van if
          teruggeven van deze string (waar niets inzit)
        we komen terug bij 200 & Terug(350-200)
        die functie heeft een lege string weergegeven zodat deze string het
volgend wordt:
        strTerug = 200, deze word teruggeven
   terug bij 500 & Terug(850-500)
   die functie gaf de string 200 terug
   dus deze string word: 500 200
DUS ons eindresultaat word: "500 200"


Hoop dat je het snapt met deze superuitleg
KrIstOfK