Zaokrąglanie liczby w dół w języku Visual Basic

Mam aplikację Visual Basic, która musi zaokrąglić liczbę w dół, na przykład 2,556 będzie 2,55, a nie 2,26.Zaokrąglanie liczby w dół w języku Visual Basic

mogę to zrobić za pomocą funkcji zdejmować znaki ponad 2 prawo od kropki dziesiętnej przy użyciu tego:

Dim TheString As String 
TheString = 2.556 
Dim thelength = Len(TheString) 
Dim thedecimal = InStr(TheString, ".", CompareMethod.Text) 
Dim Characters = thelength - (thelength - thedecimal - 2) 
_2DPRoundedDown = Left(TheString, Characters)

Czy istnieje lepsza funkcja to zrobić?

Źródło

2009-08-04 Paul

Możesz to zrobić pod numerem Math.Floor. Jednak trzeba pomnożyć * 100 i podzielić, ponieważ nie można dostarczyć liczbę cyfr

Dim theNumber as Double 
theNumber = 2.556 
Dim theRounded = Math.Sign(theNumber) * Math.Floor(Math.Abs(theNumber) * 100)/100.0

Źródło

2009-08-04 16:22:45

To nie będzie działać, jeśli liczba jest ujemna. – Justin

Czasami korzystne jest przechowywanie liczb jako liczb całkowitych lub stałoprzecinkowych (jeśli nie potrzebujesz pełnego zakresu zmiennoprzecinkowego), wykonywanie obliczeń na stałych numerach, a następnie dostosowywanie ich podczas wyświetlania użytkownikowi. –

@Justin: Dobra uwaga - redagowałem, aby uwzględniać liczby ujemne, a także pozytywne –

Innym sposobem na to, że nie opierają się na użyciu typu String:

Dim numberToRound As Decimal 
Dim truncatedResult As Decimal 
numberToRound = 2.556 
truncatedResult = (Fix(numberToRound*100))/100

Źródło

2009-08-04 16:26:40

Używanie Fix() będzie nieco szybsze niż przy użyciu Floor(). – Justin

Czy cokolwiek popiera to stwierdzenie? –

@Justin: Fix jest faktycznie wolniejszy niż Math.Floor - sprawdza, a następnie wywołuje Math.Floor wewnętrznie. Uruchomienie odbłyśnika w pliku Microsoft.VisualBasic.dll w celu uzyskania szczegółowych informacji. –

Odpowiedź Math.Floor() jest dobra. Nie jestem pewien, które dokładnie środowiska VB Fix() są zdefiniowane w. Jak Justin wskazuje, Math.Floor() nie będzie działać z liczbami ujemnymi. Będziesz musiał przyjąć wartość bezwzględną, a następnie pomnożyć przez numer SGN(). Nie znam dokładnej nazwy funkcji, której użyłbyś, aby uzyskać numer SiGN (nie sin()).

W pseudo-kodu, biorąc pod uwagę wartości ujemne, wynik byłby wygląda następująco:

result = sgn(num) * floor(abs(num * RoundToDig))/RoundToDig

- Furry krowy moo i dekompresji.

Źródło

2009-08-04 16:45:10 WyrdestGeek

Jestem przyzwyczajony do funkcji Fix() z VB6, ale jest ona również dostępna w VB.NET - http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.conversion.fix.aspx –

@WyrdestGeek: Funkcja to Math.Sign. @Saul: Napraw wywołania Math.Floor wewnętrznie. –

Co to za interes o dekompresji bydła? –

Aby zaokrąglić w dół

Math.Floor(number)

Aby przyciąć znaki

number.Substring(0,1)

można przekonwertować go na sznurku.

Źródło

2013-06-06 17:16:55 ad48

Dim Input As Decimal 
Dim Output As Decimal 
Input = 2.556 
Output = Input - (Input Mod 0.01)

To będzie działać zarówno pozytywnych, jak i negatywnych liczb

Źródło

2016-08-08 23:49:42 Oncure1

Zaokrąglanie liczby w dół w języku Visual Basic

Odpowiedz

Powiązane problemy