🚀 go-pugleaf

Marek Kalmarczyk wrote:
> 
> Witam wszystkich
> 
> W swoich aplikacjach problem y2k rozwiazalem w ponizszy sposob:
> 
> Sub a_AfterUpdate ()
> If Year(Me!a) = 1900 Then
>   Me!a = DateAdd("yyyy", 100, Me!a)
> End If
> End Sub

przepraszam, a co z rokiem 2001 (i nastepnymi)??? Ponadto w tym
rozwiazaniu niemozliwe jest celowe wpisanie roku 1900, np. gdy aplikacja
wymaga wprowadzania dat "historycznych". Przypadek moze niezbyt czesty,
ale...

> Oczywiscie rozwiazanie dotyczy pola daty w formacie krotkim,
> przy roku wprowadzanym czterocyfrowo problem nieistnieje.

Oczywiscie. Dlatego moja propozycja po prostu wymusza za pomoca maski
wprowadzanie roku czterocyfrowo. Ma to swoje wady i zalety (osobiscie
uwazam - jednak wiekszosc zalet), ktore zreszta opisalem w mini-helpie
przykladu, o ktorym wspomnialem w poprzednim mailu.

Tak nawiasem, moj kolega wymyslil inne proste rozwiazanie, nieco
filozofia przypominajace Twoje. Mianowicie sprawdzac, czy wprowadzony
rok miesci sie w zakresie np. 1940-2040. Np. w tabeli, w polu
data/godzina, wprowadzic regule poprawnosci:

Between #01.01.1940# And #01.01.2040#

Wowczas jesli nawet user wklepie np. 1.1.01, Access zinterpretuje date
jako 1.1.1901, a regula nie dopusci do "przyjecia" takiego roku.

Jednak uwazam, ze takie "rozwiazanie" w i po roku 2000 bedzie tylko
dezorientowalo usera, bo i tak musi wprowadzic rok czterocyfrowo, aby
pole przyjelo rok 20xx. Ponadto daty musza miescic sie w zalozonym
okresie. Co prawda dla typowego np. wystawiania faktur moze byc
wystarczajace, ale po roku 2040 aplikacja w ogole przestanie dzialac...
(aczkolwiek wowczas nie bedzie to juz nasze zmartwienie ;-)

Pozdrawiam -
	Stanley