Odtnhj

How to reflect a specific UTC in a VB 6.0 Label in a form. this program will be used by multiple computer with different desktop time so i want 1 UTC to be reflected on that Label.

you see, i'm creating a employee monitoring system for our office, this will be accessed by different computers of different employees in our office that has different desktop time depending on their client but i want my program to show Philippine time only when they're logging in to the monitoring system.

You could do something like this:

Private Sub Timer1_Timer()
 Dim datUTC As Date

 datUTC = Time_LocalToUTC(Now)

 Me.lblCurrentTimeActual.Caption = Now
 Me.lblUTCTimeActual.Caption = CStr(datUTC)
 Me.lblPhilippinesTimeActual.Caption = CStr(DateAdd("h", 8, datUTC))


End Sub

Public Function Time_LocalToUTC(ByVal the_date As Date) As Date
On Error GoTo ErrorTrap
 ' Create a new instance of the WScript Shell
 Dim oWshshell As Variant
 Dim UTCOffset As Long

 Set oWshshell = CreateObject("WScript.Shell")

 ' Copy the Universal Time clock offset from the registry this does account for daylight savings
 UTCOffset = oWshshell.RegRead("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTimeZoneInformationActiveTimeBias")

 'Take the present system time and add in the UTC offset from the registry. The 1440 is produced
 'by taking 60 * 24 since the units for a day have 1 equaling a day
 Time_LocalToUTC = the_date + (UTCOffset / 1440)
GoTo EndCleanup
ErrorTrap:
 MsgBox "Error: " & Err.Description, vbOKCancel, "Error Getting UTC Time"

EndCleanup:
 Set oWshshell = Nothing
End Function[enter image description here][1]