我想要一个计算生辰八字的vb语言源码

如0131代表1月31日；当作数值转十六进制(6-7位)'农历常量(1899~2100，共202年）Private Const ylData = "AB500D2,4BD0883," _& "4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2," _& "A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC...