Hello friends, all relevant materials for this topic/tutorial can be downloaded from here. Please support us by subscribing to our channel and sharing them with your friends.
If you have any questions/feedback/tutorial request, please you can email me directly vbaa2z.team@gmail.com or comment on YouTube Video (blog comments are not actively monitored).
https://www.youtube.com/watch?v=kAe-uWJoaRw&lc
Option Compare Database Option Explicit Private Const TIME_ZONE_ID_STANDARD As Long = 1 Private Const TIME_ZONE_ID_DAYLIGHT& = 2 Dim dteStart As Date, dteFinish As Date Dim dteStopped As Date, dteElapsed As Date Dim boolStopPressed As Boolean, boolResetPressed As Boolean Private Type SYSTEMTIME wyear As Integer wmonth As Integer wdayofweek As Integer whour As Integer wminute As Integer wsecond As Integer wmilliseconds As Integer End Type Private Type TIME_ZONE_INFORMATION bias As Long Standardname(1 To 63) As Byte standarddate As SYSTEMTIME standardbias As Long Daylightname(0 To 63) As Byte daylightdate As SYSTEMTIME daylightbias As Long End Type Private Declare Function GetTimeZoneInformation Lib "kernel32" (IpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long Public resetMe As Boolean Public myVal As Variant Public Function mytime() As String '----------------------------- 'Thanks for downloading the code. 'Please visit our channel for a quick explainer on how to use this code. 'Feel free to update the code as per your need and also share with your friends. 'Download free codes from http://vbaa2z.blogspot.com 'Support our channel: youtube.com/vbaa2z 'Author: L Pamai (vbaa2z.team@gmail.com) '----------------------------- Dim tzi As TIME_ZONE_INFORMATION Dim gmt As Date Dim dwbias As Long Dim tmp As String Select Case GetTimeZoneInformation(tzi) Case TIME_ZONE_ID_DAYLIGHT dwbias = tzi.bias + tzi.daylightbias Case Else dwbias = tzi.bias + tzi.standardbias End Select gmt = DateAdd("n", dwbias, Now + TimeSerial(5, 30, 0)) tmp = Format$(gmt, "MM/DD/YYYY HH:MM:SS AM/PM") mytime = tmp End Function
