Dim ci As CultureInfo = New CultureInfo("zh-TW") '指定國別
ci.DateTimeFormat.Calendar = New TaiwanCalendar '國曆曆法
System.Threading.Thread.CurrentThread.CurrentCulture = ci
Console.WriteLine(DateTime.Now.ToShortDateString()) '民國日期格式
Console.WriteLine(Date.Now.ToString("ddd")) '星期 x 方式呈現
Dim tlc As TaiwanLunisolarCalendar = New TaiwanLunisolarCalendar()'取得今天的農曆年月日
Console.WriteLine("今天是農曆 " & tlc.GetDayOfMonth(Date.Now) & " 月" & tlc.GetDayOfMonth(Date.Now) & " 日") '今天是農曆 x月 x日
Console.ReadKey()