版主 求救 !! About UTCSTringToDateTime |
尚未結案
|
david215
一般會員 ![]() ![]() 發表:1 回覆:1 積分:0 註冊:2002-08-14 發送簡訊給我 |
|
Chance36
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
|
seaturn99
版主 ![]() ![]() ![]() ![]() 發表:69 回覆:427 積分:214 註冊:2003-08-25 發送簡訊給我 |
引言: david215 你好 看了一下該篇討論內容,其中有一行,應該就是問題的所在,只要加上 uses idGlobal, idDayTime, IdTime;Chance36 版主 : 我查過 idGlobal, idDayTime, IdTime 與 indy 底下都沒有函式名稱叫做 UTCSTringToDateTime ... 所以我在想是不是自己要實做這個函式?? 字面上來看是 UTC 格式的 String 轉成 DateTime 格式,如果是的話應該不難做.. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ---- |
david215
一般會員 ![]() ![]() 發表:1 回覆:1 積分:0 註冊:2002-08-14 發送簡訊給我 |
|
seaturn99
版主 ![]() ![]() ![]() ![]() 發表:69 回覆:427 積分:214 註冊:2003-08-25 發送簡訊給我 |
|
Chance36
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
david215, SouthWind 兩位好 嚇我一跳!,竟然找不到UTCStringToDateTime函式,以該篇討論內容明確標出要uses 什麼單元,我想應該只要uses些單元就可以了,誰知....
我把INDY所提供的所有單元檔,全部搜尋一遍,真的就是找不到UTCStringToDateTime函式,這可糟了,或許真要如SouthWind兄所說自已實作了,
首先找出idDayTime.DayTimeStr到底存在著什麼內容?結果是
'53133 04-05-08 16:17:45 50 0 0 473.7 UTC(NIST) *',用眼睛看是可以瞭解,這是格林威治時間,只要加上時區的時差(台灣是+8(TimeZoneBias)),問題是上述資料格式除了日期及時間部份之外,前面53133及後面一堆數字所代表的意義為何?這部份格式的定義,麻煩有研究的朋友,可以提供嗎?如果不管那部份的資料,則只要粹取出日期時間轉成TDataTime格式之後再加上時差就是目前時間啦!。
Function UTCStringToDateTime(DayTimeString : String) : TDataTime ; Var i:Integer ; Begin i := Pos(' ',DayTimeString ); If i > 0 Then Result := StrToDateTime(Copy(DayTimeString ,i 1,17),'yy-mm-dd hh:mm:ss') TimeZoneBias; Else Result := StrToDateTime(Copy(DayTimeString ,1,17),'yy-mm-dd hh:mm:ss') TimeZoneBias; End;發表人 - chance36 於 2004/05/09 00:48:24 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |