T tpeisc Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-17 #1 一张数据表中有两个字段，分别用来记录系统当前日期和时间。怎么样才能把这两个值从系统中取出来放到记录中呢？请给出具体的函数和变量值是如何设定。
H hlsl Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-17 #2 这个问题，我觉得你应该好好看看书。你认为呢？ procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := DateTimeToStr(Now); end;
这个问题，我觉得你应该好好看看书。你认为呢？ procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := DateTimeToStr(Now); end;
W watter Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-17 #3 Now()：获取当前日期和时间 Date()：获取当前日期和时间 Time()：获取当前日期和时间 DateTimeToStr(var)：将日期时间型转换为字符串型 DateToStr(var)：将日期型转换为字符串型 TimeToStr(var)：将时间型转换为字符串型 如： Label1.Caption:=DateTimeTo(Now()); Label2.Caption:=DateTo(Date()); Label3.Caption:=TimeTo(Time());
Now()：获取当前日期和时间 Date()：获取当前日期和时间 Time()：获取当前日期和时间 DateTimeToStr(var)：将日期时间型转换为字符串型 DateToStr(var)：将日期型转换为字符串型 TimeToStr(var)：将时间型转换为字符串型 如： Label1.Caption:=DateTimeTo(Now()); Label2.Caption:=DateTo(Date()); Label3.Caption:=TimeTo(Time());
弟 弟子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-17 #4 table.insert; table.fieldbyname('date').asstring:=formatdatetime("yy-mm-dd",now()); table.fieldbyname('time').asstring:=formatdatetime("hh-nn-ss",now()); table.post;
table.insert; table.fieldbyname('date').asstring:=formatdatetime("yy-mm-dd",now()); table.fieldbyname('time').asstring:=formatdatetime("hh-nn-ss",now()); table.post;
H hunter0401 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-18 #6 表名:MyTable,其中D1字段为日期型,T1字段为时间型 Query.FieldByName('D1').AsDateTime := Date(); Query.FieldByName('T1').AsDateTime := Time();
表名:MyTable,其中D1字段为日期型,T1字段为时间型 Query.FieldByName('D1').AsDateTime := Date(); Query.FieldByName('T1').AsDateTime := Time();
