|
| |
| 5. 1. 10. Elapsed Ticks |
|
|
|
Public Class Tester
Public Shared Sub Main
Dim ticksBefore As Long
Dim ticksAfter As Long
Dim tickSeconds As Double
ticksBefore = Now.Ticks
MsgBox("Press OK to see elapsed seconds")
ticksAfter = Now.Ticks
tickSeconds = (ticksAfter - ticksBefore) / 10000000.0
Console.WriteLine("Elapsed seconds: " & tickSeconds.ToString())
End Sub
End Class
|
|
Elapsed seconds: 0.6875
|
| 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 | | |
|