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!")
ElseIf (iHour >= 12) And (iHour < 18) Then
Console.WriteLine("Good Afternoon!")
Else
Console.WriteLine("Good Evening!")
End If
End Sub
End Class
|