W tym artykule stworzymy funkcję niestandardową do konwersji ciągów ujemnych na liczbę całkowitą.
Surowe dane dla tego artykułu składają się z ciągów, po których następuje znak minus (-).
Chcemy przekonwertować te łańcuchy na liczby całkowite.
Wyjaśnienie logiczne
W tym artykule stworzyliśmy niestandardową funkcję ConvertNegNumbers do konwersji ciągu na liczbę całkowitą. Ta funkcja pobiera wartość ciągu jako dane wejściowe i zwraca liczbę całkowitą jako dane wyjściowe.
Wyjaśnienie kodu
Prawo(Var, 1) = "-"
Powyższy kod służy do sprawdzenia, czy ostatni znak ciągu jest równy znakowi minus (-).
ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
W powyższym kodzie funkcja left służy do wyodrębnienia wszystkich znaków w ciągu, z wyjątkiem ostatniego. Funkcja CInt służy do konwersji wartości ciągu na liczbę całkowitą.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Function ConvertNegNumbers(Var As String) 'Sprawdzenie, czy ostatni znak w ciągu to minus(-) If Right(Var, 1) = "-" Then 'Konwertowanie wartości ciągu na ujemną liczbę całkowitą ConvertNegNumbers = CInt("-" & Left (Var, Len(Var) - 1)) Else 'Konwertowanie wartości ciągu na liczbę całkowitą ConvertNegNumbers = CInt(Var) End If End Function
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail