Bem amigos... nesta parte de uma função contida em um módulo
Function TimezoneGMT1
Dim TZI As TIME_ZONE_INFORMATION
Dim DST As TIME_ZONE
Dim StandardName As String
DST = GetTimeZoneInformation(TZI)
StandardName = IntArrayToString(TZI.StandardName)
Debug.Print StandardName
MsgBox StardadName
Chamo esta função no Form...Atraves de um botão e se eu colocar uma MSgBox no Modulo na hora do click do Botão..
Aparece a MSG com o valor que eu quero
O valor contido no StardardName é: Horário Oficial do Brasil
Preciso levar este valor para uma caixa texto no form
Comon fazer?
Function TimezoneGMT1
Dim TZI As TIME_ZONE_INFORMATION
Dim DST As TIME_ZONE
Dim StandardName As String
DST = GetTimeZoneInformation(TZI)
StandardName = IntArrayToString(TZI.StandardName)
Debug.Print StandardName
MsgBox StardadName
Chamo esta função no Form...Atraves de um botão e se eu colocar uma MSgBox no Modulo na hora do click do Botão..
Aparece a MSG com o valor que eu quero
O valor contido no StardardName é: Horário Oficial do Brasil
Preciso levar este valor para uma caixa texto no form
Comon fazer?