Új hozzászólás Aktív témák

• #108049 DarthSun Ármester gban #108048

  Új Válasz 2024-09-08 01:47:20 #108049

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  DarthSun

  Ármester

  válasz gban #108048 üzenetére

  Akkor van olyan amire hatástalan a cucc. 2 Lehetőség, iF 1996 and 2096 then year:=2024, pici kóddal az autoexecbe, de ezt minden évre, mondjuk sok példányban 2050- ig vagy 2100- ig(ha hegylakónak lesz). Vagy a jelenlegi órában getdate, és 1996-2096 esetén szintén bevésni az aktuális évet, de ezt is be kell pakolni az autoexecbe(nem sok RAMot foglal).

  Az elsőt gyorsan megírtam(Pascalban, közel szinkronkódoló vagyok, csak diktálni kell, mit csináljon a program).

  {$A+,B+,D+,E+,F+,G+,I+,L+,N+,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
  {$M 16384,0,16384}
  program datum;

  uses dos,crt;

  var Ev,Ho,Nap,Hetnap:word;

  procedure dateset;
  begin
  GetDate(Ev,Ho,Nap,Hetnap) ;
  writeln;
  textcolor(14);textbackground(0);highvideo;
  writeln('***************************');
  textcolor(5);textbackground(1);highvideo;
  writeln(' ',Ev,' - ',Ho,' - ',Nap,' ');
  if Ev<>2024 then Ev:=2024;
  SetDate(Ev,Ho,Nap) ;
  textcolor(4);textbackground(1);highvideo;
  write(' ',Ev);
  textcolor(5);textbackground(1);highvideo;
  write(' - ',Ho,' - ',Nap,' ');
  textcolor(7);textbackground(1);lowvideo;
  writeln;
  textcolor(14);textbackground(0);highvideo;
  writeln('***************************');
  textcolor(7);textbackground(0);lowvideo;
  writeln;
  end;

  Begin
  dateset
  End.

  Persze a defektes BIOS nem ismeri már a 2000 feletti szökőéveket sem, de a teljes naptár kódját már korábban megírtam 2100- ig, csak be kell pakolni a dateset elé, pár kb+ leforgatva.

Új hozzászólás Aktív témák