Question

delphi获取当前日期，包括年份月份星期时间。

包括使用什么组件控件的。。。能够发个现成的程序和工程最好了，531331615@qq.com
发送的果断加10分哦

Answer 1

1、打开Delphi7集成开发环境，在Diaglog面板，向默认工程的Form1窗体放一个Opendiag1控件。

2、在默认工程的Form1窗体，再放一个Edit1控件，两个Button控件，分别设置其Captain属性为：打开和修改时间。

3、双击打开按钮，进入OnClick事件方法，代码如下。

4、接着双击修改时间按钮，进入OnClick事件方法，代码如下。

5、F9运行程序，点击打开按钮选择文件，选择C:\vcredist.bmp，再点击修改时间，弹出文件创建或最近一次修改的时间。

6、在文件目录找到该文件比对文件属性时间和程序获取一致，获取时间成功。

Answer 2

delphi 语言中，针对日期的计算专门提供了 DateUtils 单元文件，该文件提供了常用的日期功能函数，比如 DayOfTheMonth、DayOfTheWeek 等等。

用 delphi 获取当前日期、包括年份月份星期时间，参阅以下示例代码：

procedure TForm2.Button1Click(Sender: TObject);
var sYear,sMonth,sDay,sWeek,sTime: string;
begin
  sYear := FormatDateTime('yyyy',Now)+'年';//年
  sMonth := FormatDateTime('mmm',Now);//月
  sDay := FormatDateTime('d',Now)+'日 ';//日
  sWeek := FormatDateTime('ddd',Now);//周
  sTime := FormatDateTime(' hh:mm:ss',Now);//时间

  ShowMessage('今天是：' + sYear + sMonth + sDay + sWeek + sTime);
end;

代码运行结果截图如下：

Answer 3

发过去了 请查收

可以获得这样的
2012年06月18日 04时06分43秒
星期一

其实不需要任何三方空间 几行代码的问题
const Weeks: array[1..7] of String =
('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=FormatDateTime('yyyy年mm月dd日 hh时nn分ss秒',now());
Memo1.Lines.Add(Weeks[DayOfWeek(now())]);
end;

Answer 4

a=date;