The following example retrieves and displays the user date currently set in Microsoft Dynamics GP.
Private Sub UserDate_Click() Dim UserInfoObj As UserInfo Dim UserDate As Date 'Get the UserInfo object Set UserInfoObj = VbaGlobal.UserInfoGet() 'Retrieve and display the user date UserDate = UserInfoObj.UserDate MsgBox "Current date is: " + Str(UserDate) End Sub