Article View: pl.comp.bazy-danych.msaccess
Article #194Re: y2k w Access2.0 - proba rozwiazania
From: Marek Kalmarczyk
Date: Wed, 18 Nov 1998 02:16
Date: Wed, 18 Nov 1998 02:16
31 lines
1829 bytes
1829 bytes
>> 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)???
Procedura tu przytoczona jest jedynie przykladem.
Zamiast "=1900" mozna wprawadzic "<1940" lub inny warunek.
>rozwiazaniu niemozliwe jest celowe wpisanie roku 1900, np. gdy aplikacja
>wymaga wprowadzania dat "historycznych".
Zgadam sie z toba w zupelnosci,
lecz dla aplikacji nie "historycznych", a wprowadzajacych
duza ilosc danych w postaci daty, wygodniejsze jest wprowadzanie
roku w postaci dwucyfrowej.
>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 ;-)
Tu masz calkowita racje, tez mam takie zdanie.
PoZdro
Marek
Technical Details
Message-ID:
<72tbe5$s7f$1@korweta.task.gda.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!orion.cst.tpsa.pl!news.task.gda.pl!not-for-mailReferences:
<3650265F.144FD210@pertus.com.pl> <72qjdk$ruu$1@korweta.task.gda.pl> <36512111.9E2FA7E3@pertus.com.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!orion.cst.tpsa.pl!news.task.gda.pl!not-for-mail From: "Marek Kalmarczyk" <kalmarek@iname.com> Newsgroups: pl.comp.bazy-danych.msaccess,pl.comp.bazy-danych Subject: Re: y2k w Access2.0 - proba rozwiazania Date: Wed, 18 Nov 1998 03:16:38 +0100 Organization: CI TASK http://news.task.gda.pl/ Lines: 34 Message-ID: <72tbe5$s7f$1@korweta.task.gda.pl> References: <3650265F.144FD210@pertus.com.pl> <72qjdk$ruu$1@korweta.task.gda.pl> <36512111.9E2FA7E3@pertus.com.pl> NNTP-Posting-Host: ppp67a.gdansk.tpnet.pl X-Trace: korweta.task.gda.pl 911356165 28911 195.205.247.67 (18 Nov 1998 02:29:25 GMT) X-Complaints-To: abuse@task.gda.pl NNTP-Posting-Date: 18 Nov 1998 02:29:25 GMT X-Newsreader: Microsoft Outlook Express 4.72.2106.4 X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit