Don的计算机可以通过其办公室网络访问多个不同的服务器。这些服务器的时钟没有同步,Don想知道VBA中是否有一种方法可以确定给定服务器与其计算机之间的时间差异。

为了找出时间差异,您需要找出两次-在计算机上一次,在服务器上一次-然后进行比较。在自己的机器上花费时间很容易;只需在VBA中使用时间功能即可。在另一台计算机上花费时间比较困难,因为没有内置功能可以简化此任务。

但是,您可以使用API​​函数调用来确定远程服务器上的时间。确切地讲,如何开发这样的函数调用超出了本技巧的范围,但是您可以在线找到一个很好的教程来完成该任务:

http://www.mvps.org/access/api/api0039.htm

看一下页面,您可以修改代码以适合您的需求。

fGetServerTime函数返回一个包含完整日期和时间的字符串。然后,您可以在宏中使用TimeValue函数将此字符串转换为本地Excel时间值。转换后,您可以将值与内部系统时间进行比较,以确定所需的差异。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(3258)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: