Question

delphi7 如何获取系统当前时间的问题，本人初学，高手请进

delphi7 如何获取系统当前时间的问题，本人初学，高手请进
我想通过一个button点击触发如下的事件：获取系统当前时间，然后把它转化为int型或者其他能计算的数据类型（最好是能想减的），然后把它存在数据库中，最好能说明如何获取只需要日，时分，精确度的问题。
其实我想实现的功能是这样的，就是记录两个不同的button点击的系统时间，把这两个系统时间存入数据库，然后进行想减的操作。
PS：XP系统，Delphi7.0，SQL Server2000
最好有代码，或者留个QQ也可以，回答好的追加~本人初学，谢谢各位啦
请再详细点，本人新手~见谅~
还有，我希望精确到分
最后能显示在form中，谢谢各位了

Answer 1

DELPHI中用函数NOW来获取操作系统时间。
NOW的类型为TDatetime，可以精确到秒，TDateTime类型 减去 TDateTime类型 的结果单位是天。

SQL SERVER 用函数NOW();

Answer 2

uses Classes,SysUtils,ADODB,DB;
procedure SaveTimeToServer(MyDateTime:string);
var _qryDate:TAdoQuery;
begin
_qryDate := TAdoQuery.Create(nil);
try
with _qryDate do
begin
Connection := 这里是ADOQuery连接的数据源;
Close;
SQL.Text := '这里是SQL语句';
//这个我是这样写的 SQL.Text := 'Insert Into 表 Values('''+MyDateTime+''')';
Open;
end;
finally
_qryDate.Free;
end;
end;

procedure Button1Click(Sender : Tobject)
var dtMyTime:TDateTime;
begin
//StrToDateTime 将字符串转化为Delphi时间类型 根据的Delphi的定义 TDateTime类型实际上是Double类型 可以直接进行计算
//FormatDateTime 将TDateTime类型的数据格式化为YYYY-MM-DD HH:NN:SS的字符串输出 如果你只想精确到分的话 YYYY-MM-DD HH:NN:00 这个样子就好
dtMyTime := StrToDateTime(FormatDateTime('YYYY-MM-DD HH:NN:SS',Now));

SaveTimeToServer(FormatDateTime('YYYY-MM-DD HH:NN:00',dtMyTime));

end;

Button2的事件大概也就是和上面差不多。

Answer 3

formatdatetime('yyyy年mm月dd日',date)显示yyyy年mm月dd日
formatdatetime('yyyy-mm-dd hh:nn:ss',now)显示yyyy年mm月dd日 hh:nn:ss
formatdatetime('hh:nn:ss' ,Time)显示hh:nn:ss

Answer 4

label1.caption := formatdatetime('yyyy-MM-dd HH:mm',now);