"No Fear Shakespeare" sonnet of the day ... (doy modulo 154)+1, Visual Basic

"No Fear Shakespeare" sonnet of the day ... (doy modulo 154)+1

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


run \| edit \| history \| help	0

Please log in to post a comment.