主题：甘特图多时间段问题

上面的代码没问题。

你右边的表，明细生成得不对，单元格就没有生成到最大的日期。

类似代码，细节自己调整

Dim StartDate As Date
Dim EndDate As Date

Dim ary(3) As Date
ary(0) = tbl.Compute("Min(到港日期)", "到港日期 IS NOT NULL")
ary(1) = tbl.Compute("Min(到港日期)", "到港日期 IS NOT NULL")
ary(2) = tbl.Compute("Min(到港日期)", "到港日期 IS NOT NULL")
ary(3) = tbl.Compute("Min(到港日期)", "到港日期 IS NOT NULL")
array.sort(ary)
startDate = ary(0)

ary(0) = tbl.Compute("max(到港日期)", "到港日期 IS NOT NULL")
ary(1) = tbl.Compute("max(到港日期)", "到港日期 IS NOT NULL")
ary(2) = tbl.Compute("max(到港日期)", "到港日期 IS NOT NULL")
ary(3) = tbl.Compute("max(到港日期)", "到港日期 IS NOT NULL")
array.sort(ary)
EndDate = ary(ary.length-1)

EndDate = ary(ary.length-1)

If EndDate < Date.Today Then

    EndDate = Date.Today

End If