Autor: Witold Filipczyk (witek_at_Jan.mat.uni.torun.pl)
Data: Mon 17 Jan 2000 - 15:15:41 MET
Marek Nazarko <mnazarko_at_nospam.bigfoot.com> wrote:
> Widzialem ostatnio komputer 486, ktory mial problem z data roku 2000.
> Otoz po przebootowaniu ustawial date na 2049 czy jakos tak. Recznie w
> BIOS da sie ustawic 2000, ale reboot powoduje spowrotem przestawieni
> na 2000. Jest na to lekarstwo? (Win 3.1+DOS 6.22).
program y2k;
{ Autor: Witold Filipczyk <witek_at_mat.uni.torun.pl>
Program przeznaczony jest dla pecetow, ktore nie zmienily poprawnie daty
i nawet po recznej jej zmianie po wylaczeniu komputera ustawiaja bledna
date. Nalezy ustawic poprawna date, skompilowac program, jego wywolanie
wstawic do AUTOEXEC.BAT.
}
uses Dos;
var rok,m,d,dt:word;
czas:longint;
T:DateTime;
F:SearchRec;
S:File;
begin
Assign(S,ParamStr(0));
Reset(S);
GetDate(rok,m,d,dt);
GetFTime(S,czas);
UnpackTime(czas,T);
if rok<>T.Year then begin
if m<T.Month then T.Year:=T.Year + 1
else if m=T.Month then if d<T.Day then T.Year:=T.Year + 1;
SetDate(T.Year,m,d)
end;
T.Month:=m;
T.Day:=d;
PackTime(T,czas);
SetFTime(S,czas);
Close(S);
end.
Jest tylko problem z 29.02. Zmieni sie data od razu na 01.03. Trzeba wtedy
w marcu ustawic poprawna date i uruchomic ten program.
Mozna tez napisac programik shutdown, ktory zmieni rok na 1996 dla
przestepnych albo na 1997 dla innych. Programik ten zawieszal by komputer,
tak zeby trzeba go bylo wylaczyc lub zrebootowac.
--
Witold Filipczyk
mailto:witek_at_mat.uni.torun.pl
http://www.mat.uni.torun.pl/~witek
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 19:34:29 MET DST