Question

How to calculate the week number for a given date in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim dt As DateTime = New DateTime(2025, 3, 14)
		Dim weekNumber As Integer = GetWeekNumber(dt)
		
        Console.WriteLine($"Week number: {weekNumber}")
    End Sub

	Public Shared Function GetWeekNumber(ByVal dt As DateTime) As Integer
		Dim startDate As DateTime = New DateTime(dt.Year, 1, 1)
		Dim days As Integer = CInt((dt - startDate).TotalDays)
		
        Return (days + CInt(startDate.DayOfWeek) + 1) \ 7 + 1
    End Function
End Class



' run:
'
' Week number: 11
'

 

70+ SQL courses for beginners and professionals