dim monthInfo(11)
dim par1, par2, par3
...
for i=0 to ubound(a)
m=datepart("m",cdate(mid(a(i), instrrev(a(i),"|")+1)))
monthInfo(cint(m)-1)=a(i)
next
...
for i=0 to g_nDateCols-1
if monthInfo(i) is null then
par1=-1
par2=-1
par3=-1
else
aTemp = split (monthinfo(i), "|||")
par1=aTemp(0)
par2=aTemp(1)
par3=aTemp(2)
end if
next
...
sOutput=GetTaskStatusImg(par1, par2, g_tmStartDate(i), par3)