如何将Delphi中的Now日期和时间转换为TXSDate类型？

Question

我必须将当前日期和时间分配给类型为 TSXDate 的相同变量。 我怎样才能做到这一点？ RequestDate 和 RequestTime 是 TXSDate 类型。

HEADTYPE1 : HEADTYPE;

headtype1.RequestDate := Now as TXSDate;
headtype1.RequestTime := Time as TXDate;

Answer 1

var
  XSDate: TXSDate;
begin
  XSDate := TXSDate.Create;
  XSDate.AsDate := Now;
  headtype1.RequestDate := XSDate; 
end