線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1982
推到 Plurk!
推到 Facebook!

如何將日期由資料庫中取出,再分為時間和日期

答題得分者是:hagar
miga
初階會員


發表:61
回覆:92
積分:30
註冊:2002-08-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-12-02 17:47:50 IP:211.74.xxx.xxx 未訂閱
如題, 我已經將時間和日期結合成資料庫datetime型態,存入資料庫, 但現在我要將資料庫中的資料再取出, 請問要如何再將其分開成日期與時間呢? 謝謝
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-12-02 17:56:34 IP:202.39.xxx.xxx 未訂閱
var YY, MM, DD, hh, nn, ss, ms: Word;
begin
  DecodeDate(Table1.FieldByName('DateTimeField').AsDateTime, YY, MM, DD);
  DecodeDate(Table1.FieldByName('DateTimeField').AsDateTime, hh, nn, ss, ms);
end;
-- Everything I say is a lie.
FrederickPau
資深會員


發表:4
回覆:161
積分:268
註冊:2002-11-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-12-02 20:44:02 IP:61.228.xxx.xxx 未訂閱
hagar 大大應該是手快不小心打錯了    
var YY, MM, DD, hh, nn, ss, ms: Word;
begin
  DecodeDate(Table1.FieldByName('DateTimeField').AsDateTime, YY, MM, DD);
  DecodeTime(Table1.FieldByName('DateTimeField').AsDateTime, hh, nn, ss, ms);
end;
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-12-02 20:48:54 IP:202.39.xxx.xxx 未訂閱
引言: hagar 大大應該是手快不小心打錯了
呵呵, 不好意思! 應該是用複製, 然後就錯了! 打字還沒那麼快! :) -- Everything I say is a lie.
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-12-03 16:59:13 IP:61.221.xxx.xxx 未訂閱
引言: 呵呵, 不好意思! 應該是用複製, 然後就錯了! 打字還沒那麼快!
=.="
------
======================
昏睡~
不昏睡~
不由昏睡~
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-12-04 07:42:40 IP:61.219.xxx.xxx 未訂閱
如果你要得到的是字串 var vdate,vtime:string; vdate:=formatDateTime('yyyy/m/d',Table1.FieldByName('DateTimeField').AsDateTime)); vtime:=formatDateTime('hh:nn:ss',Table1.FieldByName('DateTimeField').AsDateTime)); 如果是要民國年可用 vdate:=formatDateTime('ee/m/d',Table1.FieldByName('DateTimeField').AsDateTime));
Gspeed
一般會員


發表:2
回覆:9
積分:12
註冊:2002-04-05

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-12-04 16:48:33 IP:211.23.xxx.xxx 未訂閱
不好意思,相關問題插個花... FormatDateTime('mmm', Date)取出的格式,可不可以取得英文月份的縮寫
 
例:
var
  sMonth: string;
begin
  sMonth := FormatDateTime('mmm', Date);
end;
因為我try了老半天,取出來的都是轉成民國的表示內容, 如:sMonth = "十二月",而不是"Dec"
FrederickPau
資深會員


發表:4
回覆:161
積分:268
註冊:2002-11-04

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-12-04 16:57:35 IP:61.228.xxx.xxx 未訂閱
會出現這樣應該是系統的內訂吧 但是你還是可以在程式裡改 ShortMonthNames[1..12], 是 String 的格式 你可以透過 ShortMonthNames[1] := 'Jan' 把 ShortMonthNames 在程式初始時都改成英文 後面在 FormatDateTime 時就可以顯示出英文的了
c905165
中階會員


發表:50
回覆:120
積分:54
註冊:2002-09-29

發送簡訊給我
#9 引用回覆 回覆 發表時間:2002-12-05 12:21:15 IP:203.204.xxx.xxx 未訂閱
引言: hagar 大大應該是手快不小心打錯了
var YY, MM, DD, hh, nn, ss, ms: Word;
begin
  DecodeDate(Table1.FieldByName('DateTimeField').AsDateTime, YY, MM, DD);
  DecodeTime(Table1.FieldByName('DateTimeField').AsDateTime, hh, nn, ss, ms);
end;
假設我要的 yy,mm,dd 是 string; 的話呢? 沒有 wordtostr 這個函式耶。
------
有困難就是能力不足,有麻煩就是方法不對... 劣者總是遇到困難,也時常出現麻煩
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2002-12-05 12:44:43 IP:202.39.xxx.xxx 未訂閱
用 IntToStr 這個 Function    -- Everything I say is a lie.
系統時間:2024-04-26 18:27:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!