(ByVal N As Long) #Else Declare Sub MessageBeep Lib "User" (ByVal N As Integer) #End If ' 64-bit Declare statement example: Declare PtrSafe Function GetActiveWindow Lib "User32" () As LongPtr ' Conditional Compilation Example #If Vba7 Then ' Code is running in 32-bit or 64-bit ...
cast-function-name この形式のデフォルト値は、特殊タイプやデータ・タイプ、BINARY、 VARBINARY、BLOB、CLOB、DBCLOB、DATE、TIME または TIMESTAMP として定義された列でのみ使用することができます。 次の表は、これらのキャスト関数の許可されている使用法を示します。