Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet19> | |
| Imports System.Globalization | |
| Imports System.Threading | |
| Module Example | |
| Public Sub Main() | |
| Dim fmt As String = "dd-MMM-yy" | |
| Dim value As String = "24-Jan-49" | |
| Dim cal As Calendar = CType(CultureInfo.CurrentCulture.Calendar.Clone(), Calendar) | |
| Console.WriteLine("Two Digit Year Range: {0} - {1}", | |
| cal.TwoDigitYearMax - 99, cal.TwoDigitYearMax) | |
| Console.WriteLine("{0:d}", DateTime.ParseExact(value, fmt, Nothing)) | |
| Console.WriteLine() | |
| cal.TwoDigitYearMax = 2099 | |
| Dim culture As CultureInfo = CType(CultureInfo.CurrentCulture.Clone(), CultureInfo) | |
| culture.DateTimeFormat.Calendar = cal | |
| Thread.CurrentThread.CurrentCulture = culture | |
| Console.WriteLine("Two Digit Year Range: {0} - {1}", | |
| cal.TwoDigitYearMax - 99, cal.TwoDigitYearMax) | |
| Console.WriteLine("{0:d}", DateTime.ParseExact(value, fmt, Nothing)) | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' Two Digit Year Range: 1930 - 2029 | |
| ' 1/24/1949 | |
| ' | |
| ' Two Digit Year Range: 2000 - 2099 | |
| ' 1/24/2049 | |
| ' </Snippet19> | |