Ошибка несоответствия типов при сравнении полей валюты в VBA

Содержимое TechKnow ветвей

Вопрос. Был написан код VBA, который сравнивает два значения валют. Ниже приведен пример такого кода:

If ccur(cost) > ccur(1000) then

Выполнение этой строки кода приводит к несовместимости типов данных или ошибке несоответствия типов данных. Параметры Windows валюты в настоящее время определены как символ "русский". Если изменить символ валюты на $, код будет успешно с кодом. Что происходит и как можно обойти эту проблему?


Ответ. В VBA функция Ccur() всегда соблюдает параметры валюты панели управления при оценке этого поля. Так как реализация Dynamics VBA всегда передает значения полей в качестве строк, эта проблема возникает в любое время при оценке значения валюты, которое не соответствует значениям валюты в Windows.


В файле справки VBA указывается, что функции преобразования типов данных следует использовать вместо функции Val для преобразования типов данных на международные стандарты. Например, при использовании функции CCur() в зависимости от региональных параметров компьютера распознаются различные десятичных, тысячные и валютные параметры.


В данном случае обратите внимание на эту информацию о работе с Microsoft Dynamics GP:

• CCur("жи1000") будет равняться несоответствию типов (т. е. эта строка не является допустимой валютой), если в параметре валюты Windows не за установлено "фунт".

• Если за установлено значение "фунт", то CCur("делю1000") возвращает значение 1000, а затем CCur("$1000") будет равняться ошибке несоответствия типов.
  

Лучший способ работы с валютами из VBA — написать функцию, которая преобразует строку с не числовой символикой на передний или денежный. Например, вот так:

If CurrencyValueFromDynField(cost) > ccur(1000) then

где функция CurrencyValueFromDynField определена следующим образом: Этот код правильно обрабатывает отрицательные числа, которые имеют знаки "минус", которые находятся в квадратных скобках или имеют пробелы между символом валюты и числом.

Public Function CurrencyValueFromDynField(FieldString As String) As Currency
Dim i As Integer
Dim TempChar, TempString As String

' Strip off all non-numeric characters
TempString = ""
For i = 1 To Len(FieldString)
TempChar = Mid(FieldString, i, 1)
If InStr("1234567890.,-()", TempChar) > 0 Then
TempString = TempString & TempChar
End If
Next
FieldString = TempString

' Return the numeric value of the string (as a currency data type )
CurrencyValueFromDynField = CCur(FieldString)
End Function

Эта статья посвящена документу TechKnow это ИД:10036