请教老师，根据帮助写的代码，现在绘制出的甘特图，超期（完成时间）的日期起点与结束日期重叠，怎样写代码让绘制的时间精确

例如：                                                                 2018年6月

 开始时间            结束时间         完成时间                1  2  3  4  5  6  7  8             应该是  1  2  3  4  5  6  7  8   

2018-06-01    2018-06-05     2018-06-07                  ·················  ······                              .....   ...................

If DrawGannt Then
    Dim r As Row  = Tables("表B.表D").Rows(e.Row.Index)
    Dim dt1 As Date = r("开始时间")
    Dim dt2 As Date = r("结束时间")
    Dim dt3 As Date = r("完成时间")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    e.StartDraw()
    If dt >= dt1 AndAlso dt <= dt2 Then
        e.Graphics.FillRectangle(Brushes.LimeGreen,e.x ,e.y + 5, e.Width, e.Height - 10)
    End If

后续代码省略.........

解决了

后续代码If dt >= dt2 AndAlso dt <= dt3 Then  改成 

If dt > dt2 AndAlso dt <= dt3 Then 

没看懂你的意思。请贴出完整代码。

按照你的例子，把6号7号弄成红色就可以了？