other1

Get Bios Date

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