Dim t As Date = Tables("表A").Current("第一列")
Dim t2 As New Date(t1.Year,t1.Month,t1.Day, t.Hour, t.Minute, 0)