paradox数据库中TDateTimeField的一个问题(50分)

牛龙

Unregistered / Unconfirmed
GUEST, unregistred user!
paradox数据库中TDateTimeField类型的域,我要给它赋值,但是从date函数只得到date值,time函数只得到time值,我如何同时得到一个既有date又有time值的一个值,将它赋值给TDateTimeField类型的域呐?
 
now函数
function Now: TDateTime;

Description

Returns the current date and time, corresponding to Date + Time.
 
filedbyname{'xx'}.AsDatetime := formatdatetime(...);
 
delphi 又Tdatetime类型!
TDateTimeField也又datetime属性!
 
你如果是要当前的日期和时间就用now,
如果是要其他的就自己拼.
 
用Delphi提供的 Now函数。
 
如果NOW更简单
filedbyname{'xx'}.AsDatetime := NOW;
上面错了,应该是:
filedbyname{'xx'}.AsDatetime := DateTimeToString(...);
 
function EncodeDate(Year, Month, Day: Word): TDateTime; 例如:

var
MyDate: TDateTime;
begin
MyDate := EncodeDate(99, 2, 9);
Label1.Caption := DateToStr(MyDate);
end;
 
多人接受答案了。
 
顶部