Imports System Public Class Test Shared Sub Main() Dim dtCurrent As System.DateTime Dim iHour As Integer dtCurrent = dtCurrent.Now() iHour = dtCurrent.Hour If (iHour < 12) Then Console.Writeline("Good Morning!") Else If (iHour >= 12) And (iHour < 18) Then Console.WriteLine("Good Afternoon!") Else Console.WriteLine("Good Evening!") End If End Sub End Class
Very Good.