,, at pc - system dato /tidspunkt, bidragyder: carlos beguigne (oprettet af carlos beguinge, sept 12, 1993), (programmet for at få systemerne dato med [getdate] og tillader det,    ændre datoen med [setdate].det er gratis at indarbejdes i alle,    anden kode, og ændre det, som du vil.Enjoy.}, {P.S. Any changes made to make this code better please post it back to me,   outlining the changes, Thank you.}, uses Dos, Crt;, const,   days : array [0..6] of String[9] = {Array of Weekdays set here},     ('Sunday','Monday','Tuesday',,      'Wednesday','Thursday','Friday',,      'Saturday');, var,   y, m, d, dow, I, Code : Word; {Setting the variables here},   changedt, cch : Char;,   flagd, flagm, flagy : boolean;,   ch : String;, procedure start(Code: Word); Forward; {To allow to go forward in a },                                              {procedure. anvendes til fejl),                                               {kontrol.}, procedure beregne; (ringede fra proceduren starter}, begynder {bevæger sig den numeriske tråd),    val (ch - kode) (numeriske værdi.så      kontrol}, hvis kode < > 0 og (for fejl.hvis fejl sande},      begynde {så udbud start),        clrscr;,        writeln (' fejl i dato, erklæring og', og', tryk på en tast begynde igen og'),        readln;,        start (kode),      ende; (anden proces måned, dag, og den      hvis (flagm = falske) {år.},      begynder,        m = i,        flagm: = sandt,        skrive (efternavn),        efternavn: =�,     ;,      hvis (flagd = falske) og (cch >�),      begynder,        d: = - og,        flagd: = sandt,        skrive (efternavn),        efternavn: =�,       ;,      hvis (flagy = falske) og (cch >�),      begynder,        y: = jeg,,,        flagy: = sandt.        efternavn: = ,     ;,    ch: = ' ',;, procedure resetvars; (ringede fra proceduren starter}, begynder {nulstiller alle variable.},    clrscr;,    kode: = 0,    d: = 0,    m = 0,    y: = 0,    flagd: = falske,    flagm: = falske,    flagy: = falske,    ch: = ' og',    efternavn: =�,;, procedure, {ringede fra hovedprogram}, begynder,    resetvars; (kalder procedure resetfields},   , mens (cch < > ) {får input fra tastaturet},      begynde (indtil " /" eller " indrejse),        efternavn: = readkey; (presset.},       , mens (cch < >/) og (cch < > ),          begynder,            ch: = ch + cch; (tilføjer hver numeriske vægt),            skrive (efternavn); (ter til snoren variabel),            efternavn: = readkey;,         ;,        beregne; (kalder procedure beregne},     ;,;, begynder (vigtigste program, der opfordrer},    clrscr; (procedure start),    getdate (y m d, dow),    writeln (' i dag er ' dage [yao], og', og',,            m: 0, og' /' d: 0, og' /', y: 0),    writeln;,    write (' vil de ændre den dato?');,   readln(changedt);,   if upcase(changedt) ='Y' then,      begin,      start(Code);,      clrscr;,      SetDate(y,m,d); {Sets the Date if Changed },      Writeln('Today is ', days[dow],', ',,           m:0, '/', d:0, '/', y:0);,      readln;,      end,      else,      begin {Date remains unchanged },         Writeln('Today'#39's date Was NOT changed ');,         Writeln('Today is ', days[dow],', ',,            m:0, '/', d:0, '/', y:0);,         readln;,      end;, end.,