| « | August 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | | | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:431859
建立时间:2005年5月12日 |
| |
|
 [VFP与SQL]调整本机日期时间与服务器日期时间一致
原创空间, 读书笔记, 心得体会, 事件记录, 日后处理, 软件技术, 电脑与网络
老瓷 发表于 2005/12/28 20:14:02 |
|
*!*调整本机日期时间与服务器日期时间一致( YYYY-MM-DD HH:MM:SS.FFF )*!*以下cSqlStr及nCon为SQL查询串及连接句柄cSqlStr="Select SysTime=Convert(Char,GetDate(),121)" &&取服务器本地当前日期时间(已转换为字符型)=SQLEXEC(nCon,cSqlStr,"SysDateTime")SELECT SysDateTimelcDateTime=ALLTRIM(SysDateTime.SysTime)USE in "SysDateTime"nYear=VAL(SUBSTR(lcDateTime,1,4)) &&取当前日期-年nMonth=VAL(SUBSTR(lcDateTime,6,2)) &&取当前日期-月nWeek=DOW(CTOT(lcdateTime))-1 &&取当前日期-星期, 实际上此值可为1-7任意间的任意数nDay=VAL(SUBSTR(lcDateTime,9,2)) &&取当前日期-日nHours=VAL(SUBSTR(lcDateTime,12,2)) &&取当前时间-时nMinutes=VAL(SUBSTR(lcDateTime,15,2)) &&取当前时间-分nSeconds=VAL(SUBSTR(lcDateTime,18,2)) &&取当前时间-秒nMSeconds=VAL(RIGHT(lcDateTime,3)) &&取当前时间-毫秒*!*转换十进制数字为二进制字符(高低位互换、压缩)lcDateBuf=Dec2Binstr(nYear)+Dec2Binstr(nMonth)+Dec2Binstr(nWeek)+Dec2Binstr(nDAY)lcDateBuf=lcDateBuf+Dec2Binstr(nHours)+Dec2Binstr(nMinutes)+Dec2Binstr(nSeconds)+Dec2Binstr(nMSeconds)*!*设置本机当地时间DECLARE SHORT SetLocalTime IN win32api STRING SystemTime=SetLocalTime(lcDateBuf) &&设置本机本地日期时间*!*将十进制字符转换为二进制FUNCTION Dec2BinstrPARAMETERS DecStrPRIVATE BinStrBinStr=CHR(MOD(DecStr,256))+CHR(DecStr/256)RETURN BinStr |
|
» 1 »
|