主题：请教每隔24小时在日期列增加一行并显示为当天

请教每隔24小时在日期列增加一行并添加日期为当天,代码如下:

Static dt As Date
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 24 Then
    dt = Date.Now

     Dim dr As DataRow = DataTables("表A").Find("日期=#" & dt & "#")

    If dr Is Nothing Then

        dr=DataTables("表A").AddNew

        dr("日期")= dt

        DataTables("表A").Save()

    End If

End If

请大师对代码指教.