Excel VBA - jak ustawić uniwersalny format daty dla różnych lokalizacji?

Question

Witam. Mam prośbę o pomoc. Jaką prawidłową formę daty mam zastosować aby poniższy kod działał poprawnie? Problem w tym że pracuję w Czechach i poniższy kod na czeskim komputerze działa jak najbardziej poprawnie. Niestety na polskim w tym kodzie wywala błąd. Jaką zastosować formę tego kodu aby poprawnie zadziałała na każdym PC niezależnie od lokalizacji?

Zaloguj się, aby zobaczyć kod

PRL · Accepted Answer

Kod: VBScriptZaloguj się, aby zobaczyć kod

PRL · Accepted Answer

W momencie wystąpienia błędu sprawdź wartość zmiennej 'i' i potem sprawdź komórkę o wartości wiersza zmiennej 'i' w kolumnie 'L'. Chodzi o zmienną 'dan4' - tutaj tkwi problem.

JRV · Accepted Answer

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka= DateSerial(danY, danM, danD)

adamas_nt · Accepted Answer

Przyjąłbym czeski wariant rozwiązania, odporny na wpisywanie "-" i z głowy. Przykład z załącznika działa w PL, należałoby sprawdzić (teoretycznie powinien) czy zadziała w CZ.

:arrow:

JRV - No to masz sporo problemów z głowy. W wersji PL + polski Windows takie coś nie przejdzie

I gdzie tu sprawiedliwość?

adamas_nt · Accepted Answer

Może po prostu zapisywać jako liczbę? Sprawdź jak zadziała w CZ.

JaroFon · Answer

Niestety ale w tym wypadku też wywala błąd:

JaroFon · Answer

Już widzę gdzie jest błąd. Problem w tym że w czeskiej lokalizacji forma daty to "d.m.yyyy" a polskiej tp "yyyy-mm-dd", więc muszę to trochę inaczej rozwiązać już przy samym dodawaniu daty do kolumny L. Jeśli kolumnę L sformatuję jako "ogólną" a w kodzie dam coś takiego:

Zaloguj się, aby zobaczyć kod

...to działa poprawnie. Czy takie rozwiązanie będzie prawidłowe? Pytam ponieważ opcji z datami w moim pliku mam sporo i nie chciałbym napotkać po drodze na inne problemy związane z datami.

adamas_nt · Answer

W instrukcji warunkowej sprawdź sobie ustawienia narodowe systemu (Np Application.International(xlDateSeparator) i w zależności od wyniku ustaw właściwe formatowanie lub podstaw (Replace) jedynie separator. Kod będzie działał zarówno "po polsku" i "po czesku"...

P.S. Czy nie mieliśmy tego (lata temu) przy okazji "szychtownicy" (urodziny)?

JaroFon · Answer

Już to było ale z tym separatorem nie mogę sobie poradzi jak to zrobić. Ogólnie widzę że jest problem już przy samym dodawaniu daty do kolumny "L". W pierwszej kolejności od tego muszę zacząć. Do tej pory wszystko robiłem na czeskim komputerze i wszystko było ok. Teraz dość często pracuję również na polskim komputerze i niestety moje pliki nie działają poprawnie gdzie kody mają związek z datami. W jaki sposób prawidłowo dodawać datę do arkusza aby poprawnie wszystko działało na Pl iCZ komputerze? Na chwilę obecną datę dodaję jak w poniższy sposób, niestety poprawnie działa to po stronie czeskiej, po stronie polskiej data w takim formacie nie jest widziana przez Excel jako data.

Zaloguj się, aby zobaczyć kod

PRL · Answer

Zacznijmy od tego, ze data jest liczbą. Taką samą obojętnie w jakiej wersji językowej.

Jedynie format jej przedstawienia różni się.
Operuj w kodzie funkcjami Year(), Month() i Day(). Wtedy nie będziesz miał problemów. Format możesz sobie stosować na końcu obliczeń do odpowiedniego przedstawienia.

Zaloguj się, aby zobaczyć kod

42224 dni minęły od 1900-01-01 do dzisiaj.

JaroFon · Answer

Zrobiłem dodanie daty jak poniżej , gdzie danY to rok danM to miesiąc a danD to dzień. Data się dodaje ale dlaczego jak wpiszę do TextBoxów datę 9.8.2015 to do komórki dodaje się data 1905-01-08? I czy mogę datę dodać tylko z jednego TextBoxa?

Zaloguj się, aby zobaczyć kod

PRL · Answer

Jak w moim opisie... zapraszam na PW i Teamviewer. Stosujesz Year(Rok)? Nie tak... Nie od rok, a od daty.

JaroFon · Answer

ok a jak zrobić aby po dodaniu daty data nie była sformatowana i miała postać np. dzisiejsza 42225

JRV · Answer

w komorce 'Ogólny' format

JaroFon · Answer

Ok, jeśli komórka ma format Ogólny i do takiej komórki dodam datę z kodu VBA to tak komóra automatycznie zostanie sformatowana do postaci daty a chciałbym żeby się nie formatowała ponieważ potem nie mam możliwości ręcznego zmieniania formatu komórki.

JRV · Answer

po dodanju np do A1 range(a1).numberformat=General albo naprostoKod: text Rozwiń Zaznacz wszystko Kopiuj do schowka range(a1)= CDbl(DateSerial(danY, danM, danD))

JaroFon · Answer

Dzięki bardzo, działa wyśmienicie

. Ale jeszcze jedno pytanko. Teraz mój kod wygląda jak poniżej ale jak zrobić to samo tylko z jednej komórki TextBox? Tak aby do TextBoxu dodać datę w postaci "d.m.yyyy" i aby do komórki data została dodana w niesformatowanej postaci?

Zaloguj się, aby zobaczyć kod

JRV · Answer

=cdbl(datevalue(TextBox1.Text))

PRL · Answer

Żebyś się nie męczył z różnymi datami wprowadzanymi przez użytkownika, proponuję 3 pola tekstowe dal roku, miesiąca i dnia.

JaroFon · Answer

Może i było by to dobre rozwiązanie jak była by to tylko jedna data do dodawania ale w moim przypadku jest tego sporo i musiałbym za dużo zmieniać, dlatego chciałbym się ograniczyć tylko do jednego TextBoxu do każdej daty jaka jest w moim przypadku.

PRL · Answer

Czegoś nie rozumiem.
Jeżeli masz pole tekstowe do wpisania daty przez użytkownika, to Polak wpisze '2015-08-09', a Amerykanin '08/09/2015', Czech pewnie '09/08/2015' itd.
To Ty musisz, na podstawie danej wejściowej, zadbać o odpowiednią interpretację danych.

JRV · Answer

Na to jest DateValue(), jak argument idzie nawet 09 Sie 2015

JaroFon · Answer

Nie. Te daty będę wpisywał tylko JA, i z przyzwyczajenia będę wpisywał je zawsze w postaci d.m.yyyy i taką tylko formą muszę się posługiwać. Dlatego jak do komórki dodać datę która jest wpisana w TextBoxie w formacie d.m.yyyy ?

Zaloguj się, aby zobaczyć kod

JRV napisał:
Na to jest DateValue(), jak argument idzie nawet "09 Sie 2015"

Zadanie funkcji DateValue() wywala mi błąd

PRL · Answer

JRV, nie wiem, jak u Ciebie, ale w PL jest błąd:

Zaloguj się, aby zobaczyć kod

Uważam, że najlepiej jest przetworzenie danej wejściowej przez programistę i ją odpowiednio zastosować w zależności od potrzeb...

JRV · Answer

Dla DateValue argument jest String(default)
cytat: "date argument is normally a string expression representing a date"
"If date is a string that includes only numbers separated by valid date separators, DateValue recognizes the order for month, day, and year according to the Short Date format you specified for your system"

Dodano po 6 [minuty]:

Ten sam wynik w trzech przypadkach:

[c3]=datevalue("9.8")
[c2]=datevalue("9.8.15")
[c1]=datevalue("2015-8-9")

Wprowadź datę

JaroFon · Answer

Ostatecznie rozwiązanie z trzema polami TextBox dla jednej daty byłoby najlepszym rozwiązaniem i działa naprawdę wyśmienicie, jednak jak widać na załączonym screenie w moim przypadku tych dat zaznaczonych na czerwono jest sporo i musiałbym dużo zmieniać aby dla każdej daty zrobić trzy pola TextBox. Dlatego byłbym za zastosowaniem jednego TextBoxu dla każdej daty ale żeby działały tak samo poprawnie jak dla trzech TextBoxów. Z tych wszystkich opisów w dalszym ciągu nie wiem jak to zrobić

JRV · Answer

Nie wiem czy sobie sprawę, ale z każdej sytuacji jest nie mniej niż dwa wyjśćia. Jak by miałem plik, następnie znaleźć rozwiązanie.

JaroFon · Answer

Twoje rozwiązanie jest naprawdę fajne i teraz wykorzystałem je u siebie. Jednak w dalszym ciągu nie robi tego czego chcę. Twoje rozwiązanie dodaje datę jako text, a z tego nie wyciągnę daty bez komplikowania sobie kodów VBA, chodzi mi aby data dodawała się w postaci niesformatowanej do daty tylko jako cyferki, coś jak na screenie. Jak na podstawie Twojego rozwiązania zrobić coś takiego? Z tych cyferek niezależnie od lokalizacji zawsze wyciągnę datę i to w takiej formie w jakiej mi się spodoba i nigdy nie będzie problemu czy kod VBA zadziała na komputerze PL czy CZ

JaroFon · Answer

Dzięki wielkie, o to mi właśnie chodziło Teraz jeszcze zostaje kwestia sprawdzenia poprawności działania na komputerze czeskim ale to dopiero za tydzień bo mam urlop. Ale myślę że na czeskiej lokalizacji będzie taka samo jak na PL Czy kwestia wyświetlania poprawnego słowa lat, lata jak widać na screenie było by skomplikowane?

Excel VBA - jak ustawić uniwersalny format daty dla różnych lokalizacji?

Jak zapisywać i odczytywać daty w VBA tak, żeby działały poprawnie na różnych lokalizacjach systemu, bez błędów związanych z formatem daty?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Post #21

Post #22

Post #23

Post #24

Post #25

Post #26

Post #27

Post #28

Post #29

Post #30

Podsumowanie tematu