Public Class Tester
Public Shared Sub Main
Dim thirdOfJuly As Date = #7/3/1776 11:59:59 PM#
Dim fourthOfJuly As New Date(1776, 7, 4)
Dim inTheMorning As New Date(1776, 7, 4, 9, 45, 30)
Console.WriteLine( _
"The 3rd and 4th of July, 1776..." & _
vbNewLine & vbNewLine & _
"#7/3/1776 11:59:59 PM# ... " & _
thirdOfJuly.ToString & vbNewLine & _
"New Date(1776, 7, 4) ... " & _
fourthOfJuly.ToString & vbNewLine & _
"New Date(1776, 7, 4, 9, 45, 30) ... " & _
inTheMorning.ToString)
End Sub
End Class
The 3rd and 4th of July, 1776...
#7/3/1776 11:59:59 PM# ... 03/07/1776 11:59:59 PM
New Date(1776, 7, 4) ... 04/07/1776 12:00:00 AM
New Date(1776, 7, 4, 9, 45, 30) ... 04/07/1776 9:45:30 AM
| 5.1.Date |
| 5.1.1. | Dim thirdOfJuly As Date = #7/3/1776 11:59:59 PM# |
| 5.1.2. | Dim fourthOfJuly As New Date(1776, 7, 4) |
| 5.1.3. | Dim inTheMorning As New Date(1776, 7, 4, 9, 45, 30) |
| 5.1.4. | dateVariable = #1/1/2004# |
| 5.1.5. | dateVariable = #8/27/2001 6:29:11 PM# |
| 5.1.6. | dateVariable = 'July 2, 2002' |
| 5.1.7. | Add 3 years to a date |
| 5.1.8. | Date AddYears, AddMonths and AddDays |
| 5.1.9. | Add Time to current time |
| 5.1.10. | Elapsed Ticks |
| 5.1.11. | Subtract Time |
| 5.1.12. | Date ToString, ToLongDateString, ToShortDateString, ToLongTimeString, ToShortTimeString and ToUniversalTime |
| 5.1.13. | System Time |
| 5.1.14. | Moon Phase |
| 5.1.15. | Parse Date: Test an invalid date |
| 5.1.16. | Date and TimeSpan |
| 5.1.17. | ToLongDateString |
| 5.1.18. | ToLongTimeString |
| 5.1.19. | Date.ToOADate |
| 5.1.20. | Get Ticks from DateTime |
| 5.1.21. | Compare Date value in If statement |
| 5.1.22. | Select Day Of Week |