主题：[分享]【瓜娃子打酱油系列】【界面模板第一季.附项目文件】

以下代码是程序启动时,自动同步客户端和服务器的时间.

---

以下内容只有回复后才可以浏览
Dim cmd As New SQLCommand Dim dt As Datetime cmd.C 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 MessageBox.Show("您电脑的时间和服务器时间相差了"& format(ttp,"0.000") &"秒" & vbcrlf &"程序已经自动帮您与服务器时间同步了!" _ & vbcrlf &"请按确定键后退出提示!","提示",MessageBoxButtons.ok,MessageBoxIcon.Warning)