maandag 23 september 2013

Daar word ik nu vrolijk van...:-)

Function Viertallig(lngNumber)
 Dim strFour
 strFour=""
 While lngNumber > 0
  IF lngNumber Mod 4 = 0 Then
   strFour = "0" & strFour
  Else If lngNumber Mod 4 = 1 Then
   strFour = "1" & strFour
  Else If lngNumber Mod 4 = 2 Then
   strFour = "2" & strFour
  Else If lngNumber Mod 4 = 3 Then
   strFour = "3" & strFour
  End if
  End if
  End if
  End if
  lngNumber = lngNumber \ 4
 Wend
 Viertallig = strFour
End Function
De complete programmatekst staat HIER.