怎样把现在时间的年月日提取出来
解决方案 »
- 【求拯救】Delphi写的DLL,C++Builder调用,结果不正确,
- 日期空值怎么表示?
- 如何得到Excel中的某一单元格中的数据类型啊?
- 如何从数据库内查找所有人名然后把他们作为节点添加到TreeView
- 我从来没有开发过3层结构的应用程序,应该如何开始呢?
- 哪个表格控件最好用(象DBGRID)的那种
- 这是什么错误? C/S的程序问题?????? (难道没人知道吗?)
- 我需要把checklistbox的多个选择框的状态合并写到一个整型字段中(采用未操作),存进数据库里谁能给我一个例子?
- 关于笔记本电脑的问题
- 在delphi如何用UDP进行广播
- 如何在Delphi6中使用Excel组件
- 怎样判断一个应用程序是否正在运行?
Label1.Caption := 'Today is ' + DateToStr(Date);end;
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;
encode //组合时间