Question

delphi now函数 分钟固定

Delphi7我用now函数获取系统时间 ，放在timer里 ，让它没一秒获取一次，出来的结果除了分钟一直固定在12分，其他都正确
procedure TForm4.Timer1Timer(Sender: TObject);
begin
edit2.text:=formatdatetime( 'yyyy年mm月dd日hh点mm分ss秒',now);
end;
这是为什么呀
12分也不是正确的分钟，而且我把这个时间插入sql的表了，只存到分钟过，秒后面没有，数据长度肯定够得。

Answer 1

你的问题很明显是日期格式化出了错误,原因是把mm当成了分钟,如下代码把mm分修改成nn分即可
我测试时用的代码:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.caption:=formatdatetime( 'yyyy年mm月dd日hh点nn分ss秒',now);
end;

复制下列代码替换你的代码即可:
procedure TForm4.Timer1Timer(Sender: TObject);
begin
edit2.text:=formatdatetime( 'yyyy年mm月dd日hh点nn分ss秒',now);
end;

Answer 2

　　Now函数：
　　定义：function Now: TDateTime;
　　作用：用于取得当前的日期时间
　　范例：CurrentDateTime := Now;
　　描述：
　　根据计算机系统设定的日期和时间返回当前的日期和时间值。
　　语法：

　　Now说明下面的示例利用 Now 函数返回当前的日期和时间:

　　Dim MyVar

　　MyVar = Now ' MyVar 包含当前的日期和时间。