Pavel09, запустил, есть погрешность. Похоже на точность влияет не только кол-во знаков после запятой, но и изначальное общее количество знаков. Как выше писал ROUND() лечит проблему:

Не знаю что твои числа означают, но если это деньги или что-то подобное по размерности, то подумай над использованием типа CURRENCY. Его придумали именно для тех случаев где даже малая погрешность недопустима в принципе. Конкретно в твоем примере замени и запусти:
Реально CURRENCY это 8-мибайтовое целое у которого при отображении запятая сдвигается влево на 4 разряда, т.е. храниться целое количество десятитысячных долей, соответственно все минусы и особенности отсюда:
1. После каждой операции происходит округление до 4 знака, поэтому надо аккуратно делением пользоваться:
2. При отображении без форматирования показывается 4 знака после запятой, поэтому приходится постоянно пользоваться форматированием если надо 2 знака после запятой.

Из плюсов: точность вычислений 18 знаков (больше будет ошибка переполнения), операции с CURRENCY выполняются немного быстрее чем с Numeric и Double.

Лично я предпочитаю тип CURRENCY если его допустимо применить. Некоторые разработчики его не любят (в первую очередь из-за особенности деления).

tanglirDima TЗапустить религия не позволила? vartype(x) вернет тип LOGICAL т.к. всем переменным объявленным в LOCAL присваивается .F., потому что написанное после AS игнорируется при выполнении.для неинициализированных переменых объявленный тип и впрямь не имеет значения. Пока они не инициализированы. А теперь запишите туда раунд(5,233648б2) и покажите вартайп.
Ничего не понял. Это к чему сказано?

tanglirDima Tпропущено...

Ничего не понял. Это к чему сказано?К тому, что пока в переменной по умолчанию .F., то, конечно, вартайп вернёт L, это и ежу понятно. Но что вернёт вартайп, если в переменную заранее объявленного типа всё-таки записать значение, которое можно трактовать либо как объявленный тип, либо как какой-то другой. Вопрос-то в этом был, или я что-то пропустил?
Пропустил, если вкратце, то была попытка доказать что "local x as doub" создает переменную типа DOUBLE. В хэлпе так написано:
MSDNLOCAL Command
Visual Studio .NET 2003
Creates local variables and variable arrays.

LOCAL Var1 [AS type [OF ClassLib]] ...

VarList
Specifies one or more local variables to create.
[ARRAY] ArrayName1 (nRows1 [, nColumns1]) [, ArrayName2 (nRows2 [, nColumns2])] ...
Specifies one or more local arrays to create. See DIMENSION for a description of each argument.
AS type
Specifies the data type on which this variable or array is based.
....
Оно и правда написано, только далее
MSDNRemarks
...
Variables and arrays created with LOCAL are initialized to false (.F.)...
Как хочешь так и понимай. Вобщем ерунды какой-то понаписали в хэлпе по поводу типизации переменных. Тут еще интересный опус: How to: Implement Strong Typing for Class, Object, and Variable Code

Вобщем мое мнение: конструкция "AS ..." в фоксе нужна только чтобы подсказки выскакивали при наборе кода (свойства, методы объектов) и на работу кода она никак не влияет, т.е. при выполнении кода игнорируется.

SSn888Давно не заглядывал на форум.... вот наворочено-то :)

Дима_Т, я не говорил ""local x as doub" создает переменную типа DOUBLE", тут у нас легкое недопонимание, из-за чего полагаю и возник сыр-бор.

local x as doub описывает переменную, которая _после_ придания ей корректного значения будет держать это значение как DOUBLE. Разница в нюансах.

XAndy выше упоминал структуру ev_width , это и есть внутреннее хранение переменной в памяти:


Нет там нескольких типов для нецелых чисел, только DOUBLE

SSn888А почему присваивает тип "поэкономней"... гм, потому что таков принцип фокса и не только его.. если по умолчанию присваивать наоборот, самые громоздкие типы - то рано или поздно начнуться проблемы.. например, с памятью.
Я уже писал что не память надо экономить. Считаем:
65535 - максимально возможное количество переменных в фоксе (по умолчанию 16384)
8 байт - под хранение DOUBLE
т.е. под 65535 переменных DOUBLE надо 524280 байт, т.е. 0,5 Мб. Чего тут экономить?

SSn888Или Вы наверно, везучий и по работе постоянно сталкиваетесь с новым железом и _не_ сталкивались с ситуацией "оперативка не более 256, причем половина ее уже забита всяким хламом"
угу, есть еще вторые пни с W98 + 16Мб где действительно 6й фокс тормозит, правда стоит до 32Мб памяти добавить и все летает.

SSn888какие нафиг подсказки если речь идет о _переменных_?
Свойства и методы объектов касаются именно этих самых объектов, а какая подсказка по-Вашему должна вылезать при наборе переменной var1, объявленной как дубле? и в чем эта подсказка должна по-Вашему отличаться от переменной, объявленной AS INTEGER или AS еще много чего... Логика "для подсказок" сработает _только_ если объявляем AS Class...
Во всех остальных случаях AS для подсказок не может быть использован, потому что ПОДСКАЗЫВАТЬ НЕЧЕГО.
Немного истории фокса: в VFP6 (появился в 98м) подсказок не было и "AS" не было, после выхода SP5 мелкомягкие решили фокс похоронить, хоронили лет 5-6, потом неожиданно появилась 7-ка, следом в течении года 8-ка, в одной из которых это и появилось. Большая часть изменений были косметические, т.к. VFP6 имел устаревший вид прог под W95.
Т.е. по-твоему в платформе которая была создана под слабые компы в очередной версии добавили оптимизацию переменных? Кстати это совсем немаленькая доработка.

IntelliSence при подсказках пытается найти класс и вывести его свойства и методы, если не находит, то ничего не подсказывает.
Повторяю, то что после AS игнорируется при выполнении, простой пример:
Никаких ошибок не возникает, хотя другие языки дают ошибку в этом случае.

PS Не знаю как еще доказать отсутствие функционала, если ты считаешь что он все-таки есть - покажи пример кода при котором после добавления "AS ..." что-то изменится.

ХЗ почему так сделали, могу только свои предположения высказать:
1. Не факт что в хэлпе под data type подразумеваются простые типы, может под data type классы пользователя подразумеваются:
MSDNAS type
Specifies the data type on which this variable or array is based.
OF ClassLib
Specifies the class library containing the type description on which the type element of this variable or array is based.
Для базовых классов фокса можно без OF писать:
или где-то вначале подцепить библиотеку со своими классами (SET CLASSLIB TO MyLib), а потом на ее классы ссылаться без OF
это я к тому что невозможно проверить корректность написанного после AS т.к. SET CLASSLIB может быть не выполнена на момент правки кода.

2. Примечание (подсказка) разработчику какого типа задумана переменная. Хотя для решения этой проблемы с типами многие используют венгерскую нотацию.

Вобщем сделали это для классов и добавили игнорирование любых непонятных слов, как следствие получилось что после AS можно писать все что угодно.