﻿'Visual Basic 2012 Temporal Datatype Date Alfanumerieke en Numerieke Datatypes Module Example1 Sub Main() ' Default & Minimum Value : ' January 1, 0001, 12:00:00 AM (midnight) : Dim someDate As Date Console.WriteLine(someDate) ' ' Maximum Literal Value : ' December 31, 9999, 11:59:59 PM (1 second before midnight) : someDate = #12/31/9999 11:59:59 PM# Console.WriteLine(someDate) ' ' Minimum (Literal) Value : ' January 1, 0001, 12:00:00 AM (midnight) : someDate = #12:00:00 AM# Console.WriteLine(someDate) ' ' October 17, 2000, 12:00:00 AM (midnight) : someDate = #10/17/2007# Console.WriteLine(someDate) ' ' October 17, 2000, 12:00:01 AM (1 seconde after midnight) : someDate = #10/17/2007 12:00:01 AM# Console.WriteLine(someDate) ' ' October 17, 2007, 1:00:00 AM (1 o'clock in the morning) : someDate = #10/17/2007 1:00:00 AM# Console.WriteLine(someDate) ' ' October 17, 2007, 11:59:59 AM (1 second before noon) : someDate = #10/17/2007 11:59:59 AM# Console.WriteLine(someDate) ' ' October 17, 2007, 12:00:00 PM (noon) : someDate = #10/17/2007 12:00:00 PM# Console.WriteLine(someDate) ' ' October 17, 2007, 12:00:01 PM (1 second after noon) : someDate = #10/17/2007 12:00:01 PM# Console.WriteLine(someDate) ' ' October 17, 2007, 1:00:00 PM (1 o'clock in the afternoon) : someDate = #10/17/2007 1:00:00 PM# Console.WriteLine(someDate) ' ' October 17, 2007, 11:59:59 PM (1 second before midnight) : someDate = #10/17/2007 11:59:59 PM# Console.WriteLine(someDate) ' ' October 18, 2007, 12:00:00 AM (midnight) : someDate = #10/18/2007# Console.WriteLine(someDate) ' Console.ReadLine() End Sub End Module 'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden. 'Copyright - De Wolf / vbvoorbeelden - 2003-2012 - Alle rechten voorbehouden.