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
|Help with creating multiple xml files from one xml file using VB.NET||6||37|
|Learning Processes involved in building a asp.net mvc (C#) application that uses an Oracle database||8||71|
|How to avoid saving tif files a 2nd time using VS2015 and C#?||1||27|
|how to read json value||2||29|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!