VFP 愛用者社區

[KKKLYNN]

server系統時間如何取得?免得各工作站自創時間
目前完全使用vfp撰寫
謝謝!

[goto-dream]

這各你稍微找一下,這各狀況已經有人討論過好幾次了.

[KKKLYNN]

是討論過許多次!但都沒有結論!(此園地或是紅狐)是否有如同date()般的函數輕易取得系統時間.
例如serverdate()等等,無論是vfp或win api 都好,只要能使用函數直接帶出日期時間,如此於程式寫作上就方便許多.希望頂級高手們協助

[kib48660]

**抓取主機的日期及時間**
FUNCTION settime1
aa=SYS(5)
BB=0
IF LEFT(aa,2)='\\'
FOR i=LEN(aa) TO 1 STEP -1
IF SUBSTR(aa,i,1)='\'
BB=i
i=0
ENDIF
ENDFOR
IF BB<>0
CC=LEFT(aa,BB-1)
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER , STRING , STRING , STRING , STRING , ;
INTEGER
= ShellExecute(0,0,'NET',' time &CC /set /yes',0,0)
ENDIF
ENDIF
ENDFUNC

[BIN]

紅狐的這一篇不是有解答了嗎??
http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=20166

[KKKLYNN]

哪裡是使用dos的方式(net)當然是可以
但往後久遠還有dos方式存在?或是其它mis不了解(水準不一或是來來往往),哪公司的資源或利益不就受損了
所以我才會想以純wimdow來做,簡單又明瞭(標準化)!謝謝啦

[goto-dream]

如何在VFP下如何取得Server时间

************************************************************
*以下代码获得服务器日期和时间
************************************************************
Procedure Get_Date
If SqlExec(Sql_Connect,"Select GetDate() As S_Date" ,"CurServer")<0
=Messagebox('连接SQL SERVER服务器出错,请联系系统管理员!',16,'错误信息')
Return .F.
Endif
Select CurServer
cS_Date=Substr(Alltrim(Ttoc(S_Date)),1,4)+"-"+;
SUBSTR(Alltrim(Ttoc(S_Date)),6,2)+"-"+;
SUBSTR(Alltrim(Ttoc(S_Date)),9,2)
cS_Time=Substr(Alltrim(Ttoc(S_Date)),12,2)+":"+;
SUBSTR(Alltrim(Ttoc(S_Date)),15,2)+":"+;
SUBSTR(Alltrim(Ttoc(S_Date)),18,2)
Use In CurServer
Return

以上代码即可，其中Sql_Connect为连接句柄。


by *
**********
#DEFINE _SERVER "svrsbdell1"
#DEFINE _PATH "storage"

function ServerTime( cServerName, cPath )

local cUNC,cTmpFile,tServerTime

if empty( cServerName )
cServerName = _SERVER
endif
if empty( cPath )
cPath = _PATH
endif

cTmpFile = '!'+right(SYS(2015),7)+'.tmp'

cUNC = addbs('\\'+cServerName)

if left(cPath,1) = '\'
cPath = subs(cPath,2)
endif

cUNC = addbs(cUNC+cPath)+cTmpFile

set alternate to ( cUNC )
?
set alternate to

tServerTime = FDATE( cUNC, 1 )

delete file ( cUNC )

return tServerTime