<%
FUNCTION TimeStamp(Soort,Datum)
	IF isDate(Datum) THEN
		SELECT CASE Soort
		CASE "ts"
			TimeStamp = "{ "&Soort&"'"&Year(Datum)&"-"&NummerFormat(Month(Datum),2)&"-"&NummerFormat(DAY(Datum),2)&" "&NummerFormat(HOUR(Datum),2)&":"&NummerFormat(MINUTE(Datum),2)&":"&NummerFormat(SECOND(Datum),2)&"'}"
		CASE "d"
			TimeStamp = "{ "&Soort&"'"&Year(Datum)&"-"&NummerFormat(Month(Datum),2)&"-"&NummerFormat(DAY(Datum),2)&"'}"
		CASE "t"
			TimeStamp = "{ "&Soort&"'"&NummerFormat(HOUR(Datum),2)&":"&NummerFormat(MINUTE(Datum),2)&":"&NummerFormat(SECOND(Datum),2)&"'}"
		END SELECT
	ELSE
		SELECT CASE Soort
		CASE "ts"
			TimeStamp = "{ "&Soort&"'0000-00-00 00:00:00'}"
		CASE "d"
			TimeStamp = "{ "&Soort&"'0000-00-00'}"
		CASE "t"
			TimeStamp = "{ "&Soort&"'00:00:00'}"
		END SELECT
	END IF
END FUNCTION

FUNCTION NLTijd(Datum)
	DIM Minuten, uren
	IF VarType(Datum)=7 THEN
		Minuten = Minute(Datum)
		Uren = Hour(Datum)
	
		IF Minuten="" OR Minuten="0" OR (VarType(Minuten)=1)THEN
			Minuten ="00"
		END IF
		DO WHILE Len(Minuten) < 2 
			Minuten="0"&Minuten 	
		LOOP
		DO WHILE Len(Uren) < 2 
			Uren="0"&Uren
		LOOP

		IF Uren="" OR (VarType(Uren)=1)THEN
			Uren="00"
		END IF

		NLTijd = Uren&":"&Minuten
	ELSE
		NLTijd = "00:00"
	END IF
END FUNCTION

FUNCTION Tijd(Datum)
	DIM Minuten, uren
	IF VarType(Datum)=7 THEN
		Minuten = Minute(Datum)
		Uren = Hour(Datum)
	
		IF Minuten="" OR Minuten="0" OR (VarType(Minuten)=1)THEN
			Minuten ="00"
		END IF

		IF Uren="" OR (VarType(Uren)=1)THEN
			Uren="0"
		END IF

		Tijd = Uren&":"&Minuten&"uur"
	ELSE
		Tijd = "0:00uur"
	END IF
END FUNCTION

FUNCTION PeriodeNaam(Periode,soort)
  IF ISnumeric(Periode) THEN
    SELECT CASE soort
	CASE "d"
	  IF Periode>1 THEN
	    PeriodeNaam = "per "&Periode&" dagen"
	  ELSE
        PeriodeNaam = "per dag"
	  END IF
	CASE "w"
	  IF Periode>1 THEN
	    PeriodeNaam = "per "&Periode&" weken"
	  ELSE
        PeriodeNaam = "per week"
	  END IF
	CASE "m"
	  IF Periode>1 THEN
	    PeriodeNaam = "per "&Periode&" maanden"
	  ELSE
        PeriodeNaam = "per maand"
	  END IF
	CASE "y"
	  IF Periode>1 THEN
	    PeriodeNaam = "per "&Periode&" jaar"
	  ELSE
        PeriodeNaam = "per jaar"
	  END IF
	END SELECT
  ELSE
    PeriodeNaam=""
  END IF
END FUNCTION

FUNCTION MonthName(Maand)
  SELECT CASE Maand
  CASE 1
    MonthName = "january"
  CASE 2
    MonthName = "february"
  CASE 3
    MonthName = "march"
  CASE 4
    MonthName = "april"
  CASE 5
    MonthName = "may"
  CASE 6
    MonthName = "june"
  CASE 7
    MonthName = "july"
  CASE 8
    MonthName = "august"
  CASE 9
    MonthName = "septeber"
  CASE 10
    MonthName = "october"
  CASE 11
    MonthName = "november"
  CASE 12
    MonthName = "december"
  END SELECT
END function

FUNCTION MaandNaam(Maand)
  SELECT CASE Maand
  CASE 1
    MaandNaam = "januari"
  CASE 2
    MaandNaam = "february"
  CASE 3
    MaandNaam = "maart"
  CASE 4
    MaandNaam = "april"
  CASE 5
    MaandNaam = "mei"
  CASE 6
    MaandNaam = "juni"
  CASE 7
    MaandNaam = "juli"
  CASE 8
    MaandNaam = "augustus"
  CASE 9
    MaandNaam = "september"
  CASE 10
    MaandNaam = "oktober"
  CASE 11
    MaandNaam = "november"
  CASE 12
    MaandNaam = "december"
  END SELECT
END function

FUNCTION DagNaam(Dag)
  SELECT CASE Dag
  CASE 1
    DagNaam = "zondag"
  CASE 2
    DagNaam = "maandag"
  CASE 3
    DagNaam = "dinsdag"
  CASE 4
    DagNaam = "woensdag"
  CASE 5
    DagNaam = "donderdag"
  CASE 6
    DagNaam = "vrijdag"
  CASE 7
    DagNaam = "zaterdag"
  END SELECT
END function

FUNCTION DayName(Dag)
  SELECT CASE Dag
  CASE 1
    DayName = "sunday"
  CASE 2
    DayName = "monday"
  CASE 3
    DayName = "tuesday"
  CASE 4
    DayName = "wednesday"
  CASE 5
    DayName = "thursday"
  CASE 6
    DayName = "friday"
  CASE 7
    DayName = "saturday"
  END SELECT
END function

function bedragformat(Bedrag)
  IF ISnumeric(bedrag) THEN
    hulp1 = int(bedrag)*100
	hulp2=INT(bedrag*100)
	dec = hulp2-hulp1
	IF dec=0 then
  	  bedragformat = "f "&int(bedrag)&",00"
	ELSE
  	  bedragformat = "f "&int(bedrag)&","&dec
	END IF
  ELSE
    bedragformat = "-"
  END IF
end function

function currentformat(Bedrag)
  IF ISnumeric(bedrag) THEN
    hulp1 = int(bedrag)*100
	hulp2=INT(bedrag*100)
	dec = hulp2-hulp1
	IF dec=0 then
  	  currentformat = "$ "&int(bedrag)&".00"
	ELSE
  	  currentformat = "$ "&int(bedrag)&"."&dec
	END IF
  ELSE
    currentformat = "-"
  END IF
end function

FUNCTION NummerFormat(getal,Teller)
  IF getal<>"" THEN
    Getal = TRIM(CSTR(getal))
	IF LEN(getal)<Teller then
	  getal = STRING(Teller-LEN(getal),"0")&getal
	END IF
	NummerFormat=getal
  END IF
END FUNCTION

function datumformat(Formaat,datumstring)
  IF datumstring<>"" THEN
    SELECT CASE Formaat
	CASE "T"
	  datumformat = NummerFormat(hour(datumstring),2)&":"&NummerFormat(minute(datumstring),2)
	CASE "D"
      datumformat = NummerFormat(day(datumstring),2)&"-"&NummerFormat(month(datumstring),2)&"-"&NummerFormat(year(datumstring),4)
	CASE "B"
      datumformat = NummerFormat(day(datumstring),2)&"-"&NummerFormat(month(datumstring),2)&"-"&NummerFormat(year(datumstring),4)&" "&NummerFormat(hour(datumstring),2)&":"&NummerFormat(minute(datumstring),2)
	CASE "U"
      datumformat = DagNaam(weekday(datumstring))&" "&day(datumstring)&" "&maandnaam(month(datumstring))&" "&year(datumstring)
	CASE "C"
      datumformat = DagNaam(weekday(datumstring))&" "&day(datumstring)&" "&maandnaam(month(datumstring))&" "&year(datumstring)&" "&NummerFormat(hour(datumstring),2)&":"&NummerFormat(minute(datumstring),2) 
	END SELECT
  ELSE
    datumformat = "-"
  END IF
end function

function dateformat(Formaat,datumstring)
  IF datumstring<>"" THEN
    Thour=hour(datumstring)
	IF Thour > 12 THEN
	  TimeText=Thour-12&":"&NummerFormat(minute(datumstring),2)&" PM"
	ELSE
	  TimeText=Thour&":"&NummerFormat(minute(datumstring),2)&" AM"
	END IF
    SELECT CASE Formaat
	CASE "T"
	  DateFormat = TimeText
	CASE "D"
      DateFormat = NummerFormat(month(datumstring),2)&"/"&NummerFormat(day(datumstring),2)&"/"&NummerFormat(year(datumstring),4)
	CASE "B"
      DateFormat = NummerFormat(month(datumstring),2)&"/"&NummerFormat(day(datumstring),2)&"/"&NummerFormat(year(datumstring),4)&" "&TimeText
	CASE "U"
      DateFormat = dayname(weekday(datumstring))&" "&MonthName(month(datumstring))&" "&day(datumstring)&" "&year(datumstring)
	CASE "C"
      DateFormat = dayname(weekday(datumstring))&" "&MonthName(month(datumstring))&" "&day(datumstring)&" "&year(datumstring)&" "&TimeText
	END SELECT
  ELSE
    DateFormat = "-"
  END IF
end function
%>