Get / set-System-Datum / Zeit

Get / set-System-Datum / Zeit

Get / set-System-Datum / Zeit : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Das PC-System-Datum/Uhrzeit einstellen

Autor: CARLOS BEGUIGNE

{Erstellt von Carlos Beguinge, 12. September 1993}
{Programm, um das Datum der Systeme verwenden [GetDate] und so dass Sie erhalten
Ändern Sie das Datum mit [SetDate]. Zögern Sie in jeder integriert
anderen code, und ändern Sie es wie Sie wollen... Genießen.}
{P.S. Alle Änderungen an diesem Code besser bitte Stelle machen zurück zu mir
gliedern die Änderungen, vielen Dank.}

Dos, Crt verwendet;

const
Tage: Array [0..6] Zeichenfolge [9] = {Array von Wochentagen hier}
('Sunday', 'Montag', 'Dienstag',
'Mittwoch', 'Donnerstag', 'Freitag',
'Samstag');
var
y, m, d, Dow, i., Code: Word; {Die Variablen setzen hier}
Changedt, Cch: Char;
Flagd, Flagm, Flagy: boolean;
ch: String;

Prozedur Start(Code: Word); Vorwärts; {Zu ermöglichen, um vorwärts zu gehen, eine}
{Verfahren. Für Fehler verwendet}
{Überprüfen.}

Verfahren berechnen; {Start-Prozedur aufgerufen}
BEGIN {bewegt sich die numerische Zeichenfolge auf}
Val (ch, ich Code); {numerischen Wert. überprüft dann}
Wenn <> 0 dann code {für Störungen. Wenn Fehler wahr}
BEGIN {dann rufen Sie Start-Prozedur}
ClrScr;
Writeln ('Fehler im Date-Anweisung', 'Drücken einer beliebigen Taste wieder starten');
ReadLn;
Start(Code);
Ende; {Sonst Prozess Monat, Tag, und}
Wenn (Flagm = False) {Jahr}.
beginnen
m: = I;
Flagm: = True;
Write(CCH);
CCH: = #0;
Ende;
Wenn (Flagd = False) und (Cch > #0) dann
beginnen
d: = I;
Flagd: = True;
Write(CCH);
CCH: = #0;
Ende;
Wenn (Flagy = False) und (Cch > #0) dann
beginnen
y: = I;
Flagy: = True;
CCH: = #13;
Ende;
ch: = '';
Ende;

Prozedur ResetVars; {Start-Prozedur aufgerufen}
BEGIN {setzt alle Variable.}
ClrScr;
Code: = 0;
d: = 0;
m: = 0;
y: = 0;
Flagd: = False;
Flagm: = False;
Flagy: = False;
ch: ='';
CCH: = #0;
Ende;

Verfahren an; {Aus Hauptprogramm aufgerufen}
beginnen
ResetVars; {Ruft Prozedur ResetFields}
während (Cch <> #13) {ruft Eingaben von der Tastatur}
BEGIN {bis ein '/' oder 'Enter ist}
CCH: = Readkey; {gedrückt.}
während (Cch <> #47) und Do (Cch <> #13)
beginnen
ch: = ch + Cch; {Fügt die einzelnen numerischen Kassettendecken}
Write(CCH); {ter der Zeichenfolgenvariablen}
CCH: = Readkey;
Ende;
zu berechnen; {Ruft Prozedur Compute}
Ende;
Ende;

BEGIN {Hauptprogramm aufgerufen}
ClrScr; {Start Verfahren}
GetDate(y,m,d,dow);
Writeln ('Heute ist', Tage [Dow], ',',
M:0, '/', D:0, '/', Y:0);
Writeln;
Schreiben ('möchten Sie dieses Datum ändern? ');
ReadLn(changedt);
Wenn upcase(changedt) = 'Y' then
beginnen
Start(Code);
ClrScr;
SetDate(y,m,d); {Legt das Datum fest, wenn geändert}
Writeln ('Heute ist', Tage [Dow], ',',
M:0, '/', D:0, '/', Y:0);
ReadLn;
Ende
sonst
BEGIN {Datum unverändert}
Writeln (' heute '#39 Datum wurde nicht geändert');
Writeln ('Heute ist', Tage [Dow], ',',
M:0, '/', D:0, '/', Y:0);
ReadLn;
Ende;
Ende.