vbnet 距自動執行時間

常常寫到自動執行的時間判斷,底下截取片段出來記錄一下
---
Dim dt_now As DateTime = Now.ToString("yyyy/MM/dd HH:mm:ss") '現在時間
Dim dt_tmpa As New DateTime  ' 定義的時間
 
 TSSLabauto.Text = "距自動執行時間:" + _
 (DateDiff(DateInterval.Hour, dt_now, dt_tmpa) Mod 24).ToString + "時" + _
 (DateDiff(DateInterval.Minute, dt_now, dt_tmpa) Mod 60).ToString + "分"