VB / VB.NET lunar calendar control class
VB Add to WESTTOCHINADATE.CLS
VB.NET Add to WESTTOCHINADATE.VB
Time support 1900-2050
VB use:
Dim Newdate As New WestTochinadate
Dim NowDate As WestTochinadate.chinadateInfo
Nowdate = newdate.getchinainfo (now)
Msgbox nowDate.allinfo
VB.NET use:
DIM MyDate As New WestTochinadate
Mydate.getchinaday (e.day.date)
download link:
http://219.146.141.37/bbs/oss/7/7_329.rar
