当前日期减去8小时，怎样才能得到正确的日期？？

[haynes]

如何取得世界时？
或者在当前日期减8小时也行。
但怎样才能得到正确的世界时，因为减8小时会遇到好多问题，如月份如何计算，二月如何处理，年如何处理。
可不可以写一个函数，回传当前时间减8小时后的时间。

[初心2]

date-1/3不行吗？

[初心2]

now

[wtj1978]

在DateUtils中的DaysBetween函数

[yurenjf]

保证管用,不信试试
var
td: _SYSTEMTIME;
ft: FILETIME;
dt:DateTime;
.....
DateTimeToSystemTime(dt, td);
SystemTimeToFileTime(td,ft);
LocalFileTimeToFileTime(ft,ft);
FileTimeToSystemTime(ft,td);
SetSystemTime(td);
......

[nhdj]

减去8个小时，需要考虑：
1：是否到了前一天
2：是否到了前一个月
3：是否到了前一年

[jpyc]

http://218.56.11.178:8020/web/index.aspx

-> 下载基地->例程-经典应用->时间差计算大全/得到n小时前的时间

得到n小时前的时间，当然日期就没问题了!

[huojiehai]

用这个最简单
function GetAdd8(OldDatetime: TDatetime): TDatetime;
begin
result := OldDatetime - 1/3;//1/3就是8个小时
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(DateTimeTostr(GetAdd8(Now)))
end;

[Cipherliu]

Now-1/3就行了

[大地精灵]

var
cur:TDateTime;
begin
Cur := Now - StrToTime('8:00:00');
Showmessage(DateTimeToStr(Cur));
end;

不关现在是什么时间都不会有问题，经过测试啦，呵呵

[大地精灵]

如果要日期的话就不Cur处理一下
StrToDate(DateToStr(Cur))

[Stack]

简单的加减丫， 这里是不是Delphi的板块啊

[hiflower]

uses DateUtils

var
NewTime:TDateTime;

NewTime:=IncHours(Now,-8);

[haynes]

谢了，各位

[haynes]

thanks

[fuyifan]

简单的加减为什么不行,Stack(公冶长) 你说说

[kingofghost]

学习 up

[ly_liuyang]

就是那么简单的

[Stack]

to fuyifan(程序执著者) ( ) 信誉：98
简单的加减为什么不行,Stack(公冶长) 你说说

===============================================
我没说加减不行阿， 你看看我怎么说的啊

[myadvice]

TO:楼主， chechy(简简单单的活) 大哥都发言了，你真够有脸面。

[wypepsi]

Function GetDateID(i:integer;date:string):String;
var
Year, Month, Day:Word;
StrYear,StrMonth,StrDay:String;
begin
if date='next' then DecodeDate(Now+1, Year, Month, Day);
if date='prior' then DecodeDate(Now-1, Year, Month, Day);
if date='current' then DecodeDate(Now, Year, Month, Day);
if date='GLWZ' then DecodeDate(Now-0.33, Year, Month, Day);

if Year<10 then StrYear:='0'+IntToStr(Year)
else StrYear:=IntToStr(Year);

if Month<10 then StrMonth:='0'+IntToStr(Month)
else StrMonth:=IntToStr(Month);

if Day<10 then StrDay:='0'+IntToStr(Day)
else StrDay:=IntToStr(Day);

case i of
0:Result:=StrYear+StrMonth+StrDay;
1:Result:=StrMonth+StrDay;
2:Result:=StrYear+'年'+StrMonth+'月'+StrDay+'日';
3:Result:=StrMonth+'月'+StrDay+'日';
4:Result:=StrDay+StrMonth;
end;
end;

我自己的函数 气象方面用的很多 肯定管用 自己试试