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

[tyomitch]

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

что скажешь?

Для числа 99.999999 уже не работает.

[Хакер]

А мой работает

[~Ilya~]

Коллеги! Поясните плз, чем отличается Mid$ от Mid, что за фиговины num$, i% ?

Насчет национальных систем исчисления - все-таки хочется чтобы программа была как можно более надежной и независимой от остального ПО на компе. IMHO.

[Хакер]

эти "фигня" есть TDC или ТОС (type-declaration character / типо-определительные символы).

Чтобы не писать
Dim num as integer
num = 566

можно коротко написать
num% = 566

чтобы не писать
Dim strstr As String
strstr="ad"
пишут
strstr$ = "ad"

[Viper]

а Mid отличается от Mid$ тем, что первый вариант работает с типом Variant, а второй с типом String. И делает это быстрее.

[tyomitch]

Чтобы не писать
Dim num as integer
num = 566

можно коротко написать
num% = 566

Низя, Option Explicit не даст.

[~Ilya~]

Спасибо за пояснения!

[Хакер]

это только у извращенцев которые пишет Option Explicit, потому что забывают имена переменных и могут где то допустит ошибку и написать user_data вместо userdata.

[Viper]

Чтобы не писать
Dim num as integer
num = 566

можно коротко написать
num% = 566

Низя, Option Explicit не даст.

но можно написать:

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

Dim n%
n%=100

и n будет являтся типом Integer

[tyomitch]

Можно даже

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

Dim n%
n = 100


[Nicky]

это только у извращенцев которые пишет Option Explicit, потому что забывают имена переменных и могут где то допустит ошибку и написать user_data вместо userdata.

Вот так легко взял и половину записал в извращенцы

[tyomitch]

Уверен, что не половину, а гораздо больше...

[Gmp]

Для числа 99.999999 уже не работает.

тогда можно так:

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

Dim i As Double
i = 99.999999
i = Left$(CStr(i), Len(CStr(Fix(i))) + 4)

3 знака

[Gmp]

А вот от зашедшего ко мне соседа программиста со стажем.

Dim i As Double
i = 34.358944554454
i = Sgn(i) * (Int((Abs(i) * 1000)) / 1000)

3 знака.

[tyomitch]

Gmp, в моём первом ответе был такой же код.

[Saturn.65]

Искал в Format но ничего не нашел.
Суть такая. Когда при расчете получается отрицательное число, то об этом говорит MsgBox.

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

MsgBox "Перерасход" + Text1.Text, vbExclamation, "Итог"


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

[Хакер]

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

x = -100
MsgBox "У меня не хватает " + CStr(x) + " долларов"
MsgBox "У меня не хватает " + CStr(-x) + " долларов"


[iGrok]

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

x = -100
MsgBox "У меня не хватает " + CStr(x) + " долларов"
MsgBox "У меня не хватает " + CStr(-x) + " долларов"


Ещё наверное можно заюзать Abs(x)...

[Saturn.65]

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

x = -100
MsgBox "У меня не хватает " + CStr(x) + " долларов"
MsgBox "У меня не хватает " + CStr(-x) + " долларов"


Спасибо большое! Хакер -голова! Отдельно работает, но не в моем поекте.
У меня стоит таймер на MsgBox и MsgBox через несколько секунд сам закрывается.
А когда подставляю это: MsgBox("Перерасход " + CStr(-Text26.Text), vbExclamation, "Перерасход!") = vbOK ' Compile error выскакивает
Вот родной код

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

'модуль
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Public Const NV_CLOSEMSGBOX As Long = &H5000&
Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
KillTimer hWnd, idEvent
Select Case idEvent
Case NV_CLOSEMSGBOX
Dim hMessageBox As Long
hMessageBox = FindWindow("#32770", "Перерасход!")
If hMessageBox Then
Call SetForegroundWindow(hMessageBox)
SendKeys "{enter}"
End If
End Select
End Sub
---------------------------------------
'Код
Private Sub Command27_Click()
Per = 2 * 1000
'вместо цифры 4 введите любое число, через какое время необходимо закрыть окно (в миллисекундах)
SetTimer hWnd, NV_CLOSEMSGBOX, Per, AddressOf TimerProc
'Если хотите изменить заголовок "MsgBox" на что-нибудь другое, то произведите
'эту замену и в модуле в строке hMessageBox = FindWindow("#32770", "MsgBox")

MsgBox("Перерасход " + CStr(-Text26.Text), vbExclamation, "Перерасход!") = vbOK  ' Compile error
'Function call on left-hand side of
'assigment must return Variant or Object
MsgBox "Перерасход  " + Text26.Text, vbExclamation, "Перерасход!"   'А это работает
End Sub


[tyomitch]

Мдаааа....

MsgBox("Перерасход " &-Val(Text26.Text), vbExclamation, "Перерасход!") = vbOK

[Saturn.65]

Мдаааа....
MsgBox("Перерасход " &-Val(Text26.Text), vbExclamation, "Перерасход!") = vbOK

Большое спасибо! Хотя тоже не правильно было и ошибку выдавало.
Вот так стало работать: MsgBox "Перерасход " & -Val(Text26.Text) & " руб.", vbExclamation, "Перерасход!"
Вот так через тернии и иду к звездам. Стыдно конечно, но куда деваться? Нигде больше не помогут.

[Megas13]

iGrok правильно сказал. Зачем парится если можно просто вызвать Abs() ?

[Денис]

iGrok правильно сказал. Зачем парится если можно просто вызвать Abs() ?

Человек через тернии пробирается, не видишь, что-ли? Мешать не будем, и даже поможем:

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

MsgBox "Перерасход" + (-1 * val(Text1.Text)), vbExclamation, "Итог"

настоящий терновый куст^

[Saturn.65]

По поводу формата хотел спросить. У меня в Text1.Text выводится десятичное число, например 1,455.
При записи в реестр

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

Reg1.SetValue HKEY_CURRENT_USER, "Software\Proga", "sh(0)", Val(Text1.Text), REG_SZ


число округляется до 1. Как только не бился, но причину нашел. Если бы в Text1.Text выводилось число с точкой 1.455, то в реестр бы оно записывалось без обкругления. Но когда запятая, то происходит округление.
Как бы форматировать запятую в точку при записи в Text1.Text?

[Viper]

Как бы форматировать запятую в точку при записи в Text1.Text?

Replace$ использовать не пробовал?
Кстати, зацени вот такую штуку:Format$(0, ".")-возвращает текущий разделитель целой и дробной частей.
З.Ы. Просветляться чтением моей статьи на основном сайте. Там много полезного есть.

[Saturn.65]

Нашел ошибку. Надо было Val убрать и все будет писаться.

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

Reg1.SetValue HKEY_CURRENT_USER, "Software\Proga", "sh(0)", Text1.Text, REG_SZ

[Saturn.65]

Реально ли проделать такое форматирование или сокращение или округление, не знаю, как правильно назвать. Например если число 246 то оно должно быть после форматирования 250. Если 244, то тогда 240. Т.е. сокращать-округлять как бы целые числа.
Вся процедура должна проводится с последней цифрой числа.

[dr.MIG]

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

Dim a As Double
a = 255
a = Round(a / 100, 1) * 100


[Saturn.65]

Cпасибо dr.MIG.
Не совсем правильно работает или я что-то не так делал.
Немного поворочал извилиной и руками и родил такое:

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

Private Sub Command1_Click()
Dim a As Double
a = Text1.Text
Text1.Text = Round(a / 10) * 100 / 10
End Sub


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

[dr.MIG]

А почему самому не посчитать, чему равно 100 / 10?

Round(a / 10) * 100 / 10

=Round(a / 10) * 10

Add: и судя по тому, что ты сказал, что мой вариант работает не совсем правильно, то есть мнение, что тебе скорее нужен такой вариант:

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

Private Sub Command1_Click()
    Dim a As Double
    a = Text1.Text
    a = Int(a / 10 + 0.5) * 10
    Text1.Text = a
End Sub


Поясни, какое тебе нужно округление — в последнем варианте 145 округлится до 150, 155 до 160, а в твоем варианте 145 до 140, 155 до 160... И еще что касается отрицательных чисел — будут ли они использоваться и как они должны округляться?