全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1395
推到 Plurk!
推到 Facebook!

有沒有一個函數可以輸入總秒數和啟始年份

尚未結案
pricejit2
一般會員


發表:53
回覆:18
積分:14
註冊:2005-01-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-17 21:29:33 IP:220.229.xxx.xxx 未訂閱
有沒有一個函數可以輸入從啟始年份至目前為止總秒數和啟始年份 f(1970,30902939302903) 然後計算出目前年月日時分秒呢 謝謝
malanlk
尊榮會員


發表:20
回覆:694
積分:577
註冊:2004-04-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-08-17 22:33:53 IP:61.219.xxx.xxx 未訂閱
delphi 內建函數應該是...沒有... 自己寫ㄧ個吧, 作為習題挺不錯的....加油! 發表人 - malanlk 於 2005/08/17 22:35:30
h@visli
資深會員


發表:103
回覆:429
積分:431
註冊:2004-02-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-08-17 23:30:29 IP:222.248.xxx.xxx 未訂閱
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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-08-18 00:36:38 IP:61.219.xxx.xxx 未訂閱
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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-08-18 08:50:30 IP:218.15.xxx.xxx 未訂閱
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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-08-18 09:15:24 IP:203.69.xxx.xxx 未訂閱
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

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-08-18 10:15:24 IP:210.64.xxx.xxx 未訂閱
查一下 time() 這個函數。它可以得到秒數由 19XX 年。 而有函數可以讓你指定時間而產生秒數。 都在 time.h 中。 由這樣就可以得到兩個時間之秒差了。
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-08-18 10:44:25 IP:218.15.xxx.xxx 未訂閱
malanlk前辈所言甚是,不过觉得有65535年已经够用了吧,呵呵,所以依小弟而言,觉得直接用IncSecond即可。 ps:30902939302903秒至少有 977248 年?我算了下还真是也,是什么要用这么长的时间 <> ============================ 为什么经过多年以后,得失的过程如此冷漠 ============================ 發表人 -
系統時間:2024-03-29 23:29:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!