主题：请将定时备份数据的问题

蓝老师，我想每天上午十点备份，日期为昨天的项目数据，请教怎样写的代码？

Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时
    dt = Date.Now
    Syscmd.Project.Backup("c:\data", True) '自动备份到c:\data目录
End If

间隔属性需要填43200000吗？