怎样得到年、月、日的值

iloveyan 2001-11-27 03:05:39
...全文
65 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Snakeguo 2001-11-27
  • 打赏
  • 举报
回复
^
saimaya 2001-11-27
  • 打赏
  • 举报
回复
同意
yopeng 2001-11-27
  • 打赏
  • 举报
回复
DecodeDate(Present, Year, Month, Day);
baicolt 2001-11-27
  • 打赏
  • 举报
回复
extract
tikkypeng 2001-11-27
  • 打赏
  • 举报
回复
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;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧