請問如何計算足歲? |
|
尚未結案
|
|
will
中階會員   發表：176 回覆：135 積分：62 註冊：2002-04-14 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 請問如何根據一個人的出生年月日及今天的日期 算出這個人的足歲呢? 例如一個人的出生年月日是1964/09/25, 今天的日期是 2005/05/10 則這個人的足歲為2005-1964-1=40你不是已經把答案算出來了嗎? 計算足歲的問題, 似乎只適用在台灣, 其他地區好像都沒有這方面的需求 1.如果你只是想計算到年, 上面就是你的答案 2.如果你是要計算到月/日, 可以用 DecodeDate()函數取出年/月/日分別去比對 3.另外在台灣還有很多人是以農曆來計算足歲, 那你就要考慮將出生日期改為農曆計算 |
|
pcboy
版主  發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
BYear, BMonth, BDay: Integer;
YearOld: Integer;
Year, Month, Day : Word;
begin
DecodeDate(Now, Year, Month, Day); BDay :=StrToInt(Edit3.Text);
BMonth :=StrToInt(Edit2.Text);
BYear :=StrToInt(Edit1.Text); if (Month > BMonth) and (Year >= BYear) then
YearOld := Year - BYear; if (Day >= BDay) and (Month = BMonth) and (Year >= BYear) then
YearOld := Year - BYear; if (Day < BDay) and (Month = BMonth) and (Year >= BYear) then
YearOld := Year - BYear-1; if (Month < BMonth) and (Year >= BYear) then
YearOld := Year - BYear -1; Edit4.Text := IntToStr(YearOld); if (Year < BYear) then
Edit4.Text :='未出世';
end;
*********************
如果您滿意答案,請結案
*********************
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
發表時間：2005-05-10 22:25:09
IP:220.131.xxx.xxx 未訂閱
系統時間：2024-05-17 11:41:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |