Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Sonnet of the day from sparkenotes no fear shakespeare...
'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("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
Exercico 4
valor maximo entre 3 numeros
macro for msg box in outlook
Web application
loop 1
CAI Visual Basic - Libreria Funciones
check with hashset
Me3.1
CAI Visual Basic - Ej DJ
do until ex 2