Other GetOSversion

[DKCERT]

Made this for a test tool. Nothing much but thought I would share it...

Sub GetOSversion As String
    ' http://developer.android.com/guide/topics/manifest/uses-sdk-element.html#ApiLevels
    ' http://en.wikipedia.org/wiki/Android_version_history
    Dim p As Phone
    Select p.SdkVersion
        Case 19 : Return "Android 4.4, KitKat (API level 19)"
        Case 18 : Return "Android 4.3, Jelly Bean MR2 (API level 18)"
        Case 17 : Return "Android 4.2/4.2.2, Jelly Bean MR1 (API level 17)"
        Case 16 : Return "Android 4.1/4.1.1, Jelly Bean (API level 16)"
        Case 15 : Return "Android 4.0.3/4.0.4, Ice Cream Sandwich MR1 (API level 15)"
        Case 14 : Return "Android 4.0/4.0.2, Ice Cream Sandwich (API level 14)"
        Case 13 : Return "Android 3.2, Honeycomb MR2 (API level 13)"
        Case 12 : Return "Android 3.1.x, Honeycomb MR1 (API level 12)"
        Case 11 : Return "Android 3.0.x, Honeycomb (API level 11)"
        Case 10 : Return "Android 2.3.3/2.3.4, Gingerbread MR1 (API level 10)"
        Case  9 : Return "Android 2.3/2.3.1/2.3.2, Gingerbread (API level 9)"
        Case  8 : Return "Android 2.2.x, Froyo (API level 8)"
        Case  7 : Return "Android 2.1.x, Eclair MR1 (API level 7)"
        Case  6 : Return "Android 2.0.1, Eclair_0_1 (API level 6)"
        Case  5 : Return "Android 2.0, Eclair (API level 5)"
        Case  4 : Return "Android 1.6, Donut (API level 4)"
        Case  3 : Return "Android 1.5, Cupcake (API level 3)"
        Case  2 : Return "Android 1.1, Base_1_1 (API level 2)"
        Case  1 : Return "Android 1.0, Base (API level 1)"
    End Select
End Sub

 

[rbsoft]

Useful - thanks.

Rolf