West calendar and calendar Conversion

Dim dT as date
Console. writeline (datevalue ("H20/10/12"). Date. tow.datestring)
Datetime. tryparseexact ("20081010", "yyyymmdd", nothing, globalization. datetimestyles. None, DT)

Dim CI as cultureinfo = new cultureinfo ("Ja-JP ")
Dim Cal as calendar = new japanesecalendar
CI. datetimeformat. Calendar = new japanesecalendar

Dim strwri as string = CI. datetimeformat. getabbreviatederaname (calendar. currename) + dt. tostring ("YY/MM/DD", CI)
Console. writeline (Dt. Date. tostring ("gyy/MM/DD", CI ))
Console. writeline (strwri)

console. writeline (Cal. maxsupporteddatetime. tostring)

for each name as string in CI. datetimeformat. abbreviateddaynames
console. writeline (name)
next
for each name as string in CI. datetimeformat. dateseparator
console. writeline (name)
next
strwri = DT. tostring ("gyy/MM/DD", CI) + "(" + ci. datetimeformat. getabbreviateddayname (DT. dayofweek) + ")" + _
Ci. datetimeformat. getmonthname (DT. month)
console. writeline (strwri)

'dim CI as cultureinfo = new cultureinfo ("Ja-JP")
'dim Cal as calendar = new japanesecalendar
'Ci. datetimeformat. calendar = Cal
dim era as string () = {"M", "T", "S", "H"}
console. writeline (CI. datetimeformat. geteraname (Cal. geode (DT) & DT. tostring ("YY/MM/DD", CI)
console. writeline (ERA (Cal. geode (DT)-1) & DT. tostring ("YY/MM/DD", CI)
console. writeline (ERA (Cal. geode (DT)-1) & Cal. getyear (DT) & DT. tostring ("/MM/DD", CI)