VB中時間相減問題

  做機房收費系統的時候，遇見一個問題，就是上機時間與下機時間的小時差該如何算。

  出現了下面這種情況：

  

  上機和下機的時間差距有兩天之多，這該如何算時間差呢。這時用到了datediff()這個函數

  DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])

　　允許資料類型: timeinterval 表示相隔時間的類型，代碼為：

　　年份 yy、yyyy 季度 qq、q

　　月份 mm、m

　　每年的某一日 dy、y

　　日期 dd、d

　　星期 wk、ww

　　工作日 dw

　　小時 hh

　　分鐘 mi、n

　　秒 ss、s

　　毫秒 ms

  比如 

?DateDiff( "M ", "2000-9-1 ", "2002-2-1 ") 17

 而我發現，這個系統在應用於學校的時候，晚上必然不會讓同學通宵上機的，那麼怎麼會出現當天上機，明天或後天下機的情況。這時就用到了強制下機。在晚上固定的時間強制學生下機。保證當天上機，當天下機。想想跟網吧通宵是一個道理，在晚上10點的時候，都讓會員下機或者轉換為通宵上機。程式設計真是來源於生活...

  如此來看，只需讓上下機的時間相減就可以了，這種情況相減豈不是更加簡單。只需套用

format(#7:12:45   PM#   -   #5:23:34   PM#, "HH:mm:SS ") 這樣一個格式就OK了。