如何將UTC(全球標準時間)轉換成TDateTime |
答題得分者是:juneo
|
haman
中階會員 發表:46 回覆:137 積分:56 註冊:2005-03-10 發送簡訊給我 |
請問各位大大,utc時間要如何轉成TDateTime呢?
因為要寫一個農曆跟國曆轉換的程式,
在網路上看到了一支javascript,
裡面有一段code是這樣的..
var offDate = new Date( ( 31556925974.7*(y-1900) sTermInfo[n]*60000 ) Date.UTC(1900,0,6,2,5) );
請問要怎麼才能轉成TDateTime的格式呢? ====================================
懂的不多,卻想學的更多,搞得不自覺的將問題複雜化@@
|
juneo
高階會員 發表:103 回覆:190 積分:118 註冊:2004-05-13 發送簡訊給我 |
引言: 請問各位大大,utc時間要如何轉成TDateTime呢? 因為要寫一個農曆跟國曆轉換的程式, 在網路上看到了一支javascript, 裡面有一段code是這樣的.. var offDate = new Date( ( 31556925974.7*(y-1900) sTermInfo[n]*60000 ) Date.UTC(1900,0,6,2,5) ); 請問要怎麼才能轉成TDateTime的格式呢? ==================================== 懂的不多,卻想學的更多,搞得不自覺的將問題複雜化@@TmpStr := 404DE410; FormatDateTime('mm-dd-yy',UnixToDateTime(StrToInt('$' TmpStr))) 試試看這是不是你要的^^ 數學 程式 經驗=不懂^^ ------------------------- 本人同意在K.Top個人發表的文章及程式授權給K.Top使用;亦授權使用於學術;其餘商業使用請先行聯繫。 |
haman
中階會員 發表:46 回覆:137 積分:56 註冊:2005-03-10 發送簡訊給我 |
找到方法了,參考
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2974834
的方法解決的,不過還有一些小問題,照原方法的話n>2時會算錯
所以改成下面這樣
TDateTime __fastcall TForm1::sTerm(int Year,int n) { double OffDate = 31556925974.7 * (Year - 1900); __int64 Data = sTermInfo[n] * 600; TDateTime Date = IncMilliSecond(StrToDateTime("1900/1/6 2:05"),(unsigned __int64)OffDate); for(int i = 0;i<100;i ) Date = IncMilliSecond(Date,Data); return Date; }==================================== 懂的不多,卻想學的更多,搞得不自覺的將問題複雜化@@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |