Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Assembler

Страница: 1 |

 

  Вопрос: Выделение целой и дробной частей Добавлено: 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
  1.  
  2. Целая = Int(значение)
  3. Дробная = значение - 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
Попробуй например так...
  1.  
  2.  Private Sub ButtonParts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonParts.Click
  3.         'исходная строка
  4.         Dim fulstring As String = (TextBoxNumber.Text).ToString
  5.         'целая часть числа
  6.         Dim WholePart As String
  7.         'дробная часть числа
  8.         Dim FractionalPart As String
  9.  
  10.         'получить позицию десятичного разделителя
  11.         Dim dp As Integer = PositionDecimalPoint(fulstring)
  12.  
  13.         If dp > 0 Then
  14.             WholePart = Mid(fulstring, 1, dp - 1)
  15.             LabelWhole.Text = WholePart
  16.             FractionalPart = Mid(fulstring, dp + 1)
  17.             LabelFractional.Text = FractionalPart
  18.         Else
  19.             LabelWhole.Text = fulstring
  20.             LabelFractional.Text = "нет"
  21.         End If
  22.  
  23.     End Sub
  24.  
  25.     Public Function PositionDecimalPoint(ByVal fs As String) As Integer
  26.         Dim dp As Integer = InStr(fs, ",")
  27.         Dim z As Integer = InStr(fs, ".")
  28.  
  29.         If dp > z Then
  30.             Return dp
  31.         ElseIf z > dp Then
  32.             Return z
  33.         Else
  34.             Return 0
  35.         End If
  36.     End Function

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам