Imports System
Public Class WeekdayCalculator
Public Shared Sub Main()
Dim year As Integer = DateTime.Now.Year
Dim weekdayCount As Integer = CountWeekdaysInYear(year)
Console.WriteLine($"Number of weekdays in {year}: {weekdayCount}")
End Sub
Private Shared Function CountWeekdaysInYear(ByVal year As Integer) As Integer
Dim weekdayCount As Integer = 0
Dim dt As DateTime = New DateTime(year, 1, 1)
While dt.Year = year
If dt.DayOfWeek <> DayOfWeek.Saturday AndAlso dt.DayOfWeek <> DayOfWeek.Sunday Then
weekdayCount += 1
End If
dt = dt.AddDays(1)
End While
Return weekdayCount
End Function
End Class
' run:
'
' Number of weekdays in 2025: 261
'
