zarez u brojevima

zarez u brojevima 23.03.2005. u 15:30 · pre 263 meseca #1

Pokušavam zbrojiti unose koji se unesu u text1 i text2 Box i to mi sve ide uredu dok ne dođem do brojeva koji nisu cijeli.

Primjer :

Text1 = 5
Text2 = 5

rezultat koji dobijemText3 = 10 ; to je dobro

a kada napišem

Text1 = 5,5
Text2 = 5

rezultat koji dobijem Text3 = 10

Kada stavim umjesto zareza točku onda mi dobro zbroji, ja hoću da mi zbraja sa zarezom!?

Re: zarez u brojevima 23.03.2005. u 15:48 · pre 263 meseca #2

Text3.Text = Val(Text1.Text) + Val(Replace(Text2.Text, ",", "."))

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: zarez u brojevima 23.03.2005. u 17:03 · pre 263 meseca #3

Windows računa da je zarez ono što ti je namješteno pod Regional Settings odnosno ono što dobiješ kada pritisneš "zarez" na numeričkoj tastaturi. Ne bi trebalo da to definišeš na nivou programa.

Potpis

"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams

Re: zarez u brojevima 23.03.2005. u 17:25 · pre 263 meseca #4

Ovo ce raditi nezavisno od podesavanja. Samo ce u Text3 biti upisan rezultat kakav je po tim podesavanjima ali ce uvek dobiti sabrane brojeve.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: zarez u brojevima 23.03.2005. u 21:42 · pre 263 meseca #5

Citat:

Shadowed: Ovo ce raditi nezavisno od podesavanja. Samo ce u Text3 biti upisan rezultat kakav je po tim podesavanjima ali ce uvek dobiti sabrane brojeve.

Ali kada prenese na neki drugi računar koji prikazuje brojeve kao "1.234.456,89" ili "1,234,456.89" neće raditi.

Potpis

"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams

Re: zarez u brojevima 24.03.2005. u 16:16 · pre 263 meseca #6

Aha, ovo sa zarezom na drugim mestima mi nije palo na pamet. Onda bi mogao da uporedi InStrRev(Text1.Text, ",") i InStrRev(Text1.Text, ".") pa ako je ovaj prvi manji ili je drugi = 0 vrsi onu zamenu inace ne vrsi.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: zarez u brojevima 25.03.2005. u 06:22 · pre 263 meseca #7

Shadowed možeš li staviti cijeli primjer koda, jer nisam baš razumio ovo što si napisao!?

Re: zarez u brojevima 25.03.2005. u 15:21 · pre 263 meseca #8

Code:
If (InStrRev(Text1.Text, ",") < InStrRev(Text1.Text, ".")) Or (InStrRev(Text1.Text, ".") = 0) then _
Text3.Text = Val(Text1.Text) + Val(Replace(Text2.Text, ",", "."))

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: zarez u brojevima 25.03.2005. u 19:15 · pre 263 meseca #9

Hmmm, zasto ne uradis to ovako, bar te nece boleti glava: Uzmes API f-ju GetLocaleInfo i vidis sta je u racunaru podeseno za decimale - zarez, da ne kazem zapeta, ili tacka. Onda korisniku dozvolis da unese samo taj znak i cifre od 0-9 i sve si resio, ukljucujuci i razne sasave unose. Jos ukoliko ubacis i f-ju IsNumeric...

Pozdrav...

Re: zarez u brojevima 25.03.2005. u 20:59 · pre 263 meseca #10

Ja opet ponavljam. Nije uredu tjerati korisnika da brojeve upisuje na numeričkoj tastaturi, a zarez da ganja lijevo, kod razmaknice.

Potpis

"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams

Re: zarez u brojevima 25.03.2005. u 21:55 · pre 263 meseca #11

@quattor. Sve je to OK. Ali sky_nex rece da hoce bas sa zarezom pa radimo na metodi da se bez obzira na podesavanje u Win-u koristi zarez. Znaci, pocetni uslov je bio koriscenje zareza.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: zarez u brojevima 26.03.2005. u 08:21 · pre 263 meseca #12

Momci, vi onda iskombinujte sve do sada receno. Sa GetLocaleInfo proveri sta je podeseno u Windowsu. Ako je zarez za decimale, onda je OK. Ako nije, onda zarez zameni sa tackom, kao sto je vec bilo postirano. Ako neces da trckaras do zareza kod razmaknice, napravi da se ukucana tacka na numerickoj tastaturi (vbKeyDecimal) automatski prevede u zarez. Naravno, nije sve tako jednostavno - ako je za decimale podesen zarez, ukucana tacka sa numericke tastature nije vise vbKeyDecimal, nego obicna tracka (keyascii=46). Nadam se da sam pomogao...

Pozdrav...

Forum kao aplikacija na telefonu

Srodne teme