Example day of year ~ use of mod to obtain remainder, Visual Basic

Example day of year ~ use of mod to obtain remainder

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System : Imports System.Collections.Generic : Imports System.Linq : Imports System.Text.RegularExpressions
Namespace Rextester
Public Module Program
'https://www.programmingalgorithms.com/algorithm/day-of-year?lang=VB.Net
Public Function DayOfYear(year As UInteger, month As Byte, day As Byte) As Integer
Dim days As UShort() = {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334}
If IsLeapYear(year) AndAlso month >= 2 Then
Return days(month - 1) + day + 1
End If
Return days(month - 1) + day
End Function
Private Function IsLeapYear(year As UInteger) As Boolean
Return (year Mod 4 = 0 AndAlso (year Mod 100 <> 0 OrElse year Mod 400 = 0))
End Function
Public Sub Main(args() As string)
Dim doy = DayOfYear(CUInt(DateTime.Now.Year), CByte(DateTime.Now.Month), CByte(DateTime.Now.Day))
Console.WriteLine("Selected Poems of Rumi (Dover Thrift Edition) has 119 poems")
Console.WriteLine("Divide 119 total poems into doy:" & doy & " the remainder/poem for today is #" & (doy mod 119)+1)
End Sub
End Module
End Namespace


run \| edit \| history \| help	0