Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.