还是老问题，如何转化日期格式？谢谢各前辈 |
|
答題得分者是：Justmade
|
|
deity
尊榮會員   發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
ddy
站務副站長  發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
將文字 "99-01-20"(StrDate) 轉化為日期格式(myDate) : myDate := EncodeDate(StrToInt(Copy,StrDate,1,2),StrToInt(Copy,StrDate,4,2),StrToInt(Copy,StrDate,7,2)); 將日期格式 (myDate) 轉化成 "01/20/99" 附合 local sql 的格式 (無論系統用 / 或 - 都會變成 /) : localsqlDate := FormatDateTime('mm"/"dd"/"yy); 或
localsqlDate := FormatDateTime('m"/"d"/"yy); // 不要首位的0 註 : 用 " " 括住的即是直接用那個字元的意思
|
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
哇..以前的答覆有很多筆誤耶 :
procedure TForm1.Button1Click(Sender: TObject);
var
StrDate : String;
myDate : TDate;
begin
StrDate := '99-01-20';
myDate := EncodeDate(StrToInt(Copy(StrDate,1,2)),StrToInt(Copy(StrDate,4,2)),StrToInt(Copy(StrDate,7,2)));
ShowMessage(FormatDateTime('mm"/"dd"/"yy',MyDate)); //或
ShowMessage(FormatDateTime('m"/"d"/"yy',MyDate)); // 不要首位的0
end;
太過依賴 debugger 了 |
|
superlevin
高階會員 發表：181 回覆：313 積分：180 註冊：2003-01-12 發送簡訊給我 |
引言: 資料庫日期格式相關問題, 已經有許多討論, 建議搜尋一下相關資料喔.啊...本來答應要好好的來拿分的...開完會、上完課...發現 已經結案囉！那...為了履行諾言。我做了以下的整理，希望 各位批評、指教！ Ⅰ、使用access的話可用FormatDateTime('mm/dd/yyyy',date) Ⅱ、如果使用SQL Server可以用Convert(data_type , expression , [style]) Ⅲ、使用的是Oracled的話可用TO_DATE(日期格式,要轉換的日期字串)， 注意要轉換的日期字串的格式一定要和日期格式相同,否則轉換會有問題 例如：TO_DATE('YYYYMMDD','20021101')
------
林壽山 網站: http://superlevin.ifengyuan.tw mail: superlevin@gmail.com |
|
ohmygods
一般會員  發表：9 回覆：11 積分：4 註冊：2005-07-31 發送簡訊給我 |
不知道怎么实现查询某天到某天的数据，所以翻出了DEITY大大的帖子< >< >
我试着写如下代码
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select 书刊名,sum(总发数),sum(总退数),sum(实销数),sum(预付款),sum(预收),sum(利润) from 日总结算表 where 日期 between :s0 and :s1 group by 书刊名';
ADOQuery1.Parameters.ParamByName('s0').DataType:=ftDate;
ADOQuery1.Parameters.ParamByName('s0').Value :=formatdatetime('yy-m-d',DateTimePicker1.Date);;
ADOQuery1.Parameters.ParamByName('s1').DataType:=ftDate;
ADOQuery1.Parameters.ParamByName('s1').Value :=formatdatetime('yy-m-d',DateTimePicker2.Date);; 可是选择条件后，按下BUTTON没有任何反应，数据库里明明是有数据的，我是用ACCESS的。
|
|
ohmygods
一般會員 發表：9 回覆：11 積分：4 註冊：2005-07-31 發送簡訊給我 |
發表時間：2003-05-13 08:32:04
IP:218.15.xxx.xxx 未訂閱
系統時間：2024-11-25 2:35:49
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |