vb点虐 时间同步的简单介绍

vb怎么获取北京时间

VB里有好多时间函数,使用方法和excel类似,直接调用就好了,比如now显示当前时间,today表示当前日期,又如year年,month月,day日,hour小时(24小时制),minute分,second秒;

成都创新互联公司服务项目包括二连浩特网站建设、二连浩特网站制作、二连浩特网页制作以及二连浩特网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,二连浩特网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到二连浩特省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

另外要想获得想要的时间格式,你需要一个格式函数Formart(),表示为formart(date,formart of date),比如我想获得今天的日期并且用这种格式2015-08-31,那么函数是formart(now,"ddddd"),这里的ddddd就是格式符,想要获得全部的格式符可以百度“formart()函数使用“,我这里就不引用了,希望以上内容对你有帮助

用VB编写局域网时间同步程序

转贴:

获得局域网内指定计算机的时间

我记得有网友问过如何获得局域网上服务器或其它计算机的时间,确实在一个应用系统中保持各客户端的时间一致是非常重要的,我们可 以在客户端程序中通过NetRemoteTOD函数获得局域网内指定计算机的时间(例如以该机时间作为大家时间同步的基准),然 后再以此时间设置本机时间,就可以保持各客户端的时间一致性。下面的代码就是1个通过指定计算机网络名或IP地址获得该机时间的 VB程序:

Option Explicit

'通过NetBIOS的netapi32.dll中的API函数NetRemoteTOD

'获得局域网内指定计算机的时间

'在FORM1中添加1个TEXT1和Command1控件

'将下列代码剪贴到代码窗体即可

Private Const NERR_SUCCESS = 0

Private Type TIME_OF_DAY_INFO

tod_elapsedt As Long

tod_msecs As Long

tod_hours As Long

tod_mins As Long

tod_secs As Long

tod_hunds As Long

tod_timezone As Long

tod_tinterval As Long

tod_day As Long

tod_month As Long

tod_year As Long

tod_weekday As Long

End Type

Private Declare Function NetRemoteTOD Lib "netapi32" _

(UncServerName As Byte, BufferPtr As Long) As Long

Private Declare Function NetApiBufferFree Lib "netapi32" _

(ByVal lpBuffer As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

(pTo As Any, uFrom As Any, ByVal lSize As Long)

Private Sub Command1_Click()

Dim CPT_Date As TIME_OF_DAY_INFO

Dim Str_Tmp As String

Dim N_Data As Date

CPT_Date = GetRemoteTOD(Text1.Text)

N_Data = DateAdd("s", CPT_Date.tod_elapsedt, #1/1/1970#) '将获得的秒数转换为当前GMT(UTC)时间

N_Data = DateAdd("n", -CPT_Date.tod_timezone, N_Data) '再转化为本地时间(北京时间)

If Text1.Text = "" Then

Str_Tmp = "本机" '若Text1.Text为空,则获得本机时间

Else

Str_Tmp = Text1.Text

End If

Str_Tmp = Str_Tmp "计算机当前时间为:" N_Data

MsgBox Str_Tmp

End Sub

'获得局域网内指定计算机的时间

'CPT_Name为计算机名字,也可以为IP地址,若为空则为本机时间

Private Function GetRemoteTOD(ByVal CPT_Name As String) As TIME_OF_DAY_INFO

Dim bCPT_Name() As Byte

Dim tod As TIME_OF_DAY_INFO

Dim bufptr As Long

CPT_Name = Trim(CPT_Name)

If CPT_Name vbNullChar And CPT_Name "" Then '计算机名不为空

If Left$(CPT_Name, 2) "\" Then

CPT_Name = "\" CPT_Name '计算机名前加2条\

End If

End If

bCPT_Name = CPT_Name vbNullChar

'获得指定计算机的日期时间

If NetRemoteTOD(bCPT_Name(0), bufptr) = NERR_SUCCESS Then

'复制buffer的TIME_OF_DAY_INFO结构数据到tod

CopyMemory tod, ByVal bufptr, LenB(tod)

End If

Call NetApiBufferFree(bufptr) '释放buffer内存

GetRemoteTOD = tod

End Function

vb与internet同步系统时间

用 Winsock 控件,使你的系统时间与格林尼汉标准时间同步。

vb点虐 同步对方电脑时间

Shell("cmd.exe /c net time \\server /set /y", vbHide)

'其中server表示服务器


网页标题:vb点虐 时间同步的简单介绍
URL标题:http://pwwzsj.com/article/ddjgipi.html