using System;
using System.Globalization;
using System.Threading;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("en-GB"),
      CultureInfo.GetCultureInfo("fr-FR"),
      CultureInfo.GetCultureInfo("es-ES"),
      CultureInfo.InvariantCulture,
    };

    // decimal型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("number");

    decimal number = -12345.67m;

    foreach (CultureInfo culture in cultures) {
      Thread.CurrentThread.CurrentCulture = culture;

      Console.WriteLine("{0,-6}| {1,-15} {2,-15} {3,-15}",
                        CultureInfo.CurrentCulture.Name,
                        number.ToString(),
                        number.ToString("N"),
                        number.ToString("C"));
    }

    // DateTime型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("date and time");

    DateTime dateTime = new DateTime(2000, 1, 23, 4, 5, 6);

    foreach (CultureInfo culture in cultures) {
      Thread.CurrentThread.CurrentCulture = culture;

      Console.WriteLine("{0,-6}| {1,-25} {2,-15} {3}",
                        CultureInfo.CurrentCulture.Name,
                        dateTime.ToString(),
                        dateTime.ToString("T"),
                        dateTime.ToString("F"));
    }
  }
}

Imports System
Imports System.Globalization
Imports System.Threading

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("en-GB"), _
      CultureInfo.GetCultureInfo("fr-FR"), _
      CultureInfo.GetCultureInfo("es-ES"), _
      CultureInfo.InvariantCulture _
    }

    ' decimal型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("number")

    Dim number As Decimal = -12345.67D

    For Each culture As CultureInfo In cultures
      Thread.CurrentThread.CurrentCulture = culture

      Console.WriteLine("{0,-6}| {1,-15} {2,-15} {3,-15}", _
                        CultureInfo.CurrentCulture.Name, _
                        number.ToString(), _
                        number.ToString("N"), _
                        number.ToString("C"))
    Next

    ' DateTime型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("date and time")

    Dim dateTime As New DateTime(2000, 1, 23, 4, 5, 6)

    For Each culture As CultureInfo In cultures
      Thread.CurrentThread.CurrentCulture = culture

      Console.WriteLine("{0,-6}| {1,-25} {2,-15} {3}", _
                        CultureInfo.CurrentCulture.Name, _
                        dateTime.ToString(), _
                        dateTime.ToString("T"), _
                        dateTime.ToString("F"))
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("en-GB"),
      CultureInfo.GetCultureInfo("fr-FR"),
      CultureInfo.GetCultureInfo("es-ES"),
      CultureInfo.InvariantCulture,
    };

    // decimal型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("number");

    decimal number = -12345.67m;

    foreach (CultureInfo culture in cultures) {
      Console.WriteLine("{0,-6} {1,-15} | {2,-6} {3,-15} {4,-15} {5,-15}",
                        CultureInfo.CurrentCulture.Name,
                        number.ToString(),
                        culture.Name,
                        number.ToString(culture),
                        number.ToString("N", culture),
                        number.ToString("C", culture));
    }

    // DateTime型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("date and time");

    DateTime dateTime = new DateTime(2000, 1, 23, 4, 5, 6);

    foreach (CultureInfo culture in cultures) {
      Console.WriteLine("{0,-6} {1,-15} | {2,-6} {3,-25} {4,-15} {5}",
                        CultureInfo.CurrentCulture.Name,
                        dateTime.ToString(),
                        culture.Name,
                        dateTime.ToString(culture),
                        dateTime.ToString("T", culture),
                        dateTime.ToString("F", culture));
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("en-GB"), _
      CultureInfo.GetCultureInfo("fr-FR"), _
      CultureInfo.GetCultureInfo("es-ES"), _
      CultureInfo.InvariantCulture _
    }

    ' decimal型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("number")

    Dim number As Decimal = -12345.67D

    For Each culture As CultureInfo In cultures
      Console.WriteLine("{0,-6} {1,-15} | {2,-6} {3,-15} {4,-15} {5,-15}", _
                        CultureInfo.CurrentCulture.Name, _
                        number.ToString(), _
                        culture.Name, _
                        number.ToString(culture), _
                        number.ToString("N", culture), _
                        number.ToString("C", culture))
    Next

    ' DateTime型の値をいくつかの書式・カルチャの組み合わせで文字列化
    Console.WriteLine("date and time")

    Dim dateTime As New DateTime(2000, 1, 23, 4, 5, 6)

    For Each culture As CultureInfo In cultures
      Console.WriteLine("{0,-6} {1,-15} | {2,-6} {3,-25} {4,-15} {5}", _
                        CultureInfo.CurrentCulture.Name, _
                        dateTime.ToString(), _
                        culture.Name, _
                        dateTime.ToString(culture), _
                        dateTime.ToString("T", culture), _
                        dateTime.ToString("F", culture))
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("en-GB"),
      CultureInfo.GetCultureInfo("fr-FR"),
      CultureInfo.GetCultureInfo("es-ES"),
      CultureInfo.InvariantCulture,
    };

    foreach (CultureInfo culture in cultures) {
      NumberFormatInfo nf = culture.NumberFormat;

      Console.WriteLine("{0,-6}|{1,-3} {2,-3} {3,-3} {4,-3} {5,-3} {6,-3} {7,-3}",
                        culture.Name,
                        nf.NumberDecimalSeparator,
                        nf.NumberGroupSeparator,
                        nf.NumberGroupSizes[0],
                        nf.NumberNegativePattern,
                        nf.CurrencySymbol,
                        nf.CurrencyPositivePattern,
                        nf.PositiveInfinitySymbol);
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("en-GB"), _
      CultureInfo.GetCultureInfo("fr-FR"), _
      CultureInfo.GetCultureInfo("es-ES"), _
      CultureInfo.InvariantCulture _
    }

    For Each culture As CultureInfo In cultures
      Dim nf As NumberFormatInfo = culture.NumberFormat

      Console.WriteLine("{0,-6}|{1,-3} {2,-3} {3,-3} {4,-3} {5,-3} {6,-3} {7,-3}", _
                        culture.Name, _
                        nf.NumberDecimalSeparator, _
                        nf.NumberGroupSeparator, _
                        nf.NumberGroupSizes(0), _
                        nf.NumberNegativePattern, _
                        nf.CurrencySymbol, _
                        nf.CurrencyPositivePattern, _
                        nf.PositiveInfinitySymbol)
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    // 文字列化する数値
    decimal positiveNumber = +123456.7890m;
    decimal negativeNumber = -123456.7890m;

    // デフォルトのja-JPのカルチャを作成 (読み取り専用)
    CultureInfo jajpDefault = CultureInfo.GetCultureInfo("ja-JP");

    // カスタマイズするja-JP用のカルチャを作成
    CultureInfo jajpCustom = new CultureInfo("ja-JP");

    // NumberFormatInfoを取得
    NumberFormatInfo nf = jajpCustom.NumberFormat;

    nf.NumberGroupSizes = new int[] {4}; // 一般数値の桁区切りを4桁にする
    nf.NumberDecimalSeparator = "．";    // 一般数値の小数点区切りを全角にする
    nf.NumberGroupSeparator = "，";      // 一般数値の桁区切りを全角にする

    Console.WriteLine("number");
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString(jajpDefault), positiveNumber.ToString(jajpCustom));
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString(jajpDefault), negativeNumber.ToString(jajpCustom));
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString("N4", jajpDefault), positiveNumber.ToString("N4", jajpCustom));
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString("N4", jajpDefault), negativeNumber.ToString("N4", jajpCustom));

    nf.NegativeSign = "マイナス";  // 負の値を文字で表記する

    nf.CurrencyGroupSeparator = " ";  // 通貨の桁区切り記号を空白にする
    nf.CurrencySymbol = "円";         // 通貨記号を「円」にする
    nf.CurrencyPositivePattern = 1;   // 正の通貨の表記をn$のパターンにする
    nf.CurrencyNegativePattern = 5;   // 負の通貨の表記を-n$のパターンにする

    Console.WriteLine("currency");
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString("C4", jajpDefault), positiveNumber.ToString("C4", jajpCustom));
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString("C4", jajpDefault), negativeNumber.ToString("C4", jajpCustom));

    nf.PercentSymbol = "\u332b";      // パーセント記号を「㌫」(U+332B)にする
    nf.PercentGroupSeparator = "";    // パーセント値の桁区切りをなくす

    Console.WriteLine("percent");
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString("P", jajpDefault), positiveNumber.ToString("P", jajpCustom));
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString("P", jajpDefault), negativeNumber.ToString("P", jajpCustom));
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    ' 文字列化する数値
    Dim positiveNumber As Decimal = +123456.7890D
    Dim negativeNumber As Decimal = -123456.7890D

    ' デフォルトのja-JPのカルチャを作成 (読み取り専用)
    Dim jajpDefault As CultureInfo = CultureInfo.GetCultureInfo("ja-JP")

    ' カスタマイズするja-JP用のカルチャを作成
    Dim jajpCustom As New CultureInfo("ja-JP")

    ' NumberFormatInfoを取得
    Dim nf As NumberFormatInfo = jajpCustom.NumberFormat

    nf.NumberGroupSizes = New Integer() {4} ' 一般数値の桁区切りを4桁にする
    nf.NumberDecimalSeparator = "．"        ' 一般数値の小数点区切りを全角にする
    nf.NumberGroupSeparator = "，"          ' 一般数値の桁区切りを全角にする

    Console.WriteLine("number")
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString(jajpDefault), positiveNumber.ToString(jajpCustom))
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString(jajpDefault), negativeNumber.ToString(jajpCustom))
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString("N4", jajpDefault), positiveNumber.ToString("N4", jajpCustom))
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString("N4", jajpDefault), negativeNumber.ToString("N4", jajpCustom))

    nf.NegativeSign = "マイナス"  ' 負の値を文字で表記する

    nf.CurrencyGroupSeparator = " " ' 通貨の桁区切り記号を空白にする
    nf.CurrencySymbol = "円"        ' 通貨記号を「円」にする
    nf.CurrencyPositivePattern = 1  ' 正の通貨の表記をn$のパターンにする
    nf.CurrencyNegativePattern = 5  ' 負の通貨の表記を-n$のパターンにする

    Console.WriteLine("currency")
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString("C4", jajpDefault), positiveNumber.ToString("C4", jajpCustom))
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString("C4", jajpDefault), negativeNumber.ToString("C4", jajpCustom))

    nf.PercentSymbol = CStr(ChrW(&h332B)) ' パーセント記号を「㌫」(U+332B)にする
    nf.PercentGroupSeparator = ""         ' パーセント値の桁区切りをなくす

    Console.WriteLine("percent")
    Console.WriteLine("{0,-20} {1,-20}", positiveNumber.ToString("P", jajpDefault), positiveNumber.ToString("P", jajpCustom))
    Console.WriteLine("{0,-20} {1,-20}", negativeNumber.ToString("P", jajpDefault), negativeNumber.ToString("P", jajpCustom))
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("en-GB"),
      CultureInfo.GetCultureInfo("fr-FR"),
      CultureInfo.GetCultureInfo("es-ES"),
      CultureInfo.InvariantCulture,
    };

    foreach (CultureInfo culture in cultures) {
      DateTimeFormatInfo dtf = culture.DateTimeFormat;

      Console.WriteLine("{0,-6}|{1,-40} {2,-15} {3,-15} {4,-10} {5,-10} {6} {7}",
                        culture.Name,
                        dtf.FullDateTimePattern,
                        dtf.ShortDatePattern,
                        dtf.ShortTimePattern,
                        dtf.FirstDayOfWeek,
                        dtf.CalendarWeekRule,
                        dtf.AMDesignator,
                        dtf.PMDesignator);
    }

    Console.WriteLine("[MonthNames]");

    foreach (CultureInfo culture in cultures) {
      Console.WriteLine("{0,-6}|{1}", culture.Name, string.Join(", ", culture.DateTimeFormat.MonthNames));
    }

    Console.WriteLine("[DayNames]");

    foreach (CultureInfo culture in cultures) {
      Console.WriteLine("{0,-6}|{1}", culture.Name, string.Join(", ", culture.DateTimeFormat.DayNames));
    }

    Console.WriteLine("[AbbreviatedDayNames]");

    foreach (CultureInfo culture in cultures) {
      Console.WriteLine("{0,-6}|{1}", culture.Name, string.Join(", ", culture.DateTimeFormat.AbbreviatedDayNames));
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("en-GB"), _
      CultureInfo.GetCultureInfo("fr-FR"), _
      CultureInfo.GetCultureInfo("es-ES"), _
      CultureInfo.InvariantCulture _
    }

    For Each culture As CultureInfo In cultures
      Dim dtf As DateTimeFormatInfo = culture.DateTimeFormat

      Console.WriteLine("{0,-6}|{1,-40} {2,-15} {3,-15} {4,-10} {5,-10} {6} {7}", _
                        culture.Name, _
                        dtf.FullDateTimePattern, _
                        dtf.ShortDatePattern, _
                        dtf.ShortTimePattern, _
                        dtf.FirstDayOfWeek, _
                        dtf.CalendarWeekRule, _
                        dtf.AMDesignator, _
                        dtf.PMDesignator)
    Next

    Console.WriteLine("[MonthNames]")

    For Each culture As CultureInfo In cultures
      Console.WriteLine("{0,-6}|{1}", culture.Name, String.Join(", ", culture.DateTimeFormat.MonthNames))
    Next

    Console.WriteLine("[DayNames]")

    For Each culture As CultureInfo In cultures
      Console.WriteLine("{0,-6}|{1}", culture.Name, String.Join(", ", culture.DateTimeFormat.DayNames))
    Next

    Console.WriteLine("[AbbreviatedDayNames]")

    For Each culture As CultureInfo In cultures
      Console.WriteLine("{0,-6}|{1}", culture.Name, String.Join(", ", culture.DateTimeFormat.AbbreviatedDayNames))
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    // デフォルトのja-JPのカルチャを作成 (読み取り専用)
    CultureInfo jajpDefault = CultureInfo.GetCultureInfo("ja-JP");

    // カスタマイズするja-JP用のカルチャを作成
    CultureInfo jajpCustom = new CultureInfo("ja-JP");

    // DateTimeFormatInfoを取得
    DateTimeFormatInfo dtf = jajpCustom.DateTimeFormat;

    // 月名を変更
    dtf.MonthNames = new string[] {
      "睦月", "如月", "弥生", "卯月", "皐月", "水無月", "文月", "葉月", "長月", "神無月", "霜月", "師走", string.Empty,
    };

    for (DateTime dateTime = new DateTime(2010, 1, 1); dateTime.Year == 2010; dateTime = dateTime.AddDays(29).AddMinutes(108)) {
      Console.WriteLine("{0,-25} {1,-25}", dateTime.ToString("F", jajpDefault), dateTime.ToString("F", jajpCustom));
    }

    // 書式指定文字"F"に関連付けられている書式を変更
    // (DateTimeFormatInfo.MonthNamesは、書式指定文字MMMMを置換する際に使用される)
    dtf.FullDateTimePattern = "西暦yyyy年 MMMM dd日 (dddd) tthh時 mm分 ss秒";

    for (DateTime dateTime = new DateTime(2010, 1, 1); dateTime.Year == 2010; dateTime = dateTime.AddDays(29).AddMinutes(108)) {
      Console.WriteLine("{0,-25} {1,-25}", dateTime.ToString("F", jajpDefault), dateTime.ToString("F", jajpCustom));
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    ' デフォルトのja-JPのカルチャを作成 (読み取り専用)
    Dim jajpDefault As CultureInfo = CultureInfo.GetCultureInfo("ja-JP")

    ' カスタマイズするja-JP用のカルチャを作成
    Dim jajpCustom As New CultureInfo("ja-JP")

    ' DateTimeFormatInfoを取得
    Dim dtf As DateTimeFormatInfo = jajpCustom.DateTimeFormat

    ' 月名を変更
    dtf.MonthNames = New String() { _
      "睦月", "如月", "弥生", "卯月", "皐月", "水無月", "文月", "葉月", "長月", "神無月", "霜月", "師走", String.Empty _
    }

    Dim dateTime As New DateTime(2010, 1, 1)

    Do
      Console.WriteLine("{0,-25} {1,-25}", dateTime.ToString("F", jajpDefault), dateTime.ToString("F", jajpCustom))

      dateTime = dateTime.AddDays(29).AddMinutes(108)
    Loop While dateTime.Year = 2010

    ' 書式指定文字"F"に関連付けられている書式を変更
    ' (DateTimeFormatInfo.MonthNamesは、書式指定文字MMMMを置換する際に使用される)
    dtf.FullDateTimePattern = "西暦yyyy年 MMMM dd日 (dddd) tthh時 mm分 ss秒"

    dateTime = New DateTime(2010, 1, 1)

    Do
      Console.WriteLine("{0,-25} {1,-25}", dateTime.ToString("F", jajpDefault), dateTime.ToString("F", jajpCustom))

      dateTime = dateTime.AddDays(29).AddMinutes(108)
    Loop While dateTime.Year = 2010
  End Sub
End Class

using System;
using System.Globalization;
using System.Threading;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("en-GB"),
      CultureInfo.GetCultureInfo("fr-FR"),
      CultureInfo.GetCultureInfo("es-ES"),
      CultureInfo.InvariantCulture,
    };

    string[] words1 = new string[] {"coté", "côte", "cote"};
    string[] words2 = new string[] {"亜", "井", "宇"};

    foreach (CultureInfo culture in cultures) {
      Thread.CurrentThread.CurrentCulture = culture;

      Array.Sort(words1);
      Array.Sort(words2);

      string separator = CultureInfo.CurrentCulture.TextInfo.ListSeparator;

      Console.WriteLine("{0,-6}| {1,-20} {2,-20}",
                        CultureInfo.CurrentCulture.Name,
                        string.Join(separator, words1),
                        string.Join(separator, words2));
    }
  }
}

Imports System
Imports System.Globalization
Imports System.Threading

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("en-GB"), _
      CultureInfo.GetCultureInfo("fr-FR"), _
      CultureInfo.GetCultureInfo("es-ES"), _
      CultureInfo.InvariantCulture _
    }

    Dim words1() As String = New String() {"coté", "côte", "cote"}
    Dim words2() As String = New String() {"亜", "井", "宇"}

    For Each culture As CultureInfo In cultures
      Thread.CurrentThread.CurrentCulture = culture

      Array.Sort(words1)
      Array.Sort(words2)

      Dim separator As String = CultureInfo.CurrentCulture.TextInfo.ListSeparator

      Console.WriteLine("{0,-6}| {1,-20} {2,-20}", _
                        CultureInfo.CurrentCulture.Name, _
                        String.Join(separator, words1), _
                        String.Join(separator, words2))
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("en-GB"),
      CultureInfo.GetCultureInfo("fr-FR"),
      CultureInfo.GetCultureInfo("es-ES"),
      CultureInfo.InvariantCulture,
    };

    string[] pair1 = new string[] {"coté", "côte"};
    string[] pair2 = new string[] {"亜", "井"};
    string[] pair3 = new string[] {"abc", "ＡＢＣ"};

    Console.WriteLine("{0,-6}| {1,-14}| {2,-14}| {3,-14}",
                      "code",
                      pair1[0] + "<=>" + pair1[1],
                      pair2[0] + "<=>" + pair2[1],
                      pair3[0] + "<=>" + pair3[1]);

    Console.WriteLine(new string('-', 60));

    foreach (CultureInfo culture in cultures) {
      CompareInfo ci = culture.CompareInfo;

      Console.WriteLine("{0,-6}| {1,-14}| {2,-14}| {3,-14}",
                        culture.Name,
                        ci.Compare(pair1[0], pair1[1]),
                        ci.Compare(pair2[0], pair2[1]),
                        ci.Compare(pair3[0], pair3[1], CompareOptions.IgnoreCase | CompareOptions.IgnoreWidth));
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("en-GB"), _
      CultureInfo.GetCultureInfo("fr-FR"), _
      CultureInfo.GetCultureInfo("es-ES"), _
      CultureInfo.InvariantCulture _
    }

    Dim pair1() As String = New String() {"coté", "côte"}
    Dim pair2() As String = New String() {"亜", "井"}
    Dim pair3() As String = New String() {"abc", "ＡＢＣ"}

    Console.WriteLine("{0,-6}| {1,-14}| {2,-14}| {3,-14}", _
                      "code", _
                      pair1(0) + "<=>" + pair1(1), _
                      pair2(0) + "<=>" + pair2(1), _
                      pair3(0) + "<=>" + pair3(1))

    Console.WriteLine(New String("-"c, 60))

    For Each culture As CultureInfo In cultures
      Dim ci As CompareInfo = culture.CompareInfo

      Console.WriteLine("{0,-6}| {1,-14}| {2,-14}| {3,-14}", _
                        culture.Name, _
                        ci.Compare(pair1(0), pair1(1)), _
                        ci.Compare(pair2(0), pair2(1)), _
                        ci.Compare(pair3(0), pair3(1), CompareOptions.IgnoreCase Or CompareOptions.IgnoreWidth))
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("tr-TR"),
      CultureInfo.InvariantCulture,
    };

    string text = "tHe inTERnet";

    Console.WriteLine("{0,-6}| {1,-15}| {2,-15}| {3,-15}",
                      "code",
                      "ToUpper",
                      "ToLower",
                      "ToTitleCase");

    Console.WriteLine(new string('-', 60));

    foreach (CultureInfo culture in cultures) {
      TextInfo ti = culture.TextInfo;

      Console.WriteLine("{0,-6}| {1,-15}| {2,-15}| {3,-15}",
                        culture.Name,
                        ti.ToUpper(text),
                        ti.ToLower(text),
                        ti.ToTitleCase(text));
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("tr-TR"), _
      CultureInfo.InvariantCulture _
    }

    Dim text As String = "tHe inTERnet"

    Console.WriteLine("{0,-6}| {1,-15}| {2,-15}| {3,-15}", _
                      "code", _
                      "ToUpper", _
                      "ToLower", _
                      "ToTitleCase")

    Console.WriteLine(New String("-"c, 60))

    For Each culture As CultureInfo In cultures
      Dim ti As TextInfo = culture.TextInfo

      Console.WriteLine("{0,-6}| {1,-15}| {2,-15}| {3,-15}", _
                        culture.Name, _
                        ti.ToUpper(text), _
                        ti.ToLower(text), _
                        ti.ToTitleCase(text))
    Next
  End Sub
End Class

using System;
using System.Globalization;
using System.Text;

class Sample {
  static void Main()
  {
    CultureInfo[] cultures = new CultureInfo[] {
      CultureInfo.GetCultureInfo("ja-JP"),
      CultureInfo.GetCultureInfo("en-US"),
      CultureInfo.GetCultureInfo("ru-RU"),
      CultureInfo.GetCultureInfo("zh-TW"),
      CultureInfo.GetCultureInfo("zh-CN"),
      CultureInfo.InvariantCulture,
    };

    Console.WriteLine("{0,-6}| {1,-8}| {2,-20}| {3,-8}| {4,-8}| {5,-8}",
                      "code",
                      "ANSI",
                      "Encoding.WebName",
                      "EBCDIC",
                      "OEM",
                      "Macintosh");

    Console.WriteLine(new string('-', 72));

    foreach (CultureInfo culture in cultures) {
      TextInfo ti = culture.TextInfo;

      Console.WriteLine("{0,-6}| {1,-8}| {2,-20}| {3,-8}| {4,-8}| {5,-8}",
                        culture.Name,
                        ti.ANSICodePage,
                        Encoding.GetEncoding(ti.ANSICodePage).WebName,
                        ti.EBCDICCodePage,
                        ti.OEMCodePage,
                        ti.MacCodePage);
    }
  }
}

Imports System
Imports System.Globalization
Imports System.Text

Class Sample
  Shared Sub Main()
    Dim cultures() As CultureInfo = New CultureInfo() { _
      CultureInfo.GetCultureInfo("ja-JP"), _
      CultureInfo.GetCultureInfo("en-US"), _
      CultureInfo.GetCultureInfo("ru-RU"), _
      CultureInfo.GetCultureInfo("zh-TW"), _
      CultureInfo.GetCultureInfo("zh-CN"), _
      CultureInfo.InvariantCulture _
    }

    Console.WriteLine("{0,-6}| {1,-8}| {2,-20}| {3,-8}| {4,-8}| {5,-8}", _
                      "code", _
                      "ANSI", _
                      "Encoding.WebName", _
                      "EBCDIC", _
                      "OEM", _
                      "Macintosh")

    Console.WriteLine(New String("-"c, 72))

    For Each culture As CultureInfo In cultures
      Dim ti As TextInfo = culture.TextInfo

      Console.WriteLine("{0,-6}| {1,-8}| {2,-20}| {3,-8}| {4,-8}| {5,-8}", _
                        culture.Name, _
                        ti.ANSICodePage, _
                        Encoding.GetEncoding(ti.ANSICodePage).WebName, _
                        ti.EBCDICCodePage, _
                        ti.OEMCodePage, _
                        ti.MacCodePage)
    Next
  End Sub
End Class

using System;
using System.Globalization;

class Sample {
  static void Main()
  {
    Calendar japaneseCalendar = new JapaneseCalendar();
    CultureInfo jajp = new CultureInfo("ja-JP");

    jajp.DateTimeFormat.Calendar = japaneseCalendar;

    DateTime dateTime;

    // 和暦で(現在の年号での)1年1月1日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(1, 1, 1, 0, 0, 0, 0, Calendar.CurrentEra);

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"));

    // 和暦で(現在の年号での)1年1月8日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(1, 1, 8, 0, 0, 0, 0, Calendar.CurrentEra);

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"));

    // 和暦で平成(=年号4)2年1月1日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(2, 1, 1, 0, 0, 0, 0, 4);

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"));

    // 和暦で昭和(=年号3)2年1月1日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(2, 1, 1, 0, 0, 0, 0, 3);

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"));

    Console.WriteLine();

    // 西暦での日付に対応する和暦での年号と年を取得する
    string[] eraNames = new string[] {"(改元前)", "明治", "大正", "昭和", "平成"};

    foreach (DateTime dt in new DateTime[] {
      new DateTime(2000, 1, 1),
      new DateTime(1975, 1, 1),
      new DateTime(1950, 1, 1),
      new DateTime(1925, 1, 1),
      new DateTime(1900, 1, 1),
      new DateTime(1868, 9, 8),
      new DateTime(1868, 9, 7),
    })
    {
      Console.WriteLine("{0} => {1} {2}年",
                        dt.ToString("D"),
                        eraNames[japaneseCalendar.GetEra(dt)],
                        japaneseCalendar.GetYear(dt));
    }
  }
}

Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim japaneseCalendar As New JapaneseCalendar()
    Dim jajp As New CultureInfo("ja-JP")

    jajp.DateTimeFormat.Calendar = japaneseCalendar

    Dim dateTime As DateTime

    ' 和暦で(現在の年号での)1年1月1日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(1, 1, 1, 0, 0, 0, 0, Calendar.CurrentEra)

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"))

    ' 和暦で(現在の年号での)1年1月8日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(1, 1, 8, 0, 0, 0, 0, Calendar.CurrentEra)

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"))

    ' 和暦で平成(=年号4)2年1月1日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(2, 1, 1, 0, 0, 0, 0, 4)

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"))

    ' 和暦で昭和(=年号3)2年1月1日に相当する日のDateTimeを取得する
    dateTime = japaneseCalendar.ToDateTime(2, 1, 1, 0, 0, 0, 0, 3)

    Console.WriteLine("{0} = {1}", dateTime.ToString("D", jajp), dateTime.ToString("D"))

    Console.WriteLine()

    ' 西暦での日付に対応する和暦での年号と年を取得する
    Dim eraNames() As String = New String() {"(改元前)", "明治", "大正", "昭和", "平成"}

    For Each dt As DateTime In New DateTime() { _
      New DateTime(2000, 1, 1), _
      New DateTime(1975, 1, 1), _
      New DateTime(1950, 1, 1), _
      New DateTime(1925, 1, 1), _
      New DateTime(1900, 1, 1), _
      New DateTime(1868, 9, 8), _
      New DateTime(1868, 9, 7) _
    }
      Console.WriteLine("{0} => {1} {2}年", _
                        dt.ToString("D"), _
                        eraNames(japaneseCalendar.GetEra(dt)), _
                        japaneseCalendar.GetYear(dt))
    Next
  End Sub
End Class

using System;
using System.Globalization;
using System.Threading;

class Sample {
  static void Main()
  {
    Calendar[] calendars = new Calendar[] {
      new GregorianCalendar(),
      new JapaneseCalendar(),
      new JapaneseLunisolarCalendar(),
      new JulianCalendar(),
      new HebrewCalendar(),
      new HijriCalendar(),
    };

    // 書式指定文字"D"の書式を"yyyy-MM-dd"に変更
    Thread.CurrentThread.CurrentCulture = (CultureInfo)CultureInfo.InvariantCulture.Clone();
    Thread.CurrentThread.CurrentCulture.DateTimeFormat.LongDatePattern = "yyyy-MM-dd";

    // 基準となる日付
    DateTime baseDateTime = new DateTime(2001, 1, 1);

    Console.WriteLine("{0,-25}|{1,-12}|{2,-12}|{3,-12}|{4,-12}|{5,-12}|{6,-12}|{7,-12}|{8,-12}|{9,-12}|{10,-12}|{11,-12}|{12,-12}|{13,-12}|{14,-12}|{15,-12}|",
                      "Calendar",
                      "-10 years", "-1 year", "-12months", "-3 months", "-1 month", "-4 weeks", "-1 week",
                      "0",
                      "+1 week", "+4 week", "+1 month", "+3 months", "+12 months", "+1 year", "+10 years");

    Console.WriteLine(new string('-', 220));

    foreach (Calendar calendar in calendars) {
      Console.WriteLine("{0,-25}|{1,-12:D}|{2,-12:D}|{3,-12:D}|{4,-12:D}|{5,-12:D}|{6,-12:D}|{7,-12:D}|{8,-12:D}|{9,-12:D}|{10,-12:D}|{11,-12:D}|{12,-12:D}|{13,-12:D}|{14,-12:D}|{15,-12:D}|",
                        calendar.GetType().Name,
                        calendar.AddYears(baseDateTime, -10),   // 10年前
                        calendar.AddYears(baseDateTime, -1),    // 1年前
                        calendar.AddMonths(baseDateTime, -12),  // 12ヶ月前
                        calendar.AddMonths(baseDateTime, -3),   // 3ヶ月前
                        calendar.AddMonths(baseDateTime, -1),   // 1ヶ月前
                        calendar.AddWeeks(baseDateTime, -4),    // 4週間前
                        calendar.AddWeeks(baseDateTime, -1),    // 1週間前
                        baseDateTime,
                        calendar.AddWeeks(baseDateTime, +1),    // 1週間後
                        calendar.AddWeeks(baseDateTime, +4),    // 4週間後
                        calendar.AddMonths(baseDateTime, +1),   // 1ヶ月後
                        calendar.AddMonths(baseDateTime, +3),   // 3ヶ月後
                        calendar.AddMonths(baseDateTime, +12),  // 12ヶ月後
                        calendar.AddYears(baseDateTime, +1),    // 1年後
                        calendar.AddYears(baseDateTime, +10));  // 10年後
    }
  }
}

Imports System
Imports System.Globalization
Imports System.Threading

Class Sample
  Shared Sub Main()
    Dim calendars() As Calendar = New Calendar() { _
      New GregorianCalendar(), _
      New JapaneseCalendar(), _
      New JapaneseLunisolarCalendar(), _
      New JulianCalendar(), _
      New HebrewCalendar(), _
      New HijriCalendar() _
    }

    ' 書式指定文字"D"の書式を"yyyy-MM-dd"に変更
    Thread.CurrentThread.CurrentCulture = CType(CultureInfo.InvariantCulture.Clone(), CultureInfo)
    Thread.CurrentThread.CurrentCulture.DateTimeFormat.LongDatePattern = "yyyy-MM-dd"

    ' 基準となる日付
    Dim baseDateTime As New DateTime(2001, 1, 1)

    Console.WriteLine("{0,-25}|{1,-12}|{2,-12}|{3,-12}|{4,-12}|{5,-12}|{6,-12}|{7,-12}|{8,-12}|{9,-12}|{10,-12}|{11,-12}|{12,-12}|{13,-12}|{14,-12}|{15,-12}|", _
                      "Calendar", _
                      "-10 years", "-1 year", "-12 months", "-3 months", "-1 month", "-4 weeks", "-1 week", _
                      "0", _
                      "+1 week", "+4 week", "+1 month", "+3 months", "+12 months", "+1 year", "+10 years")

    Console.WriteLine(New String("-"c, 220))

    For Each calendar As Calendar In calendars
      Console.WriteLine("{0,-25}|{1,-12:D}|{2,-12:D}|{3,-12:D}|{4,-12:D}|{5,-12:D}|{6,-12:D}|{7,-12:D}|{8,-12:D}|{9,-12:D}|{10,-12:D}|{11,-12:D}|{12,-12:D}|{13,-12:D}|{14,-12:D}|{15,-12:D}|", _
                        calendar.GetType().Name, _
                        calendar.AddYears(baseDateTime, -10), _
                        calendar.AddYears(baseDateTime, -1), _
                        calendar.AddMonths(baseDateTime, -12), _
                        calendar.AddMonths(baseDateTime, -3), _
                        calendar.AddMonths(baseDateTime, -1), _
                        calendar.AddWeeks(baseDateTime, -4), _
                        calendar.AddWeeks(baseDateTime, -1), _
                        baseDateTime, _
                        calendar.AddWeeks(baseDateTime, +1), _
                        calendar.AddWeeks(baseDateTime, +4), _
                        calendar.AddMonths(baseDateTime, +1), _
                        calendar.AddMonths(baseDateTime, +3), _
                        calendar.AddMonths(baseDateTime, +12), _
                        calendar.AddYears(baseDateTime, +1), _
                        calendar.AddYears(baseDateTime, +10))
    Next
  End Sub
End Class