Γειά σας.

Χρησιμοποιώ σχεδόν πάντα για να εμφανίσω στην οθόνη νομισματικές τιμές την FormatCurrency() function για να εμφανίζονται οι τιμές σύμφωνα με τις ρυθμίσεις του χρήστη.
Μετά την ενημέρωση όμως των λειτουργικών ορισμένων χρηστών από Windows XP Service Pack 2 σε Service Pack 3, η συγκεκριμένη function εμφανίζει τις τιμές πάντα με το δολλάριο ($) ανεξάρτητα από τις ρυθμίσεις του χρήστη.

Το δοκίμασα σε αρκετούς υπολογιστές, και το αποτέλεσμα ήταν ότι πριν την εγκατάσταση του Service Pack 3 το πρόγραμμα εμφάνιζε τις τιμές με το σωστό σύμβολο (δηλ. σύμφωνα με τις ρυθμίσεις του χρήστη από το "Rergional and Language options") αλλά μετά την εγκατάσταση του Service Pack 3 οι τίμες εμφανίζονται πάντα με δολλάριο ($).

Έχω ψάξει αρκετά αυτές τις μέρες αλλά δεν έχω βρεί κάτι.

Μήπως ξέρει κάποιος κάτι για αυτό;;;;;

Ενδιαφέρον εύρημα, θα το έχω υπόψη μου να το κοιτάξω. Φοβάμαι ότι μιας και η VB6 είναι πλέον εκτός υποστήριξης, θα χρειαστεί να επέμβεις με κώδικα ώστε να εξασφαλίσεις ότι θα έχεις το σωστό αποτέλεσμα...

 

George J.

---

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

Θα ήθελα να προσθέσω οτι το παραπάνω πρόβλημα προκύπτει μόνο οταν τρέχουμε την function FormatCurrency() από VB Script.

Όντως είναι ένα πρόβλημα αλλά η microsoft έδωσε ένα workaround εδώ

Αντιγράφω:

WORKAROUND

loadTOCNode(1, 'workaround');To work around this problem for VBScript, use the SetLocale function to set the language locale that you want before you use VBScript built-ins.

For example, the following script sets the language locale to English (United Kingdom) and then uses the VBScript built-ins.

SetLocale(2057)
Wscript.Echo "Date is:" & DateValue(Now)
Wscript.Echo FormatCurrency(123.45)

---

Manos

Χτες έγινε release το fix: http://support.microsoft.com/kb/951978. Μπορεί να το πάρει κάποιος με Winodows Update.

 

George J.

---

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

George J. Capnias:

Χτες έγινε release το fix: http://support.microsoft.com/kb/951978. Μπορεί να το πάρει κάποιος με Winodows Update.

 

George J.

Σας ευχαριστώ πολύ, είχε αρχίσει να μου δημιουργεί μεγάλο πρόβλημα ...