VB写的阳历转换阴历的类模块一定能用