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

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 = Format(dt, "yyyy年MM月_ddHH")
    Builder.AddDef(nm,Gettype(String),1)
    dt = dt.AddHours(1)
    If dt > Enddate Then
        Exit Do
    End If
Loop
builder.Build