Don hat einen Computer, der über sein Büronetzwerk auf mehrere verschiedene Server zugreifen kann. Bei diesen Servern sind die Uhren nicht synchronisiert, und Don fragte sich, ob es in VBA eine Möglichkeit gibt, die zeitliche Diskrepanz zwischen einem bestimmten Server und seinem Computer zu bestimmen.

Um die Zeitdiskrepanz herauszufinden, müssen Sie zwei Mal herausfinden – eine auf Ihrem Computer und eine auf dem Server – und sie dann vergleichen. Es ist einfach genug, die Zeit auf Ihrem eigenen Computer zu erfassen. Verwenden Sie einfach die Zeitfunktion in VBA. Es ist schwieriger, die Zeit auf einem anderen Computer abzurufen, da es keine integrierte Funktion gibt, die diese Aufgabe erleichtert.

Sie können jedoch einen API-Funktionsaufruf verwenden, um die Zeit auf einem Remote-Server zu bestimmen. Wie genau Sie einen solchen Funktionsaufruf entwickeln würden, würde den Rahmen dieses Tipps sprengen, aber Sie können online ein ziemlich gutes Tutorial finden, um die Aufgabe zu erfüllen:

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

Schauen Sie sich die Seite an und Sie können den Code an Ihre Bedürfnisse anpassen.

Die Funktion fGetServerTime gibt eine Zeichenfolge zurück, die das vollständige Datum und die Uhrzeit enthält. Sie können dann die TimeValue-Funktion in Ihrem Makro verwenden, um diese Zeichenfolge in einen nativen Excel-Zeitwert zu konvertieren. Nach der Konvertierung können Sie den Wert mit der internen Systemzeit vergleichen, um die erforderliche Diskrepanz zu ermitteln.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3258) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Zeitdifferenzen zwischen zwei Maschinen berechnen.