我最近编写的一段代码,在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;
我怀疑是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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货