我在表中定义日期为smalldatetime,分别怎么取其中的年、月、日?
解决方案 »
- 关于判断IP范围
- ________200!! 急请教~ 有权限限制的软件编写问题~谢谢各位前辈~
- 哪位兄台有做过类似于QQ的东西啊?小弟急需帮助!
- 兄弟想问一个非常简单的问题,如何运行一个不带Form窗体的程序,只运行里面的程序,能详细说一下操作方法吗?感激不尽
- 自动折行问题,不胜感激
- 应该使用什么API函数得到本机当前登录到域的域名,注意,不是所属的域名
- QReport的小问题
- demo 是啥???
- 在delphi中,有没有象vb中line的控件,可以指向任意方向,可以拖动
- Listview 在report视图的时候怎样读写第a行第b列的内容?
- 5.小弟初学,迷惑5,请高手帮助。
- 哪有直接用API写的且是事件驱动式的串口通信控件?
var
Present: TDateTime;
Year, Month, Day,: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
end;
mydate:TDateTime;
Year,Month,Day:Word;
begin
mydate:=Query1.fieldbyname('smalldate').AsDate;
Year:=FormatDateTime('yyyy',mydate);
Month:=FormatDateTime('mm',mydate);
Day:=FormatDateTime('Day',mydate);
end;
date:tdatetime;
year,month,day:word;
begin
date:=now;
decodedate(date,year,month,day);
panel1.Caption:=format('今天是%d年%d月%d日',[year,month,day]);
end;
Ymd:=FormatDateTime('yy-mm-dd',mydate);
Ymd:=FormatDateTime('yyyy-mm',mydate);