有關日期的計算方法 |
|
尚未結案
|
|
dosstart
一般會員   發表：1 回覆：0 積分：0 註冊：2004-04-02 發送簡訊給我 |
|
|
shinnuei
一般會員 發表：32 回覆：48 積分：21 註冊：2002-03-13 發送簡訊給我 |
不知道這個是不是您想要的，大概長的這個樣子.
傳入 dt1,dt2 兩個 DateTime，並傳入 kind 去選擇要計算周數和天數，計算後
TDateTime __fastcall TForm1::FuncName(TDateTime dt1,TDateTime dt2,int kind)
{
TDateTime newdt;
switch (kind)
{
case 1:
//計算 week
break;
case 2:
//計算 day
break;
}
return newdt;
}
|
|
g6101
高階會員  發表：22 回覆：129 積分：110 註冊：2002-06-15 發送簡訊給我 |
dosstart 您好：
參考以下的程式碼，再按照需求修改
TDateTime d1,d2;
int day; //總天數
AnsiString str; try
{ d1 = StrToDate(MaskEdit1->Text);}//使用TMaskEdit元件
catch(...)
{ str.sprintf("您輸入的(%s)日期不存在或格式錯誤！",MaskEdit1->Text);
ShowMessage(str);
return; }
try
{ d2 = StrToDate(MaskEdit2->Text); }//使用TMaskEdit元件
catch(...)
{ str.sprintf("您輸入的(%s)日期不存在或格式錯誤！",MaskEdit2->Text);
ShowMessage(str);
return; } if (d1 > d2)
day = int(d1-d2);
else
day = int(d2-d1); Caption = Caption.sprintf("%d週又%d天",day/7,day%7);
|
發表時間：2004-04-03 00:05:54
IP:218.172.xxx.xxx 未訂閱
系統時間：2024-11-25 13:15:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |