[分享] 自动同步服务器和客户端时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 自动同步服务器和客户端时间

共有36697人关注过本帖树形打印复制链接主题：[分享] 自动同步服务器和客户端时间

lzzhx

小大 41楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2016/1/22 23:02:00 [只看该作者]

学习一下

time

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：142 积分：1649 威望：0 精华：0 注册：2014/5/3 14:52:00

Post By：2016/1/23 8:37:00 [只看该作者]

了解一下。

limit_1982

小大 43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1809 威望：0 精华：0 注册：2015/12/5 19:21:00

Post By：2016/1/29 11:13:00 [只看该作者]

下载

hjcslr

小大 44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00

Post By：2016/1/29 12:24:00 [只看该作者]

1234

gua12gua

小大 45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：450 积分：4521 威望：0 精华：0 注册：2013/12/17 12:55:00

Post By：2016/1/29 13:22:00 [只看该作者]

ddddddddddd

xietan417

小大 46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00

Post By：2016/2/1 10:04:00 [只看该作者]

顶一个

xietan417

小大 47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00

Post By：2016/2/1 10:25:00 [只看该作者]

Dim cmd As New SQLCommand

Dim dt As Datetime

cmd.ConnectionName = "数据源"

cmd.CommandText = "select getdate()"

dt =cmd.ExecuteScalar()

Dim tp As TimeSpan

tp=dt-Date.now

Dim ttp As Single

ttp=tp.TotalSeconds

If ttp>5 Then

today=dt.Date

timeofday = dt.hour & ":" & dt.minute & ":" & dt.second

End If

MessageBox.Show("您电脑的时间和服务器时间相差了" & format(ttp,"0.000") & "秒" & vbcrlf &"程序已经自动帮您与服务器时间同步了!" & vbcrlf &"请按确定键后退出提示","提示",MessageBoxButtons.ok,MessageBoxIcon.Warning)

[此贴子已经被作者于2016/2/1 10:39:12编辑过]