| Вопрос: Округление. Недостаток в фунцции x = Round(x,2) | Добавлено: 11.02.07 04:57 |
Автор вопроса:  Stepan
|
|
Кстати, Есть недостаток в фунцции x = Round(x,2)
А именно: Четные десятки не округляет. К примеру: Так работает 47,475 округляет 47,48 Так не работает 47,465 округляет 47,46 а должен 47,47 Подскажите пожалуйста как это можно исправить. Заранее спасибо. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Fever Вопросов: 60 Ответов: 808 |
Профиль | | #1 | Добавлено: 11.02.07 15:38 |
|
екма.....
Ну сам ты можешь написать, или будешь донимать форумлян чтоб тебе каждый Private Sub Command1_Click() написали? |
||
|
Номер ответа: 2 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #2 | Добавлено: 11.02.07 15:47 |
|
input: num output: res dim ost as single dim s as string dim c as string ost = num - int(num) s=aplit(cstr(ost),","  (1)
if len(s)<=2 then res=num else c=mid(s,3) if clng(c)<clng("5" & iif(len(c)>1,string("0",len(c)-1),"" ) then
c=cstr(clng(mid(s,2,1))+1) else c=mid(s,2,1) end if res=csng(cstr(int(num)) & "," & mid(s,1,1) & c) end if |
||
|
Номер ответа: 3 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #3 | Добавлено: 11.02.07 15:47 |
| ужос конечно | ||
|
Номер ответа: 4 Автор ответа: Stepan Вопросов: 9 Ответов: 32 |
Профиль | | #4 | Добавлено: 11.02.07 15:55 |
| Спасибо огромное. Буду разбираться | ||
Страница: 1 |