有沒有一個函數可以輸入總秒數和啟始年份 |
尚未結案
|
pricejit2
一般會員 發表:53 回覆:18 積分:14 註冊:2005-01-28 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
|
h@visli
資深會員 發表:103 回覆:429 積分:431 註冊:2004-02-13 發送簡訊給我 |
function f(AThen: TDateTime; Seconds: int64): TDateTime;
begin
result := AThen (Seconds / 60 / 60 / 24);
end; ----------------------------
於Delphi K.Top之上
博采眾家之長, 奉獻綿薄之力
---------------------------
------
------------------------ 博采眾家之長,奉獻綿薄之力 ------------------------ |
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); function f(AThen: TDateTime; Seconds: int64): TDateTime; begin result := AThen (Seconds / 60 / 60 / 24); end; begin ShowMessage(IntToStr(Round(30902939302903/60/60/24/366)) '-' DateTimeToStr(f(StrToDateTime('1970/01/01'),30902939302903))); end;假設每年 366 天 上述程式執行的結果是 977248-63741/2/28.... 977248 表示30902939302903秒至少有 977248 年, 可是函數算出的結果卻是63741/2/28.... 這應該是 "年" 的資料型態是 |
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
pricejit2您好,试试以下:
procedure TForm1.Button1Click(Sender: TObject); var Dat,Dat1:TDateTime; begin Dat:=EncodeDateTime(1970,1,1,0,0,0,0); //开始年份 showmessage(FormatDateTime('yyyy-MM-dd hh:mm:ss',Dat)); Dat1:=IncSecond(Dat, 1104364800); // 1104364800 相加多少秒 showmessage(FormatDateTime('yyyy-MM-dd hh:mm:ss',Dat1)); //目前年份 end;============================ 为什么经过多年以后,得失的过程如此冷漠 ============================ |
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); var Dat,Dat1:TDateTime; begin Dat:=EncodeDateTime(1970,1,1,0,0,0,0); showmessage(FormatDateTime('yyyy-MM-dd hh:mm:ss',Dat)); Dat1:=IncSecond(Dat, 30902939302903); // 1104364800 相加多少秒 showmessage(FormatDateTime('yyyy-MM-dd hh:mm:ss',Dat1)); //目前年份 end;deity 大大出馬了... 可是答案還是有問題...所以應該是要限制 秒數不能超過 65535*60*60*24*365=2066711760000 |
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |