отбрасывание цифр, а не округление

[~Ilya~]

Недавно мне понадобиллсь форматировать числа (single, double, currency), причем в некоторых случаях их нужно
- округлить, что я делаю с помощью функции Round
- в некоторых случая оcтавить ровно N цифр(не округляя)
- а иногда округлить вниз(!) т.е. 1.54->1.5 1.55 -> 1.5 1.56-> 1.6

Вопрос: можно ли это сделать встроенными в VB функциями, например вроде Round или написать какое-то форматирование для функции Format?

Вопрос2: данные потом кладутся в файл Excel, можно ли в ячейке сделать такое форматирование?

[tyomitch]

2) Int(v*10^N)/10^N
3) округление вниз(!) -- это совсем другое: это когда 1.56 -> 1.5

[XPAHuTEJIb]

по поводу округления вниз:

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

'исходное число
v = 123.35554545
'выделяем дробную часть
x = (v - Int(v)) * 10   'чем больше надо оставить чисел после запятой
x = (x - Int(x)) / 10    'тем, соответственно, больше нулей после 1
'вычитаем дробную часть
x = v - x


2) Int(v*10^N)/10^N

что это делает? Это = int(v)

А чтобы оставить N цифр, я думаю проще перевести в string , отделить нужное количество символов и обратно. Или те надо мат функцию?

[tyomitch]

2) Int(v*10^N)/10^N

что это делает? Это = int(v)

Раньше чем постить, рекоммендуется думать

[XPAHuTEJIb]

Не нравится мне эта киска, она читает мои мысли...(с) Ледниковый период

тот же код

Сорри tyomitch, скобку не там закрыл

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

Int(v)*10^N/10^N


[Nicky]

2~Ilya~: 1.56-> 1.6 - это вниз?!

2XPAHuTEJIb: Упорно тупишь?

[Andrey Fedorov]

Э...

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

Fix(1.56)

Скучна...

[tyomitch]

Andrey, надо до N цифр.

[XPAHuTEJIb]

Nicky Сам тупик, всё упорно флудишь...ты тут каким боком влез? Ни одного предложения....чистый флуд
Я перед человеком извинился...кроме того выложил свой вариант кода, в отличие от тупиков...

[Nicky]

2XPAHuTEJIb:
Перечитай классиков

[~Ilya~]

Спасибо! В принципе до этих вариантов я додумался сам.
А есть ли встроенное форматирование для функции Format, которое именно обрезает лишние цифры ?
при форматировании "#.###" или "0.000" все рано происходит округление.
А все таки есть ли такое форматирование в Excel?

[Matew]

На сколько я знаю ф-я Round новая, будет ли она работать в vbs в Win98?
~Ilya~, посмотри здесь(справоник функций):
http://visualbasic.noka.ru/index.php?Pa ... load&id=22

[tyomitch]

Функция Round появилась в VBS 2.0: т.е. в IE4 она уже была, а в Win98 -- и подавно.

[~Ilya~]

ну ладно, я понял. Такого встроенного форматирования нет - но хотелось бы!!! Кидаю данные в excel-таблицу - часть нужно округлить - а у части просто взять N цифр после запятой.
Округление я могу выставить в форматировании ячейки, а вот другое - ни фига. Только в VB. Получается разнобой, путанница, и. т.д.

[uhm]

=ОКРВНИЗ(число,точность)

[~Ilya~]

Хм... спасибо. Видимо придется делать это через формулу, такого встроенного форматирования у ячейки нет. Ну что ж, тоже не плохо.
Это лучше чем округлять цифири внутри VB, ведь при желании можно посмотреть и не округленные значения.
посмотрел - там этих функций ОКРугления дофига, на любой вкус

[Gmp]

если только так:

Dim i As String
i = "235,56321369347"
i = Mid$(i, 1, InStr(i, ",") + 3)

Дает 3 знака после запятой (235,563)

[GSerg]

Gmp, что будешь делать на системах, где десятичный разделитель - точка или что-то ещё?

[Gmp]

GSerg
Dim i As String
i = "235.56321369347"
If InStr(i, ",") > 0 Then
i = Mid$(i, 1, InStr(i, ",") + 3)
Else
i = Mid$(i, 1, InStr(i, ".") + 3)
End If

[GSerg]

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

[Gmp]

GSerg
а такое бывает и где?
Elseif?

[GSerg]

Gmp, ты в своём elseif собираешься предусмотреть все знаки, которые пользователь может поставить как десятичный разделитель?
Я сейчас вот твёрдый знак поставлю разделителем. Ты его уже предусмотрел?

[Gmp]

GSerg
А я еще раз спрашиваю где такое применяется и зачем?

[GSerg]

Ты не допускаешь существование национальных настроек, отличных от твоих? А они есть.

[Gmp]

GSerg
Но числа ведь всегда будут либо с ",", либо с "." - если нет покажи в какой из национальных настроек это не так.

[GSerg]

А, т.е. обязательно прыгать с крыши, чтоб убедиться, что так делать не надо? Я пас.

[Хакер]

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


Function DCC(ByVal Number As Double) As Long
num$=Cstr(Number)
Do
  i% = i% + 1
Loop Until Not(IsNumeric(Mid$(num$, i%, 1)))
DCC = CLng(Left$(num$, i%-1))
end Function


Раскритикуете?

[Gmp]

GSerg
А ответить по существу на поставленный вопрос?

В качестве компромиса предлагаю:
Dim i As Double
Dim ii As String
i = 22.343677
ii = Left$(cstr(i), Len(FormatNumber(i, 3)))

что скажешь?

Хакер
Сейчас тебе GSerg скажет что оперировать со строками как с числами само по себе некрасиво - это я про Cstr.

[Хакер]

Пусть он лучше объяснит некрасивость, а то говорить все мастера.

И пусть не говорит что Mid$ на 0,0004 сек. быстрее Mid

[GSerg]

Сейчас тебе GSerg скажет что

Неа. После этого:

Dim i As Double
i = "22,343677"

GSerg ничё говорить не будет, и тихо откланивается.