VBNet - Форум - Выделение целой и дробной частей

Вопрос: Выделение целой и дробной частей Добавлено: 03.04.10 10:47

Автор вопроса: Серёга | Web-сайт: houselab.narod.ru | ICQ: 262809473

Здравствуйте.
Вопрос: как разделить десятичную дробь (dq) или (dd) на два целых (dd), в одном из которых содержалвсь бы ценая часть, а в другом дробная?
Например разделить 123.456 на 123 и 456
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 03.04.10 16:18
	Целая = Int(значение) Дробная = значение - Int(значение) Ответить

Номер ответа: 2 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #2	Добавлено: 03.04.10 18:28
	VβÐUηìt, спасибо конечно, но: 1. в том коде, кот. ты написАл дробная часть получается <1 2. код для бейсика,а не для асма 3. я уже сам разобрался (флаг округления в сопре не тот стоял), так что тема закрыта. Всем спасибо. Ответить

Номер ответа: 3 Автор ответа: DimDoc Вопросов: 21 Ответов: 104	Профиль \| \| #3	Добавлено: 03.04.10 22:17
	Попробуй например так... Private Sub ButtonParts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonParts.Click 'исходная строка Dim fulstring As String = (TextBoxNumber.Text).ToString 'целая часть числа Dim WholePart As String 'дробная часть числа Dim FractionalPart As String 'получить позицию десятичного разделителя Dim dp As Integer = PositionDecimalPoint(fulstring) If dp > 0 Then WholePart = Mid(fulstring, 1, dp - 1) LabelWhole.Text = WholePart FractionalPart = Mid(fulstring, dp + 1) LabelFractional.Text = FractionalPart Else LabelWhole.Text = fulstring LabelFractional.Text = "нет" End If End Sub Public Function PositionDecimalPoint(ByVal fs As String) As Integer Dim dp As Integer = InStr(fs, ",") Dim z As Integer = InStr(fs, ".") If dp > z Then Return dp ElseIf z > dp Then Return z Else Return 0 End If End Function Ответить

Страница: 1 |