請教各位前輩： 當我知道客戶的出生日期時，該怎麼算他幾歲呢？用caculate field 後該怎麼算？ 如果要知道星座的話，是不是得從出生月判斷後再判斷出生日期來 知道是什麼星座的呢？ 請前輩指點！

var sYear,sMonth,sDay:Word; eYear,eMonth,eDay:Word; cCons:String; begin // BIRTH(生日):為資料欄位，日期型態。 // AGE(年齡):為計算欄位，數字型態。 // CONS(星座):為計算欄位，字串型態。 // 摩羯座 12/22~1/20 // 水瓶座 1/21~2/19 // 雙魚座 2/20~3/20 // 牡羊座 3/21~4/20 // 金牛座 4/21~5/21 // 雙子座 5/22~6/21 // 巨蟹座 6/22~7/23 // 獅子座 7/24~8/23 // 處女座 8/24~9/23 // 天秤座 9/24~10/23 // 天蠍座 10/24~11/22 // 射手座 11/23~12/21 DecodeDate(Table.FieldByName('BIRTH').Value,sYear,sMonth,sDay); DecodeDate(Now,eYear,eMonth,eDay); // 計算年齡(實歲，需歲再加一) Table.FieldByName('AGE').Value := StrToInt(eYear) - StrToInt(sYear); // 計算星座 case StrToInt(sMonth) of 1:if StrToInt(sDay) > 20 then cCons := '水瓶' else cCons := '摩羯'; 2:if StrToInt(sDay) > 19 then cCons := '雙魚' else cCons := '雙魚'; 3:if StrToInt(sDay) > 20 then cCons := '牡羊' else cCons := '雙魚'; 4:if StrToInt(sDay) > 20 then cCons := '金牛' else cCons := '牡羊'; 5:if StrToInt(sDay) > 21 then cCons := '雙子' else cCons := '金牛'; 6:if StrToInt(sDay) > 21 then cCons := '巨蟹' else cCons := '雙子'; 7:if StrToInt(sDay) > 23 then cCons := '獅子' else cCons := '巨蟹'; 8:if StrToInt(sDay) > 23 then cCons := '處女' else cCons := '獅子'; 9:if StrToInt(sDay) > 23 then cCons := '天秤' else cCons := '處女'; 10:if StrToInt(sDay) > 23 then cCons := '天蠍' else cCons := '天秤'; 11:if StrToInt(sDay) > 22 then cCons := '射手' else cCons := '天蠍'; 12:if StrToInt(sDay) > 21 then cCons := '摩羯' else cCons := '射手'; end; Table.FieldByName('CONS').Value := cCons; end;