5. 1. 7. Add 3 years to a date
public class Test public Shared Sub Main Dim Expiration As Date Dim NewExpiration As Date Expiration = # 1 / 1 / 2005 # Expiration.AddYears ( 3 ) NewExpiration = Expiration.AddYears ( 3 ) Console.WriteLine ( "The new expiration date is: " & NewExpiration ) End Sub End class
The new expiration date is: 01/01/2008
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
