Sub DisplayTime()
MessageBox.Show(GetTime)
End Sub
Function GetTime() As String
If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _
My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then
Return "Happy Weekend!"
Else
Return "Happy Weekday! Don't work too hard!"
End If
End Function
Web Links Directory
AddMe - Search Engine Optimization
Free Search Engine Submission
No comments:
Post a Comment