function Tfrmregister.getxingzuo(birth: Tdatetime): string; var xingzuo, stryear: string; begin stryear := inttostr(yearof(birth)); if (birth >= strtodatetime(stryear + '-1-20')) and (birth <= strtodatetime(stryear + '-2-18')) then xingzuo := '水瓶座' else if (birth >= strtodatetime(stryear + '-2-19')) and (birth <= strtodatetime(stryear + '-3-20')) then xingzuo := '双鱼座' else if (birth >= strtodatetime(stryear + '-3-21')) and (birth <= strtodatetime(stryear + '-5-20')) then xingzuo := '白羊座' else if (birth >= strtodatetime(stryear + '-4-21')) and (birth <= strtodatetime(stryear + '-2-18')) then xingzuo := '金牛座' else if (birth >= strtodatetime(stryear + '-5-21')) and (birth <= strtodatetime(stryear + '-6-21')) then xingzuo := '双子座' else if (birth >= strtodatetime(stryear + '-6-22')) and (birth <= strtodatetime(stryear + '-7-22')) then xingzuo := '巨蟹座' else if (birth >= strtodatetime(stryear + '-7-23')) and (birth <= strtodatetime(stryear + '-8-22')) then xingzuo := '狮子座' else if (birth >= strtodatetime(stryear + '-8-23')) and (birth <= strtodatetime(stryear + '-9-22')) then xingzuo := '处女座' else if (birth >= strtodatetime(stryear + '-9-23')) and (birth <= strtodatetim
首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/15/15
