见鬼了, 我用GetSystemTime 获取系统时间,结果小时数差了8小时,应该是10点,结果是2点,有人遇到过么? 那是格林威治时间吧!中国的时区是东8区 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 哈哈,你真的很幸福,我昨天才写了一个函数,用来同步SQL服务器的!其中有一个时区转换的问题,给你好了。procedure AnsyTime(const DatabaseName:string);var td: _SYSTEMTIME; ft: FILETIME;begin{ DONE -oKingron -cOther : 同步服务器时间 } with TQuery.Create(Self) do try DatabaseName:=DatabaseName; SQL.Clear; SQL.Text := 'select td=getdate()'; Open; DateTimeToSystemTime(FieldByName('td').AsDateTime, td); ///here SystemTimeToFileTime(td,ft); LocalFileTimeToFileTime(ft,ft); ////Convert Here FileTimeToSystemTime(ft,td); SetSystemTime(td); finally Free; end;end; 鼠标点击时得到dxDBTreeView1节点(包括子节点)的内容,如何做。 将查询结果添加到数据库中遇到问题 GetCurrentProcess得到是不是句柄 要死人了,各位大侠救命啊!我的主程序不见了!!!!!!!!!!!!!!!!!!!!! adodataset如何開啟緩存功能 关于MDI窗口的问题,急,急! 请问qixin000(小齐) 不要歧视女生!!!! 求界面实现方法 现在DEPHI最新版本是不是dephi 2010呀 各位高手,请问怎样判断打印机是否缺纸,给重分※Ⅵ 懒得翻原来的了,chm文件怎么作?
procedure AnsyTime(const DatabaseName:string);
var
td: _SYSTEMTIME;
ft: FILETIME;
begin
{ DONE -oKingron -cOther : 同步服务器时间 }
with TQuery.Create(Self) do
try
DatabaseName:=DatabaseName;
SQL.Clear;
SQL.Text := 'select td=getdate()';
Open;
DateTimeToSystemTime(FieldByName('td').AsDateTime, td); ///here
SystemTimeToFileTime(td,ft);
LocalFileTimeToFileTime(ft,ft); ////Convert Here
FileTimeToSystemTime(ft,td);
SetSystemTime(td);
finally
Free;
end;
end;