[wiorek]

Hej,
Mam problem z formatem dat. W załączniku przesyłam plik z kalendarzem, uruchamia się on po naciśnięciu w komórkę w określonym zakresie. Problem polega na tym, że nie ważne czy skonwertuję czy ustawię daty ręcznie, za każdym razem po wywołaniu makra zmienia on format na amerykański mm/ddd/yyyy. Próbowałem zmienić na kilkanaście sposobów w vba ale za każdym razem fail. Poprosiłbym o pomoc, co zmienić aby format dat był np 30-Sep
Dodam, że ja i każda osoba w firmie ma ustawienia regionu komputera na United State i nie mamy możliwości tego zmienić, więc zakładam, że format się zaciąga stąd automatycznie na mdy ?

---

testsheet.xlsm

Pobierz Plik ściągnięto 14 raz(y) 49.39 KB

[Kaper]

Nie wiem, czy zauważyłeś, że daty wstawiane do komórek to nie daty, a teksty.

Za wstawianie odpowiada ta linia:

Kod:

Range(cCell).Value = Format(sDate, DatePickerX_DateFormat)

w module mdatepicker
więc jeśli zadowalają Cię teksty, to w tym module, na górze znajdziesz stałą z formatem i jak zmienisz ją np. na

Kod:

Public Const DatePickerX_DateFormat = "dd mmm"

to będzie się wstawiał 05 Sep itp.

Ja jednak proponowałbym zmianę pierwszej z tych linii na dwie:

Kod:

Range(cCell).Value = sDate 'Format(sDate, DatePickerX_DateFormat)      Range(cCell).numberformat = "dd mmm"

co spowoduje, że w kalendarzu będą prawdziwe daty, a nie teksty wyglądające jak daty.

[Maciej Gonet]

W module mDatePickerX jest deklaracja:

Kod:

Public Const DatePickerX_DateFormat = "d/m/yyyy"

Ona określa format wyświetlanych dat. Można ją dowolnie zmieniać.
Przykładowo taki zapis powinien zapewnić format, jaki chciałeś:

Kod:

Public Const DatePickerX_DateFormat = "d-mmm"

Skrót nazwy miesiąca jest w języku systemu operacyjnego.
Daty są w postaci tekstowej - tego nie zmieniałem.

---

testsheet.xlsm

Pobierz Plik ściągnięto 20 raz(y) 50.78 KB

[wiorek]

Dziękuję Wam, wyświetla się u mnie poprawnie, zobaczę w poniedziałek jak na innych stacjach to wygląda. Wszystkiego dobrego