Function dateJ(c1, c2, c3, c4, c5)
xc1 = 0: xc2 = 0: xc3 = 0: xc4 = 0: xc5 = 0
If c1 < Date Then xc1 = 0 Else xc1 = 1
If c2 < Date Then xc2 = 0 Else xc2 = 1
If c3 < Date Then xc3 = 0 Else xc3 = 1
If c4 < Date Then xc4 = 0 Else xc4 = 1
If c5 < Date Then xc5 = 0 Else xc5 = 1
dateJ = xc1 + xc2 + xc3 + xc4 + xc5
End Function