FormatDatetime('yyyy-mm-dd hh:nn:ss', Date);
解决方案 »
- 有自主产权组件或软件的兄弟请联系我,有个项目打算一起弄,可行的话一个组件有万把块收入。
- 请各位帮助?
- 请看一关于时间类型的查询!
- 向oracle数据库中插入图片(用blob数据类型),为什么系统总是 提示lob定位器无法扩展事务处理 错误
- 如何让DBcombobox的items所显示的值和存入数据库中的不同?
- 哪位大侠能告诉我用adoquery访问sqlserver需要哪些dll文件支持
- 求救!!!!各位Programmer都是怎样调节自己的状态?
- 關於臨時表的創建問題,不知為什麼這條SQL語名就是通不過
- QRDBtext不能自动换行,但文本太多,该怎么办(给100分)
- 如何把通过摄像头取下的照片来保存??
- 有那位卖过书??书批发来时是打几折的呢??
- VB中的RecordSet和Delphi中的TAdoDataSet什么的控件是否兼容
b : Double;
begin
b := Int(Now);
showmessage(FormatDatetime('yyyy-mm-dd hh:nn:ss', TDateTime(b)));
end;
例子
procedure TForm1.Button1Click(Sender: TObject);var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
Label1.Caption:=DateToStr(now)+' '+'00:00:00');