Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Dim intWeek as integer = DateTime.Now.WeekOfMonth
Dim DayNo As Integer = 0 Dim DateNo As Integer = 0 Dim StartingDay As Integer = 0 Dim PayPerEndDate As Date = DateTime.Now Dim week As Integer = 1 StartingDay = PayPerEndDate.AddDays(-(PayPerEndDate.Day - 1)).DayOfWeek DayNo = PayPerEndDate.DayOfWeek DateNo = PayPerEndDate.Day week = Fix(DateNo / 7) If DateNo Mod 7 > 0 Then week += 1 End If If StartingDay > DayNo Then week += 1 End If
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!