Не проходите мимо. Помогите. Застрял.

[sidor]

Проблема при суммировании колонки базы данных FoxPro в VB6
В текстовом поле связанном с базой данных находится число например 151,01
Суммирует только целую часть тоесть число151 , а дробную часть теряет.
Как правильно это сделать.


Dim snd As Single

snd = Val(Data1.Recordset.Fields("S_NAR"))

Переменная snd будет равна 151

[RayShade]

Val сканирует строку до первого символа НЕ ЦИФРЫ. Будь проще, используй CSng

[Vitaly1]

Возможно RayShade и прав, и функция Csng воспринимает символ "," как разделитель разрядов, но для Val, необходимо перекодировать символ в строке "," на "."

s=Data1.Recordset.Fields("S_NAR")
if instr(s,",")<>0 then
s1 = mid(s,1,instr(s,",")-1) +"." +mid(s,instr(s,",")+1)
else
s1 = s
end if
snd = Val(s1)

[RayShade]

Кхм.. Замена символа обычно вообще-то осущеcтвляется через

Код: Выделить всё

replace(s,",",".",,,vbtextcompare)

А насчет разделителя разрядов - воспринимается тот, что установлен в Control Panel\Regional Settings

[Vitaly1]

RayShade, спасибо за

Код: Выделить всё

replace(s,",",".",,,vbtextcompare)

И все же, для Val плевать какой разделитель установлен в OS,
а в csgn не плевать?

[RayShade]

Ну как сказать.. в принципе да потому что CSng просто выкинет все нецифры (в т.ч. и разделители, отличные от того, что установлен в системе) и в результате CSng("112,51") вернет просто число равное 11251

[sidor]

Большое спасибо, что не оставили в беде.

Слегка помучившись я нашёл и своё решение.
Применил функцию CCur()

И всё получилось.


Ещё раз благодарю за помощь.