Selected Shakespeare Sonnet for doy mod 150, Visual Basic

Selected Shakespeare Sonnet for doy mod 150

'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)
'Your code goes here
Dim doy = DayOfYear(CUInt(DateTime.Now.Year), CByte(DateTime.Now.Month), CByte(DateTime.Now.Day))
Console.WriteLine("Shakespear sonnet #" & doy &"...Poem#" & (doy mod 150)+1)
End Sub
End Module
End Namespace


run \| edit \| history \| help	0