vfp 的系统时间

Question

set talk off
clea
srvname='\\server' &&srvName为服务器名称
servertime=getservertime(srvname)
messagebox(ttoc(servertime),0+64)
set talk on
return
function getservertime 
parameters servername
strexp='run net time '+servername+'> c:\srvtime.txt'
&strexp
Mresult=filetostr('c:\srvtime.txt')
Mctime=subs(Mresult,at('/',Mresult)-2,15)+':00'
Mtime=ctot(Mctime)
Msx=subs(Mresult,at('M',Mresult)-1,1)
if Msx='P' &&下午
Mtime=Mtime+12*60*60
endif
return Mtime
endfunc

Answer 1

办法是不错，但是要是即恰好你的机器上net这个程序没有了，还有什么办法？有没有Windows的API可以实现的?

Answer 2

如果后台是SQL的话就简单了
=SQLEXEC(con1,"select getdate() as serverdatetime") 
?serverdatetime