我想從一個字段類型為 日期/時間 型中獲取 日期怎麼處理
例如 從 2003/6/9 am 12:30:00 獲取 2003/6/9, 獲的是日期類型的
例如 從 2003/6/9 am 12:30:00 獲取 2003/6/9, 獲的是日期類型的
解决方案 »
- DevExpress中cxGrid能否在单张表中实现树状结构?
- MDI窗体中设的断点不起作用?
- 如何实现任意两台计算机上的程序协同运行??
- 我会做一些简单的ADO之类的小系统,可以找到工作吗?
- 请教高手,怎样得到要连接的服务器的计算机名和ip,并且要知道该服务器上是否已安装了sql server 2000
- 在使用數據庫事務時,出現一些問題
- 各位好!~ 在画线时什么使画出来的线 会由于表单的上下拉而被擦除掉!!!!!!!!
- 如何在一个系统平台下实现功能模块的接合?
- Delphi 帮助文档中的属性标识代表的含义
- Kingron:我给你发的妹儿你收到了吗?
- ~~~~~~~~~请大家帮帮小弟,过来看看,马上给分~~~~~~~~
- 今天我妹高考!散分200以祝愿我妹考出好成绩!!!希望大家和我一起祝福她!!
t:TDateTIme;
s:string;
begin
s:=DateToStr((TDate)t);
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;