KoreanCalendar Class

' Change the calendar used by a ko-KR CultureInfo object from Gregorian to Korean. 
Dim koreanCulture As New CultureInfo("ko-KR")
Dim originalCalendar As Calendar = koreanCulture.Calendar
Dim message As String = Nothing

' Confirm that the default calendar is not the Korean calendar.
If originalCalendar.ToString <> "System.Globalization.KoreanCalendar" Then
   ' Check whether the culture supports the Korean calendar.
   Dim supported As Boolean = False
   For Each supportedCal As Calendar In koreanCulture.OptionalCalendars
      If supportedCal.ToString = "System.Globalization.KoreanCalendar" Then
         supported = True            
         koreanCulture.DateTimeFormat.Calendar = supportedCal
         message = String.Format("Changed the current calendar for the {0} culture from {1} to {2}.", _
                                 koreanCulture.ToString(), _
                                 originalCalendar.ToString.Replace("System.Globalization.", ""), _
                                 supportedCal.ToString.Replace("System.Globalization.", ""))                                 
         Exit For
      End If
      If Not supported Then message = "The Korean calendar is not supported."
   Next        
Else
   message = String.Format("Korean is the default calendar for the {0} culture.", _
                           koreanCulture.ToString())
End If
outputBlock.Text += message + vbCrLf
' The example displays the following output:
'   Changed the current calendar for the ko-KR culture from GregorianCalendar to KoreanCalendar.

// Change the calendar used by a ko-KR CultureInfo object from Gregorian to Korean. 
CultureInfo koreanCulture = new CultureInfo("ko-KR");
Calendar originalCalendar = koreanCulture.Calendar;
string message = null;

// Confirm that the default calendar is not the Korean calendar.
if (originalCalendar.ToString() != "System.Globalization.KoreanCalendar")
{
   // Check whether the culture supports the Korean calendar.
   bool supported = false;
   foreach (Calendar supportedCal in koreanCulture.OptionalCalendars)
   {
      if (supportedCal.ToString() == "System.Globalization.KoreanCalendar")
      {
         supported = true;            
         koreanCulture.DateTimeFormat.Calendar = supportedCal;
         message = String.Format("Changed the current calendar for the {0} culture from {1} to {2}.",
                                 koreanCulture.ToString(),
                                 originalCalendar.ToString().Replace("System.Globalization.", ""),
                                 supportedCal.ToString().Replace("System.Globalization.", ""));                                 
         break;
      }
   }        
   if (! supported) message = "The Korean calendar is not supported.";
}
else
{
   message = String.Format("Korean is the default calendar for the {0} culture.",
                           koreanCulture.ToString());
}
outputBlock.Text += message + "\n";
// The example displays the following output:
//   Changed the current calendar for the ko-KR culture from GregorianCalendar to KoreanCalendar.