Ошибка при выполнении

[Camelot_2012]

'
' Распознавание образов с обучением для Microsoft Excel
'
Option Explicit ' Запрет использования недекларированных переменных
Option Base 1   ' Нумерация элементов массивов с 1
'
' Интерфейс к функциям DLL
'
Private Declare Function CDA Lib "PRT_dll.dll" (ByRef Z As Double, ByVal N As Long, ByVal K As Long, ByRef L As Long, ByVal G As Long, ByRef H As Long, ByRef P As Double, ByRef C As Double) As Long
Private Declare Function CDAClass Lib "PRT_dll.dll" (ByRef X As Double, ByRef W As Double, ByRef U As Double, ByVal K As Long, ByVal G As Long, ByRef C As Long) As Long
Private Declare Function FDA Lib "PRT_dll.dll" (ByRef Z As Double, ByVal N As Long, ByVal K As Long, ByRef L As Long, ByVal G As Long, ByRef H As Long, ByRef P As Double) As Long
Private Declare Function FDAClass Lib "PRT_dll.dll" (ByRef X As Double, ByRef W As Double, ByVal K As Long, ByVal G As Long, ByRef C As Long, ByRef P As Double) As Long
Private Declare Function LDA Lib "PRT_dll.dll" (ByRef Z As Double, ByVal N As Long, ByVal K As Long, ByRef L As Long, ByVal G As Long, ByRef H As Long, ByRef P As Double, ByRef V As Double, ByRef C As Double) As Long
Private Declare Function LDAClass Lib "PRT_dll.dll" (ByRef X As Double, ByRef U As Double, ByRef D As Double, ByRef V As Double, ByVal K As Long, ByVal G As Long, ByRef C As Long, ByRef P As Double) As Long
Private Declare Function LinearRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef CV As Double, ByRef HC As Double, ByRef VC As Double) As Long
Private Declare Function LogisticRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef S As Long, ByRef D As Double) As Long
Private Declare Function ProbitRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef S As Long, ByRef D As Double) As Long
Private Declare Function PoissonRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef S As Long, ByRef D As Double) As Long
Private Declare Function Solves Lib "PRT_dll.dll" (ByRef Z As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long) As Long
Private Declare Function NormalDistribution Lib "Distr_dll.dll" (ByVal X As Double) As Double
Private Declare Function ChiSquareDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal C As Double) As Double
Private Declare Function FDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal L As Double, ByVal C As Double) As Double
Private Declare Function TDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal C As Double) As Double
Private Declare Function InverseFDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal L As Double, ByVal C As Double) As Double

[Camelot_2012]

windows x64 excell 2010

[Camelot_2012]

compile error: the code in this project must be updated for use on 64-bit systems. please review and update declare statements and then mark them with the ptrsafe attribute.

[Camelot_2012]

я сделал, так

Private Declare PtrSafe Function CDA Lib "PRT_dll.dll" (ByRef Z As Double, ByVal N As Long, ByVal K As Long, ByRef L As Long, ByVal G As Long, ByRef H As Long, ByRef P As Double, ByRef C As Double) As Long
Private Declare PtrSafe Function CDAClass Lib "PRT_dll.dll" (ByRef X As Double, ByRef W As Double, ByRef U As Double, ByVal K As Long, ByVal G As Long, ByRef C As Long) As Long
Private Declare PtrSafe Function FDA Lib "PRT_dll.dll" (ByRef Z As Double, ByVal N As Long, ByVal K As Long, ByRef L As Long, ByVal G As Long, ByRef H As Long, ByRef P As Double) As Long
Private Declare PtrSafe Function FDAClass Lib "PRT_dll.dll" (ByRef X As Double, ByRef W As Double, ByVal K As Long, ByVal G As Long, ByRef C As Long, ByRef P As Double) As Long
Private Declare PtrSafe Function LDA Lib "PRT_dll.dll" (ByRef Z As Double, ByVal N As Long, ByVal K As Long, ByRef L As Long, ByVal G As Long, ByRef H As Long, ByRef P As Double, ByRef V As Double, ByRef C As Double) As Long
Private Declare PtrSafe Function LDAClass Lib "PRT_dll.dll" (ByRef X As Double, ByRef U As Double, ByRef D As Double, ByRef V As Double, ByVal K As Long, ByVal G As Long, ByRef C As Long, ByRef P As Double) As Long
Private Declare PtrSafe Function LinearRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef CV As Double, ByRef HC As Double, ByRef VC As Double) As Long
Private Declare PtrSafe Function LogisticRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef S As Long, ByRef D As Double) As Long
Private Declare PtrSafe Function ProbitRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef S As Long, ByRef D As Double) As Long
Private Declare PtrSafe Function PoissonRegression Lib "PRT_dll.dll" (ByRef C As Double, ByRef V As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long, ByRef S As Long, ByRef D As Double) As Long
Private Declare PtrSafe Function Solves Lib "PRT_dll.dll" (ByRef Z As Double, ByRef P As Double, ByVal K As Long, ByVal N As Long) As Long
Private Declare PtrSafe Function NormalDistribution Lib "Distr_dll.dll" (ByVal X As Double) As Double
Private Declare PtrSafe Function ChiSquareDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal C As Double) As Double
Private Declare PtrSafe Function FDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal L As Double, ByVal C As Double) As Double
Private Declare PtrSafe Function TDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal C As Double) As Double
Private Declare PtrSafe Function InverseFDistribution Lib "Distr_dll.dll" (ByVal K As Double, ByVal L As Double, ByVal C As Double) As Double

[EducatedFool]

надо еще поменять Long на LongPtr
http://excelvba.ru/articles/WinAPI