VB.net DateDiff 取得日期是週末或是非週末

Math.Floor((DateDiff(DateInterval.Day, CType("1900/01/02", Date), CType(Now.ToString("yyyy/MM/dd"), Date)) Mod 7) / 5)

如果得到是0表示是Weekday非週日
如果得到是1表示是Weekend週末