function arraybul(ilktarih as date, sontarih as date) as Arraylist
dim vardiya as string
dim liste as Arraylist

for ilktarih to sontarih
    vardiya = tablodanal(mod((tarih - 03.01.2020),24))
    liste.add  tarih&vardiya
next
arraybul = liste
end function


function tablodanal(mod as integer) as String
   dim result as string
   if(mod > -1 and mod < 6) then 
        result = "4c"
   elseif(mod >5 and mod < 12) then 
        result = "4d"
   elseif(mod >5 and mod < 12) then 
        result = "4a"
   elseif(mod >5 and mod < 12) then 
        result = "4b"
   endif