ENUM MaandType	
	januari	
	februari	
	maart	
	april	
	mei	
	juni	
	juli	
	augustus	
	september	
	oktober	
	november	
	december
END ENUM
DIM Maand AS MaandType

FUNCTION maandToStr(BYVAL maand AS MaandType) AS STRING
	SELECT CASE maand
		CASE januari
			maandToStr = "januari"
		CASE februari
			maandToStr = "februari"
		CASE maart
			maandToStr = "maart"
		CASE april
			maandToStr = "april"
		CASE mei
			maandToStr = "mei"
		CASE juni
			maandToStr = "juni"
		CASE juli
			maandToStr = "juli"
		CASE augustus
			maandToStr = "augustus"
		CASE september
			maandToStr = "september"
		CASE oktober
			maandToStr = "oktober"
		CASE november
			maandToStr = "november"
		CASE december
			maandToStr = "december"
	END SELECT
END FUNCTION
 