Форматировать цифирь

[MOV]

Есть как целые числа, так и с дробью
Надо, не используя формат Currency выводить их так, чтобы всегда отображалось два знака после запятой, даже если число, целое и не имеет дробной части.
Можно черкануть процедуру, но неужели нет ничего проще? Типа Format

[Чудик]

Оно и есть:
новая цифирь = Format (старая цифирь, "# ##0.00")

[MOV]

Спасибо. И вопрос в дгонку:

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

Private Sub Form_Load()
Dim s As String
Dim d As Long

s = "115.1"

d = d + Val(s)
Debug.Print d
End Sub

val(s)=115,1, но d будет равно 115!
бред какой-то отваливается дробная часть

[kif]

так это, d у тебя типа long

а енто целый тип данных

поставь ее single

[MOV]

Спасибо. Ну и балда ! совсем отвык

А вот еще вопрос:

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

Private Sub Form_Load()
Dim s As String
Dim d As Long
s = "115.1"
Debug.Print Format(s, "#0.00")
End Sub

Debug.Print выводит ерунду мне надо, чтобы вывел 155.10, а он -651956,00 дает

[snov]

Спасибо. Ну и балда ! совсем отвык

А вот еще вопрос:

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

Private Sub Form_Load()
Dim s As String
Dim d As Long
s = "115.1"
Debug.Print Format(s, "#0.00")
End Sub

Debug.Print выводит ерунду мне надо, чтобы вывел 155.10, а он -651956,00 дает

Убери шарп, т.е.

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

Debug.Print Format(s, "0.00")

[kif]

Я думаю, что символы формата "#0.00" касаются только циферек, а для строковых есть другие, типа прижать влево, право и т.д.

если s сделать integer все будет хорошо.

[alibek]

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

Private Sub Form_Load()
Dim s As String
Dim d As Long
s = "115.1"
Debug.Print Format(Val(s), "#0.00")
End Sub

[MOV]

О!
Оно. Спасибо.
Совсем плохой стал

[Чудик]

У тебя не распознается параметр как параметр типа String. Поставь запитую вместо точки, при необходимости можно знак обрабатывать (например функцией Replace). Если у тебя всегда будет ставиться точка можешь применить функцию CStr (значение).

Private Sub Form_Load()
Dim s As String
Dim d As Long
s = "115,1"
Debug.Print Format(s, "#0.00")
End Sub

или

Private Sub Form_Load()
Dim s As String
Dim d As Long
s = CStr (115.1)
Debug.Print Format(s, "#0.00")
End Sub

[MOV]

Да нет, нет. Все разобрался. Спасибо. Надо юзать Val, как написал alibek.
Ну и Replace тоже иногда пригождается.
В общем, спасибо всем. Все пошло.