Format to Decrease "hour" to accomdate Central Tim

[dvhornor]

I am located in the Central time zone. One of our servers is located in the Eastern time zone. We receive exports with their time on it. I need help to take the hour portion of their time and decrease it by one hour - to reflect the Central time.

Dim MyTime
Dim TimeChangePlus1

MyTime = Format(Right(sInput, Len(sInput) - iLstPos), "hh:mm AMPM")
TimeChangePlus1 = Format("1:00", "hh:mm")
MyTime = MyTime - TimeChangePlus1

 

[Joe4]

Re: Format to Decrease "hour" to accomdate Central

In a query, this calculation will reduce the time by 1 hour:

CentralTime: [MyTable]![EasternTime]-(1/24)

 

[dvhornor]

Re: Format to Decrease "hour" to accomdate Central

Thank you. This worked. This will save many hours of trying to figure it out.