Date类型怎么么分别得出年月日,结果为三个值
解决方案 »
- 兄弟们可好
- 如何终止程序~~~~~
- with...do那里出问题了,高手些帮忙看哈
- 关于SQL语句中的distinct的用法?(简单)
- Delphi工程Project-->Options-->Packages中的疑问。
- 急,请问cxSpreadSheet如何冻结第一行,使第一行总是显示?
- //override;代表这个方法是覆盖了一个虚方法,是不是表明我在用这个方法的时候必须在后面加上这个override;
- 如何在DBGrid的Title上画图?
- 请问谁有FastReport的资料!
- delphi中能不能将某个应用程序的主要内存调出来编辑?
- 急需文件合并,分割源码?90分(不够再加)
- 因项目需要,寻求图形图象处理的资料,请介绍书籍或网站
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;
monthOf(now)
dayOf(now)
begin
year:= formatDatetime('yyyy',now);
month:=FormatDateTime('mm',now);
day:=FormatDateTime('dd',now);
end
yy,mm,dd: dword;
begin
decode(now,yy,mm,dd);
showmessage(inttostr(yy));
showmessage(inttostr(mm));
showmessage(inttostr(dd));
end;
year(字段)
month(字段)
day(字段)