Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как округлить число / 4 сообщений из 4, страница 1 из 1
10.11.2004, 10:38:43
    #32774874
marvel
marvel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как округлить число
Как округлять целые числа:
31 = 30
36 = 40
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2004, 10:43:04
    #32774893
ищ
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как округлить число
okrug(36,-1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2004, 10:43:53
    #32774896
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как округлить число
Код: plaintext
1.
2.
3.
4.
 
dim A as Double 
dim B as Integer 
B= 10 *(CInt(A/ 10 ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2004, 10:44:21
    #32774897
ищ
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как округлить число
Public Function okrug(Number As Variant, NumDigits As Long) As Double ' округление чисел по Гетцу
Dim dblPower As Double
Dim varTemp As Variant
Dim intsgn As Integer
If Not IsNumeric(Number) Then
'Err.Raise 5
okrug = 0
Exit Function
End If
dblPower = 10 ^ NumDigits
intsgn = Sgn(Number)
Number = Abs(Number)
varTemp = CDec(Number) * dblPower + 0.5
okrug = intsgn * Int(varTemp) / dblPower
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как округлить число / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 273ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670458]:
 0ms
get settings:
 4ms
get forum list:
 18ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 190ms
total:  273ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]