by Mohamed Muhuseen (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 8th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This is program to know the GMT time and system time
Private Type Fmate
wYear As Integer
wMonth As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
End Type
Private Sub Timer1_Timer()
Dim GMTime As Fmate
Dim GMTTm As String
Dim GMTDt As String
GetSystemTime GMTime
GMTDt = Format(GMTime.wDay & " " & GMTime.wMonth & " " & GMTime.wYear)
GMTTm = Format(GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond)
'You have to make Labels (lblGT, lblGD, lblST, & lblSD)
lblGT.Caption = GMTTm
lblGD.Caption = GMTDt
lblST.Caption = Time
lblSD.Caption = Date
End Sub