Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
valor maximo entre 3 numeros
19 11 2019 exercicio 2 equaçao
Exercico 2
exercicio A
Poem of the day from 'Selected Poems of Rumi (Dover Thrift Edition)'
Hello
DO LOOP UNTIL EX3
VB.NET: Functions aren't required to return a value
ok
Black Jack