VFP 愛用者社區

[zfgg]

在终端机上，个人可以修改机器上时间，造成时间上的不一至。如果用服务器的系统时间，可以解决这个问题。在程序中的代码，如何取得服务器的系统时间？

[zfgg]

请哪位大师告诉我！

[garfield]

http://vfp.sunyear.com.tw/viewtopic.php?t=372&highlight=net+time

[panda737]

select getdate()

[foxy]

panda737的做法是對MS SQL Server來做的

[zlabsoft]

可參考以下:

LPARAMETER TCSERVER
LOCAL LCSERVER , LLRETVAL
LLRETVAL = .F.
IF VARTYPE(TCSERVER) = 'C' AND .NOT. EMPTY(TCSERVER)
LCSERVER = UPPER(ALLTRIM(TCSERVER))
DECLARE INTEGER NetRemoteTOD IN netapi32 STRING @ , INTEGER @
DECLARE RtlMoveMemory IN WIN32API AS CopyMemory STRING @ , INTEGER , INTEGER
DECLARE INTEGER SetSystemTime IN kernel32 STRING @
LCSERVER = STRCONV(STRCONV(TCSERVER,1),5) + CHR(0)
LNPTR = 0
LCTIMEOFDAY = REPLICATE(CHR(0),4
LCSYSTEMTIME = SPACE(0)

NRES = NETREMOTETOD(@LCSERVER,@LNPTR)
LOCAL LNYEAR , LNMONTH , LNDAYOFWEEK , LNDAY , LNHOUR , LNMINUTE , LNSECOND , ;
LNMILLSECOND
IF NRES = 0
= COPYMEMORY(@LCTIMEOFDAY,@LNPTR,4
LNYEAR = DWORDTONUM(SUBSTR(LCTIMEOFDAY,41,4))
LNMONTH = DWORDTONUM(SUBSTR(LCTIMEOFDAY,37,4))
LNDAYOFWEEK = DWORDTONUM(SUBSTR(LCTIMEOFDAY,45,4))
LNDAY = DWORDTONUM(SUBSTR(LCTIMEOFDAY,33,4))
LNHOUR = DWORDTONUM(SUBSTR(LCTIMEOFDAY,9,4))
LNMINUTE = DWORDTONUM(SUBSTR(LCTIMEOFDAY,13,4))
LNSECOND = DWORDTONUM(SUBSTR(LCTIMEOFDAY,17,4))
LCSYSTEMTIME = ;
NUMTOWORD(LNYEAR) + NUMTOWORD(LNMONTH) + NUMTOWORD(LNDAYOFWEEK) + NUMTOWORD(LNDAY) + ;
NUMTOWORD(LNHOUR) + NUMTOWORD(LNMINUTE) + NUMTOWORD(LNSECOND) + ;
NUMTOWORD(0)
NRES = SETSYSTEMTIME(@LCSYSTEMTIME)
LLRETVAL = NRES <> 0
ELSE
* ??? UNKNOWN COMMAND WORD: [$A8H]
LLRETVAL = .F.
ENDIF
ENDIF
RETURN LLRETVAL

PROCEDURE DWordtoNum
LPARAMETER TCDWORD
LOCAL LN0 , LN1 , LN2 , LN3
LN0 = ASC(SUBSTR(TCDWORD,1,1))
LN1 = ASC(SUBSTR(TCDWORD,2,1)) * 256
LN2 = ASC(SUBSTR(TCDWORD,3,1)) * 65536
LN3 = ASC(SUBSTR(TCDWORD,4,1)) * 16777216
RETURN LN3 + LN2 + LN1 + LN0
ENDPROC
*------
PROCEDURE NumtoWord
LPARAMETER TNNUM
LCRESULT = CHR(0) + CHR(0)
IF TNNUM < 32767
LCRESULT = CHR(MOD(TNNUM,256)) + CHR(INT(TNNUM / 256))
ELSE
ENDIF
RETURN LCRESULT
ENDPROC
*------*