主题：[求助] 时间进度甘特图求帮忙

此主题相关图片如下：无标题.jpg

 

希望做一个表头用作甘特图的 日工作进度管理。

 

列名是 当天日期       子列名为  当天的时间

 

求帮助 该如何改。 

 

Tables("窗口2_Table1").StopRedraw()
Dim StartDate As Date = date.today()

Dim EndDate As Date = = Date.Today.AddDays(1)

Dim dt As Date = StartDate

Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = dt.Year & "年" &  dt.Month & "月_" & dt.Day & dt.Hour
    Builder.AddDef(nm,Gettype(String),1)
    dt = dt.AddHours(1)
    If dt > Enddate Then
        Exit Do
    End If
Loop
Tables("窗口2_Table1").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("窗口2_Table1").Cols
    cl.width = 20
Next

Tables("窗口2_Table1").ResumeRedraw()

 

 

测试了 老师的这个代码  数据有出入, 我不懂如何调整成时间格式！  请帮忙