我最近编写的一段代码,在win98和2000下都可以正常的运行,但是在win95下就不能正常运行了,但是也不报错,不知道问题出在哪里,请指教。
我怀疑是win95不支持DecodeDate过程,但又没找到这方面的资料。请知道的帮个忙。谢谢!!!今天正好中秋节,在此祝各位中秋愉快,生活圆圆满满!!!代码如下:
-----------------------
{本过程用来判断日期是否已经是第二天,如果是第二天,刷新数据}
procedure tmGetTimeTimer(Sender: TObject);
var
  {从当前日期中分离出来的年月日}
  wNowDay,wNowYear,wNowMonth:Word;
begin}
  {从当前日期中分离出年月日}
  DecodeDate(Now,wNowYear,wNowMonth,wNowDay);  {日期比较}
  {比较前一次获取数据的日期和当前日期,如果不同(已经过了一天),刷新数据}
  if wGetDataDate <> wNowDay then
  begin
    {将获取数据的日期设定为当前日期}
    wGetDataDate:=wNowDay;
    {刷新数据}
    RefreshData;
  end;
end;

解决方案 »

  1.   

    没看出来哪里不支持,若Win95上能装个Delphi,单步跟踪试试,或者在你以为有可能出问题的地方设几个ShowMessage显示处理过的值再编译再去运行看看,若再不行再换Word为Integer;Now中的一个Api在Win95也支持,帮你顶!
      

  2.   

    直接用日期相减不就行了  if wGetDataDate-date()>0 then  //(已经过了一天)