VBA for 64-bit and 32-bit

**yawnzzzz** · 08-01-2010, 04:24 PM

Hi,

Below is code that works on 64-bit. I know by switching the LongLong's to Long and removing PtrSafe it works on 32-bit, but I'm wondering how to write this to work on both?

Option Explicit
Private mlngStart As LongLong
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As LongLong


Public Sub StartTimer()
       mlngStart = GetTickCount
End Sub

Public Function EndTimer() As LongLong
       EndTimer = (GetTickCount - mlngStart)
End Function

**dominicb** · 08-01-2010, 04:55 PM

Good evening yawnzzzz

Not tested, nor can I test it as I don't have Excel 2010 however I think you're going to need two versions of the macro: one for 32 bit and one for 64 bit. You will need to read the Application.Version value to see what the user is running and run the appropriate version.

HTH

DominicB

**yawnzzzz** · 08-02-2010, 08:23 AM

From what I've gathered, this should work:

Option Explicit
#If VBA7 Then
Private mlngStart As LongPtr
#Else
Private mlngStart As Long
#End If

#If VBA7 Then
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As LongPtr
#Else
Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If


Public Sub StartTimer()
       mlngStart = GetTickCount
End Sub

But I'm not sure about the correct syntax for this:

Public Function EndTimer() As LongPtr
       EndTimer = (GetTickCount - mlngStart)
End Function

**yawnzzzz** · 08-02-2010, 08:54 AM

I just surrounded it like the above, and it appears to work. I thought there might be a simpler solution though.

#If VBA7 Then
IfPublic Function EndTimer() As LongPtr
       EndTimer = (GetTickCount - mlngStart)
End Function
#Else
IfPublic Function EndTimer() As Long
       EndTimer = (GetTickCount - mlngStart)
End Function
#End