求教:

Question

一个用VC编写的DLL实现读写功能，函数为：int PutDigitalDataToDNA(CString szService,CString szPointName,long lTime,int nValue)，请问如何将Delphi的Tdatetime类型转化成VC的长整型long类型或者是CTime类型？谢谢！

Answer 1

sysutils单元的DatetimeToFileDate和sqltimst单元的datetimesqltimestamp不知道是否合用？

Answer 2

dbExpress大哥，sysutils单元的DatetimeToFileDate我用了，转化成长实型后调用VC编的DLL还是不行，而DEPHI似乎没有“sqltimst单元的datetimesqltimestamp”

Answer 3

SysUtils单元的DateTimeToTimestamp呢？SqlTimSt单元好像是Delphi7才有，不知道D6有没有

Answer 4

TSQLTimeStamp = packed record
    Year: SmallInt;
    Month: Word;
    Day: Word;
    Hour: Word;
    Minute: Word;
    Second: Word;
    Fractions: LongWord;
  end;
function DateTimeToSQLTimeStamp(const DateTime: TDateTime): TSQLTimeStamp;
var
  FFractions, FYear: Word;
begin
  with Result do
  begin
    DecodeDate(DateTime, FYear, Month, Day);
    Year := FYear;
    DecodeTime(DateTime, Hour, Minute, Second, FFractions);
    Fractions := FFractions;
  end;
end;