如何將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;
}
====================================
懂的不多，卻想學的更多，搞得不自覺的將問題複雜化@@
|
發表時間：2005-12-07 22:25:53
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-04-25 5:56:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |