请各位大侠帮助小弟一下，我不知道在VFP中如何用程序改变当前日期，请告知方法，不胜感激

clear
local cbuffer,ttime,nyear,nmonth,ndayofweek,nday,;
nhour,nminute,nsecond,nmilliseconds,nresult
set date ansi
set century on
set hours to 24
nyear=2001
nmonth=1
ndayofweek=dow(ctod("2001.1.1"))-1
nday=1
ttime=time()
nhour=val(substr(ttime,1,2))
nminute=val(substr(ttime,1,2))
nsecond=val(substr(ttime,7,2))
nmilliseconds=0
cbuffer=h2str(nyear)+h2str(nmonth)+h2str(ndayofweek)+h2str(nday)+;
h2str(nhour)+h2str(nminute)+h2str(nsecond)+h2str(nmilliseconds)
declare long setlocaltime in kernel32 string lpsystemtime
nresult=setlocaltime(cbuffer)
if nresult=0
=messagebox("无法完成日期时间设置")
endif
clear dlls
function h2str
parameters zhsz
private fhz
fhz=chr(zhsz%256)+chr(zhsz/256)
return fhz
endfunc

老弟谢了，但是系统提示无类定义，我用的是VF6，我主要是想实现用程序来设定计算机软件系统的日期和时间，上面的代码我通过查阅相关资料，也看懂了些，但不是全懂，还请老兄再次赐教，不胜感激。

[此贴子已经被作者于2006-4-4 10:40:27编辑过]