Aqui está um código VBA que você pode usar para obter a versão do sistema operacional:
Série DONUT PROJECT 2024
#If VBA7 Then
Private Declare PtrSafe Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
#Else
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
#End If
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Function GetWindowsVersion() As String
Dim osInfo As OSVERSIONINFO
osInfo.dwOSVersionInfoSize = Len(osInfo)
GetVersionEx osInfo
Dim version As String
Select Case osInfo.dwPlatformId
Case 1 ' Windows 95/98/Me
version = "Windows 9x"
Case 2 ' Windows NT/2000/XP/Vista/7/8/10
Select Case osInfo.dwMajorVersion
Case 5
If osInfo.dwMinorVersion = 0 Then
version = "Windows 2000"
ElseIf osInfo.dwMinorVersion = 1 Then
version = "Windows XP"
ElseIf osInfo.dwMinorVersion = 2 Then
version = "Windows Server 2003"
End If
Case 6
If osInfo.dwMinorVersion = 0 Then
version = "Windows Vista"
ElseIf osInfo.dwMinorVersion = 1 Then
version = "Windows 7"
ElseIf osInfo.dwMinorVersion = 2 Then
version = "Windows 8"
ElseIf osInfo.dwMinorVersion = 3 Then
version = "Windows 8.1"
Else
version = "Windows 10 or later"
End If
Case Else
version = "Windows NT"
End Select
End Select
GetWindowsVersion = version & " (Build " & osInfo.dwBuildNumber & ")"
End Function
Este código define uma função GetWindowsVersion que retorna a versão do sistema operacional Windows em que o Excel está sendo executado, juntamente com o número da versão e o número de compilação.
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário