No Fear Shakespeare sonnet of the day, Visual Basic

No Fear Shakespeare sonnet of the day

'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(CUInt(DateTime.Now.Year) & "-" & _
  CStr(DateTime.Now.Month+100).substring(1,2) & "-" & _
  CStr(DateTime.Now.Day+100).Substring(1,2))
Console.WriteLine("This is day " & doy & " of the year...(" & doy & " mod 150)+1...")
Console.WriteLine("https://www.sparknotes.com/nofear/shakespeare/sonnets/sonnet_" & (doy mod 150)+1 & "/")
End Sub
End Module
End Namespace


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development