Stille PC-systemet dato /tid
bidragsyter: CARLOS BEGUIGNE product: {Laget av Carlos Beguinge, 12 september 1993} {Program for å få systemene date med [getdate] og slik at du kan endre datoen med [setDate]. Føl deg fri til å innlemmes i en annen kode, og endre det som du vil ... Enjoy.} {P.S. Eventuelle endringer som er gjort for å gjøre denne koden bedre kan du legge det tilbake til meg skisserte endringene, takk}
bruker Dos, Crt;
const dager. Matrise [0..6] av String [9] = { Array of Hverdager satt her} ('søndag', 'mandag', 'tirsdag', 'onsdag', 'torsdag', 'Friday', 'lørdag'); Var y, m, d, dow, jeg, Code: Word; {Stille variablene her} changedt, cch: Char; flagd, flagm, Flagy: boolean; ch: String;
prosedyre start (Kode: Word); Framover; {Å tillate å gå videre i en} {prosedyre. Brukes for Error} {Kontroll. }
prosedyre beregne; {Kalt fra prosedyren Start} begin {Flytter numerisk streng til} Val (lm, jeg, Code); {numerisk verdi. deretter sjekker} hvis koden < > 0 så {for feil. hvis feilen true} begin {deretter Ring prosedyre Start} clrscr; Writeln ('Feil på siden Statement "," Trykk en tast for å starte på nytt'); readln; starte (Code); ende; {Else Process Måned, Dag, og} if (flagm = false) deretter {År. } Begynne m: = I; flagm: = true; skrive (CCH); cch: = # 0; ende; if (flagd = false) og (CCH > # 0) deretter begynne d: = I; flagd: = true; skrive (CCH); cch: = # 0; ende; if (Flagy = false) og (CCH > # 0) deretter begynne y: = I; Flagy: = true; cch: = # 13; ende; ch: = ''; end;
prosedyre ResetVars; {Kalt fra prosedyren Start} begin {Nullstiller alle variable. } Clrscr; Kode: = 0; d: = 0; m: = 0; y: = 0; flagd: = false; flagm: = false; Flagy: = false; ch: = ''; cch: = # 0; end;
prosedyre starte; {Kalt fra Main Program} begynne ResetVars; {Calls prosedyre ResetFields} while (cch < > # 13) gjør {Gets inndata fra tastatur} begin {inntil en " /" eller " Enter er} cch: = readkey; {trykket. } While (cch < > # 47) og (CCH < > # 13) gjør begynne ch: = lm + cch; {Legger hver tallkjenne} write (CCH); {ter til strengvariabelen} cch: = readkey; ende; beregne; {Calls prosedyre Compute} ende; end;
begin {Hoved Program som kaller} clrscr; {prosedyre Start} getdate (y, m, d, dow); Writeln («I dag er", dager [dow], ',', m: 0, '/', d: 0, '/', y: 0); Writeln; Skriv ('Vil du endre denne dato?'); readln (changedt); hvis upcase (changedt) = 'Y' deretter begynne start (Code); clrscr; SetDate (y, m, d); {Angir dato hvis Endret} Writeln («I dag er", dager [dow], ',', m: 0, '/', d: 0, '/', y: 0); readln; ende annet begin {Dato forblir uendret} Writeln ('dag' # 39 dato ble ikke endret '); Writeln («I dag er", dager [dow], ',', m: 0, '/', d: 0, '/', y: 0); readln; ende; enden.