I have a marco that checks to see if the correct version of a template is being used. This is done based on the date and time stamp of the template. It work great within my time zone however in Europe when the time is +7 hr the marco fails since the time stamp is adjusted to local time. Is their a way to do the function below based on Zulu Time rather than local time?
Public Function fileVersion(strFullFilePath As String)
Dim myVersion As String
On Error Resume Next
myVersion = ""
myVersion = Year(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Month(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Day(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Hour(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Minute(FileDateTime(strFullFilePath))
fileVersion = myVersion
End Function
Public Function fileVersion(strFullFilePath As String)
Dim myVersion As String
On Error Resume Next
myVersion = ""
myVersion = Year(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Month(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Day(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Hour(FileDateTime(strFullFilePath))
myVersion = myVersion & "." & Minute(FileDateTime(strFullFilePath))
fileVersion = myVersion
End Function