Jak zamienić tekst z TextBox1 na liczbę dziesiętną w kodzie?

Witam
W celu zamiany Wartości liczbowej w TextBox1 (wartość jest wpisywana jako tekst) na cyfry stosuję mnożenie - TextBox1*1. Działa tylko wówczas gdy w TextBox1 jest liczba całkowita. Gdy jednak znajduje się liczba dziesiętna leci błąd. Mam prośbę - mianowicie jakim kodem zmienić liczbę z częściami dziesiętnymi.
Pozdrawiam
[/i]

Nie napisałeś ani jaki język programowania - ani nie podałeś przykładowego kodu, więc jak ktokolwiek może ci odpowiedzieć?

P.S. Błędy nie ptaki - nie "latają".

Językiem programowania jest EXCEL VBA. Stosowałem także kod, który działa mi w innym programie, ale w tym niestety nie.

i nie wiem dlaczego.
Przy liczbach całkowitych wystarczy taki kod:

Pozdrawiam

Zamień przecinek (występujący jako separator dziesiętny) na kropkę (funkcja Replace) przed zmianą tekstu na zmienną liczbową.

Dziękuję mickpri za zainteresowanie się moim problemem. W tabelce wpisuję wartości w 9-ciu kontrolkach TextBox. Kiedy zachodzi konieczność sumowania z sobą niektórych muszę je wcześniej zamienić na wartości. Jeżeli wartość kontrolki ma liczbę z przecinkiem to nie wystarczy wcześniej zamienić je mnożąc przez jeden. Proponujesz zmienić przecinki na kropki - tylko jak to zmienić we wszystkich kontrolkach Text Box na raz?

Facetjanusz napisał:

Proponujesz zmienić przecinki na kropki - tylko jak to zmienić we wszystkich kontrolkach Text Box na raz?

Można:
1) Do każdej z nich dodać metodę onChange/onUpdate zmieniającą przecinek na kropkę (taka zmiana obejmuje zmiany "programowe", czy też ręczne więc to nie ma znaczenia)
lub też (lepiej)
2) Zmianę wykrywać wyłącznie w kodzie korzystających z wprowadzonych wartości. Przecież nie jest to jakieś skomplikowane.

Przedstawię programik który obrazuje wymienione problemy.
Pozdrawiam

Chciałbym dodać, że ten programik nie działa tak do końca sprawnie, dlatego prosiłbym o pomoc w kilku kwestiach. Po pierwsze okienko informacyjne pojawia się na drugim planie, z powodu :TextBox2.SetFocus,. Po drugie - Jeżeli w kontrolki TextBox wpisuję liczby całkowite, oraz procent z tych liczb będzie liczbą całkowitą wówczas liczy dobrze. Jeżeli w kontrolkach znajdą się liczby z ułamkiem powstaję błąd.
Jeszcze raz proszę o poprawę.
Pozdrawiam

Proponuję wcześniej sprawdzać czy wpisana dana jest numeryczna i to załatwi sprawę.
Dodatkowo po obliczeniach zamieniałbym obliczoną daną na string gdyż wtedy pokazywać będzie wartość liczbową po polsku czyli z przecinkiem
Proponuje zmienić kod pod txt3 na



i analogicznie dla txt5.

i jeszcze wyłączył bym do edycji (enabled=false) okienka z wynikami vatu by nikt nie zmienił z ręki wartości a by były tylko widoczne

Masz jeszcze błąd przy wyniku (przycisk OK) bo jak txt3 jest puste to bug (brak if'a)

Nie rozumiem do końca opcji z wyskakującym okienkiem.


---------------
dodane po chwili
---------------

kolejny błąd
wszystkie zmienne "W" są typu integer więc obcina wartości po przecinku.

I następny mankament VB: "Round"
Uważaj bo amerykanie inaczej zaokrąglają . To co dla nas jest normalne nie koniecznie dla funkcji round.

Wprowadź a zobaczysz:
1,5 *23% = 0,345 czyli w Polsce 0,35
2,5*23%=0,575 czyli 0,58
a zobacz co pokazuje VB i znajdź konsekwencję
Proponuje zaokrąglać nietypowo poprzez "format" ale wtedy jest "po polsku".


---------------
tu ze strony Microsoftu o round w VB:

' 2.125 --> 2.12
' 2.135 --> 2.13
' 2.145 --> 2.14
' 3.125 --> 3.12
' 3.135 --> 3.14
' 3.145 --> 3.14
Tłumaczą tio tak:
Dzieje się tak, ponieważ wewnętrznie mnoży metoda value o 10cyfr, a w tym przypadku operacja mnożenia odczuwa utratę precyzji.

to "cyfr" w powyższym to potęga 10.

Ale jak złapać konsekwencję? Czy w ogóle się da?

marek003 napisał:

Ale jak złapać konsekwencję? Czy w ogóle się da?

Pewnie, że się da.
Np.
http://www.excelblog.pl/zaokraglanie-dziwactwa-i-niekonsekwencje/

Palący problem rozwiązałem za pomocą kodu który zamienił na liczbowe wartości.

Natomiast zamiast okienka informacyjnego użyłem Label1.

Dziękuję za pomoc i
Pozdrawiam

mickpr napisał:

Pewnie, że się da.

Cytat z tekstu:
„Połówki” zaokraglane tu są raz w górę, a raz w dół, zawsze do najbliższej liczby parzystej.

to jak się ma ten "wyjątek":

marek003 napisał:

tu ze strony Microsoftu o round w VB:

' 2.125 --> 2.12
' 2.135 --> 2.13
' 2.145 --> 2.14
' 3.125 --> 3.12
' 3.135 --> 3.14
' 3.145 --> 3.14

Ja bym za mocno nie szukał konsekwencji.
No chyba że jest jeszcze jakaś zasada.

Dodano po 2 [minuty]:

Facetjanusz napisał:

Palący problem rozwiązałem za pomocą kodu który zamienił na liczbowe wartości.
Spoiler:
If TextBox1 <> "" Then
W1 = CDbl(Replace(TextBox1.Value, ".", ",")) ' * 1
End If

Tylko że jak przez przypadek wpiszesz literę znów wyskoczy bug.

Opisywane przez ciebie problemy z zaokrągleniem wynikają z niedokładności wynikającej z samej implementacji liczb zmiennoprzecinkowych ORAZ sposobu ich zaokrąglania.

Przykładowo - jeśli zaokrąglamy 2.135 do 2 miejsc po przecinku - najpierw liczba ta mnożona jest przez 10^N gdzie N= ilość cyfr po przecinku.
Z powodu niedokładności implementacji liczb zmiennoprzecinkowych - wartość ta nieco odbiega od 213.5 a wynosi około 213.49999999999997
A to już jest mniej niż 213.5 - więc powstaje 213.4 (po podzieleniu przez 100 -> 2.13)

Ot cały problem.
Dla "statystyka" - kaine probleme.
Dla kogoś (jak ja) kto obliczał np. opłaty za wodę i CO - takie "urywane grosiki" stanowiły kiedyś problem.
Należy wspomnieć, że w Excel-u sprawę załatwia ZAOKR (poprawnie) i jego różne mutacje.
W VBA - najlepiej do celów obliczeń kwot użyć zmiennych decimal http://msdn.microsoft.com/pl-pl/library/xtba3z33.aspx unikamy wtedy używania liczb zmiennoprzecinkowych.

http://msdn.microsoft.com/pl-pl/library/system.math.round.aspx#Precision

Nie chcę ciągnąć bo to nie temat główny wątku, ale wg mnie nie mamy wpływu (no chyba że się nauczymy na pamięć) na "niedokładności implementacji cyfr zmiennoprzecinkowych" w związku z tym przy zaokrąglaniu za pomocą Round() nadal nie szukał bym konsekwencji.
Ale już się poddaje, tym bardziej widząc nad awatarem "Moją specjalnością jest upór"

Również uważam że należy pracować na innych zmiennych lub w VB stosować format() zamiast round()

Dzięki koledzy za pomoc, ale ja nie będę zagłębiał się w tą tematykę - wystarczy, że program działa mi poprawnie.
Pozdrawiam