主题：如何判断两个时间点之间有多少个双休日

  如何判断两个时间点之间间隔多少天，可以用下面的语句：

Dim d1 as Date = #3/17/2019 12:30:29#
Dim d2 as Date = #5/23/2019 18:33:52#
Dim t As TimeSpan = d2 - d1
Dim s As Double = t.TotalDays

还需要继续进行判断，这两个时间之间间隔了多少个双休日的天数，如假设间隔一个双休日，那就是2天，间隔一个双休日加一个星期六，那就是3天；

如果首尾的时间，也落在双休日，则只计算其真正的时间所折算成的天数，比如上面的起始时间d1如果刚好为星期六，其也落在了双休日中，但d1不能计算为1天，只能计算从12:30:29到24:00:00之间的时间折算为天数：0.478831018518519天；如果上面的结束时间d2刚好落在星期六，则计算天数时，只能计算18:33:52折算为天数：0.773518518518518天。

如何用代码实现上面的判断过程？