So we built better training tools.
-Dedicated Cloud Servers
All at your fingertips. What are you waiting for?
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
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.