Get Bios Date

This code will tell you the computer Bios date.
NOTE: You can use this code only in Windows 95/98. Using this code in Windows 2000/NT will cause your application to crash.

Module Code

Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal MemAddress As Long, var As Byte)

Form Code

Private Function GetBIOSDate() As String
  Dim p As Byte, MemAddr As Long, sBios As String
  Dim i As Integer
  MemAddr = &HFFFF5
  For i = 0 To 7
      Call GetMem1(MemAddr + i, p)
      sBios = sBios & Chr$(p)
  Next i
  GetBIOSDate = sBios
End Function

Private Sub Form_Load()
    MsgBox "The Bios date: " & GetBIOSDate
End Sub

Go Back