sp; if (x = 8) or (x = -4) then
birthpet := '蛇'
else
if (x = 7) or (x = -5) then
birthpet := '马'
else
if (x = 6) or (x = -6) then
birthpet := '羊'
else
if (x = 5) or (x = -7) then
birthpet := '猴'
else
if (x = 4) or (x = -8) then
birthpet := '鸡'
else
if (x = 3) or (x = -9) then
birthpet := '狗'
else
if (x = 2) or (x = -10) then
birthpet := '猪';
result := birthpet;
end;
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
&nb
