Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
For d = 1 To 31 If d > LastDayOfMonth Then Temp = "-" Else MyDate = DateSerial(2000 + MyYear, m, d) If Weekday(MyDate, vbMonday) - 1 < 5 Then LData.MoveFirst Temp = "." Do While Not LData.EOF If LUsers!uinits = LData!LInits Then If MyDate >= LData!LDateFrom And MyDate <= LData!LDateTo Then Temp = LData!LType Exit Do End If End If LData.MoveNext Loop Else Temp = "." End If End If