Ne "rade" funkcije Format, Date, Right

Na 4 racunara (svuda je XP) koristim Excel-2003. Na svakom je ista instalacija office-a. Takodje, Regional and Language podesavanja su 100% identicna. Nedavno sam jedan program (Excel-VBA) prekopirao sa jednog na ostala tri racunara i doziveo neprijatno iznenadjenje - na jednom sve radi, a na ostala dva se javljaju identicni "bugovi", tj, na oba racunara macro "pukne" na istom mestu. Evo sva tri primera iz tri razlicite procedure:
1. frmStart.lblVreme.Caption = Format(Now, "HH:MM") ' oznaceno - Format
2. Label7.Caption = "DANAS JE - " & Date 'oznaceno - Date (isto je ako umesto Date stavim Now)
3. Range("A1").Value = cboIme.Value & "." & cboPrezime.Value & "." & Right(cboGodina.Value, 2) 'oznaceno Right (ako se ukloni Right onda radi)
Zaista ne razumem o cemu se radi. I da napomenem da na svim racunarima imam od Add-Ins - AnalysisToolPak i SolverAdd-In
Ako neko ima ideju sta moze da bude problem, bio bih jako zahvalan. Pozdrav

Format i Right su deo biblioteke VBA klasa Strings, a Date iste biblioteke ali klasa DateTime. Pogledaj da li referenca na ovu biblioteku Visual Basic for Application postoji (Alt+F11, Tools->References) i da li je ispravna (Lokacija, fajl)

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Da. Referenca postoji - cekirana je biblioteka Visual Basik For Applications. I to prva u nizu refernci.
Location - "C:\Program Files\Common Files\Microsoft Shared\VBA\VB\VE
Language: English/Standard
I na svim racunarima je potpuno isto.

1/ Da li se nešto desi ako staviš ?format(now, "HH:MM") u immediate window
2/ Napravi jednostavan makro na računaru na kojem tvoj kod ne radi u novoj radnoj svesci koji sadrži Right ili Date i probaj da li će raditi.

Ako prijavi grešku onda pretpostavljam da nešto nije uredu sa VBA bibliotekama - možda su oštećene? Proveri veličinu, datum i vreme i probaj da iskopiraš sa računara na kome radi na one na kojima ne radi. Prethodno napravi rezervnu kopiju za svaki slučaj

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Sada tek ne razumen nista.
1. Napravio sam jednostavnu formu sa tri lbl. U jednoj - funkcija Date, u drugoj - Format, u trecoj - Right. I SVE TRI RADE NA SVIM RACUNARIMA.
2. Iskopirao sam biblioteku sa racunara na kome sve radi, na ostale, ali uzalud, osnovni program i dalje radi samo na dva, a na druga dva i dalje "puca" na istom mestu, odnosno kod Format, Date i Right. Nasao sam i cetvrti "bug" - kod funkcije ChRW. Ni ona ne radi.
3 U Imediate se nista ne desava kad stavim ?Format... ?Date.
Evo procedure sa ChrW - Label7.Caption = "DANA" & ChrW(352) & "NJI KURS" & " - " & Date 'ChrW(352) vraca nase slovo "Š"
Prvo "pukne" na ChrW, a kad nju eliminisem, onda na Date. I tako u krug. Je li i ChrW deo iste biblioteke, kao prethodne tri ? I sta se uopste u ovakvim situacijama radi ?
Hvala na razumevanju i pomoci. Pozdrav

ChrW je deo VBA biblioteke (klase Strings). To lako možeš proveriti iz Object browsera VBE (F2)

Ipak, ako ti je test sa funkcijom Date prošao na svim računarima onda problem verovatno nije u toj biblioteci nego u tvom programu. To si i potvrdio kopiranjem biblioteke. Nije mi jasno kad kažeš da se u Immediate window ne dobije ništa kad staviš ?format(now, "HH:MM"). Posle Enter bi trebalo kao rezultat da se prikaže sistemsko vreme u satima i minutima - pretpostavljam da si mislio da se ne dobije greška?

Uglavnom pažnju treba usmeriti na tvoj program i videti šta se dešava. Ja bih krenuo ovako
Izbacio za početak sav kod koji reaguje na događaje ako ga ima AutoOpen, SheetActivate, SelectionChange kako bi testiranje bilo lakše. Proveriti šta se dešava bez toga.

Ako nisi koristio OptionExplicit ja bih to ubacio na vrhu modula. To zahteva od programera da sve promenljive budu deklarisane i da se ništa ne podrazumeva. Često dešava da neki neispravno unesen naziv promenljive napravi probleme. Naravno, onda sve promenjljive moraš deklarisati, što može biti zamorno, ali je dugoročno korisno. Proveriti šta se dešava nakon ove intervencije.

Ako ne pomogne, onda bih ubacio MsgBox format(now, "HH:MM") na početku programa - pre učitavanja forme i videti da li ovo radi.
Ako ne radi, probaj da formiraš novu tabelu i da u nju kopiraš kod i sve što je u staroj.
Ako radi, kao što pretpostavljam, onda postavi istu liniju na strateška mesta u programu i vidi gde će program da se zaustavi. Onda od prethodnog mesta gde radi i gde se zaustavi tražiš grešku.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Nismo se razumeli oko Imediate. Ne dobija se sistemsko vreme, vec poruka o gresci sledece sadrzine:
"Can't find project or library".
Probacu sve ovo sto mi savetujes, mada su mi sve promenljive deklarisane, i nemam ove dogadjaje koje si naveo.Pozdrav

Znači na računarima na kojima ne radi tvoj program, kad uneseš u Immediate window
?format(Now, "HH:MM")
javlja grešku "Can't find project or library".

Onda se cela ova priča vraća na početak i problem sa bibliotekom.

Malo mi je to čudno jer kako onda radi test primer koji si uneo? Uporedi reference da li su iste i probaj u jedostavnom test primeru sa labelama da dodaš sve referece kao u tvom programu. Šta se onda dešava? Možda imaš neke reference koje se "sudaraju"?

Probaj i da uneseš u Imediate window eksplicitnu referecnu na VBA biblioteku
?VBA.format(VBA.Now, "HH:MM")

Nije loša ideja da komplajliraš projekat i vidiš da li se ima nekih poruka u Referencama, mada izgleda da to kod tebe nije problem. http://www.cpearson.com/Excel/MissingReferences.aspx.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Uneo sam u Immediate "?VBA.format(VBA.Now, "HH:MM")" + enter i sada mi - vraca tekuce vreme.
Kad unesem "?VBA.Date" i enter - vrati mi tekuci datum. (19.08.10) u narednom redu. I to dok je makro u "bug-u". Sve cetiri sporne funkcije su u razlicitim procedurama.

Onda je moguće da imaš neke reference koje se dupliraju. Uporedi liste referenci u test rutini i tvom programu i vidi da li postoje razlike. Npr. probaj da isključiš Microsoft Office Object Library (http://stackoverflow.com/quest...ary-for-standard-vba-functions)
Ako ništa drugo možeš da zameniš u tvom programu svuda sporne funckije sa VBA.nazivfunkcije.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Kao prvo, jos jedanput zelim da se zahvalim na konstantnoj podrsci i konkretnoj pomoci.
Kao drugo, Microsoft Office Object Library sam iskljucio svuda, i nije dalo nikakve rezultate.
Ali, trece, i za mene najbitnije, je cinjenica da kada sam u svim "spornim" funcijama dodao "VBA." ispred funkkcija, - SVE JE PRORADILO. Dakle, problem je resen, i zaista sam zbog toga presrecan. Ostaje mi samo nedoumica, da li ubuduce u svim svojim projektima da primenim istu "strategiju", da bih predupredio eventualne probleme ? Problem sam testirao u medjuvremenu na jos dva "tudja" racunara i na oba je bio isti problem. Dakle, radilo je kako treba - samo na "2 od 6".
Na kraju, prilazem jedan od "problematicnih" dokumenata, (koji inace sluzi za preuzimanje zvanicnog srednjeg kursa evra sa sajta NBS i pregled svih kurseva od 2007), u izvornoj verziji, bez "VBA.funkcija". U njemu su sadrzane sve sporne funkcije - Right, Date, Format, ChrW. Pozdrav.

Kad sam u tvojoj radnoj svesci prekinuo izvršavanje makroa i pogledao References postoji referenca na nestandardnu biblioteku


Kad sam nju isključio proradilo mi je na jednom računaru na kom sam probao.
Ako je ova biblioteka potrebna za funkcionisanje tvog makroa moraš je instalirati na svakom računaru

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Sad sam i ja kod mene to uradio, i radi bez "vba. ispred funkcije". Znaci, ta cekirana, a neinstalirana referenca je pravila problem... Trebalo je odmah da prikacim fajl. Hvala ponovo i pozdrav

Uvek je zanimljivo videti kako drugi rešavaju iste zadatke -- pogledaj primer koji sam skoro postavio u temi Linkovanje na sajt NBS i preuzimanje kursne liste.
Smatram da je navigacija značajno komotnija i, takođe, dani vikenda se preskaču direktno iz koda. (Ostaje jedino neznatnija smetnja za dane praznika ali mi ovo nije bilo značajno.) Hiperlink ka NBS kursu je bio tu radi kontrole i ostavio sam ga kao zgodan dodatak.

Kao moguće "proširenje" moglo bi da se ubaci iscrtavanje grafika promene kursa za traženi mesec. Prethodno bi, jasno, morali da imamo negde definisanu tabelu koja bi se popunjavala podacima (ako već nisu odranije upisani). Dalje, zanimljiva bi bila opcija grafičkog prikaza promene valute u odnosu na drugu valutu (EUR/USD ili USD/CAD) itd.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!