<% ' ################################# public function CAL_DisplayYears() dim sH : sH = "" dim Year1, Year2, Year3 dim dtViewMonth ' If View1 is enabled (Year view) if blView1 then dtViewMonth = VMonth() sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf Year1=DateSerial(year(dtViewMonth), 1, 1) Year2=DateSerial(year(dtViewMonth)+1, 1, 1) Year3=DateSerial(year(dtViewMonth)+2, 1, 1) sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & "" & year(dtViewMonth) & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & "" & year(dtViewMonth) +1 & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & "" & year(dtViewMonth)+2 & "" & VbCrLf sH = sH & "

" & VbCrLf CAL_DisplayYears = funcs.BOXCreator("", sH, strDEFTHEME, "", "100%") end if end function %>