在PB中使用 动态链接库,阳历转阴历
pb中使用 声明: function long MyFormatLunarYear(long iYear,ref string text) library "calendar.dll" function long MyGetLunarDate(long iYear, long iMonth, long iDay, ref long iLunarYear, ref long iLunarMonth, ref long iLunarDay) library "calendar.dll" function long getjieqi(long iYear, long iMonth, long iDay) library "calendar.dll" 使用: //阴历生日提醒 long ll_nian,ll_yue,ll_ri,ll_oldnian,ll_oldyue,ll_oldri string ls_time,ls_1,ls_yinli ls_time=string(today()) ll_nian=long(left(ls_time,4)) ll_yue=long(mid(ls_time,6,2)) ll_ri=long(right(ls_time,2)) MyGetLunarDate(ll_nian,ll_yue,ll_ri, ref ll_oldnian, ref ll_oldyue, ref ll_oldri) ls_yinli=string(ll_oldnian)+"-"+string(ll_oldyue)+"-"+string(ll_oldri) st_2.text="今天是:"+"阳历"+string(today())+","+"阴历"+ls_yinli