kiwi

      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()