感谢您使用微软产品。您可以使用WMI的Win32_CurrentTime对象获得指定计算机的时间信息,可以获得本地时间和GMT时间,如下例:Private Sub Command1_Click() WQL = "Select * From Win32_CurrentTime" 'Set obj = GetObject("winmgmts:").ExecQuery(WQL) Set System = GetObject("winmgmts:{impersonationLevel=impersonate}!//COMPUTERNAME")Set objinst = System.ExecQuery(WQL) For Each obj In objinst Debug.Print obj.Month Debug.Print obj.Day Debug.Print obj.Hour Debug.Print obj.Minute Next End Sub详细信息请参考: Win32_CurrentTime http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_currenttime.asp - 微软全球技术中心 VB技术支持本帖子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。 为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。 ======================
For Each obj In objinst Debug.Print obj.Month Debug.Print obj.Day Debug.Print obj.Hour Debug.Print obj.Minute Next End Sub详细信息请参考:
Win32_CurrentTime
http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_currenttime.asp
- 微软全球技术中心 VB技术支持本帖子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
======================