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
