точка, или запятая?

[d3drm]

Пишу программу, которая вряд ли выйдет за пределы моего компьютера, но всякое бывает...

Программа принимает числовые данные с текст бокса, который имеет формат "0,00" (все дело в запятой), то есть если ввести 0.00, то при попоытке перевести все это в числовые данные (черех cSng() ), появится ошибка.

Про форматы чисел и дат мы знаем, что они-то в разных странах по разному записываются - у кого запятая, у кого точка. Как бы не проблема, взять, да тупо заменить перед форматированием точки на зяпятые, и все нормально будет...

А что, если программа будет работать на компьютере за грацицей, где как раз нужна точка-разделитель, в то время, как моя программа использует запятую?

Возможно ли такое? Или моя скомпилированная программа будет использовать формат один данных на ВСЕХ машинах? И если нет, то как лечить?

[GSerg]

d3drm давно не кодил

CSng использует текущий национальный разделитель, и больше ничего не требуется.

[d3drm]

d3drm давно не кодил

CSng использует текущий национальный разделитель, и больше ничего не требуется.

Ну а вот мне хочется, чтобы моя программа воспринимала и точку и запятую как разделитель Как мне узнать в какой формат переводить данные перед функцией cSng, чтобы не было ошибок? по сути, получается, как узнать этот самый "текущий национальный разделитель?"

[GSerg]

Несмотря на то, что узнать его очень просто, я не буду тебе говорить, как, поскольку тогда ты напишешь программу неправильно

Правильно - это выполнить CSng, и если оно прокатило, то дальше, а если нет, то сказать пользователю, что вводит не то.

d3drm смишной (c) d3drm

[d3drm]

GSerg, не понимаю, к чему все эти подколки )))

В программах-аналогах в текстбоксах используются точки, вполне разумно что я хочу использовать точку как разделитель чтобы пользователь не переучался и чтобы ему было удобно. А ты, Серега, заставляешь делать неудобно пользователю, это плохо =)

[GSerg]

Если ты хочешь фиксированную только точку, то и юзай val вместо csng и не морочь людям голову
А если ты хочешь интеграцию в мировую экономику и покорение глобального рынка, то перехват ошибки при вызове csng - то, что приведёт тебя к успеху

[Бяка]

подменяй . на ,

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

tmp = "0.00"
Mid(tmp, InStr(tmp, "."), 1) = ","
Text1 = Format(tmp, "### ##0.00 грн.")

[d3drm]

GSerg, ладно-ладно, чувствую, виноват... Ну забыл я про существование VAL, никогда им не пользовался =) Но по сути это то, что мне нужно


Ну наверно тема закрыта =)

[Debugger]

Нет!
В SP1 при записи Output перед и в конце файла жобавлялась ", а в SP2 - нет!

[Andrey Fedorov]

GSerg, не понимаю, к чему все эти подколки )))

Узнать десятичный разделитель: Format$(0,".")

Заменять автоматом вполне можно (если это не разделитель разрядов). Я так и делаю... По крайней мере хуже от этого ни разу не было...