, datum /tijdstip, bijdrage: Carlos beguigne {Carlos beguinge, 12 maart 1993} {creëren, met getdate] [de datum en laat je programma,     gebruik van [datum] de datum te veranderen.Te allen tijde in een andere code,    , en heeft het als je wilt...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. Voor de verkeerde} {controleren                                                                                          .} {programma; voor de berekening van de inleiding van de procedure), (het begin van de mobiele digitale string},     val (CH, mijn code); - waarden.Controleer  },       als code < > 0 dan {fout.Als het fout is dan de procedure  } {}       begonnen,             clrscr;,             Writeln (en' de verkeerde datum en&#tabel 39;, en', druk een toets te beginnen met de',  ;);           readln;,             beginnen (code),         aan het einde van de maand; {andere processen, mei, en  },       als (flagm = vals) {jaar dan.}，    开始，      M =我；，      flagm：= true；，      写（CCH）；，      CCH：=�；，    结束；如果，    （flagd = false）和（CCH >；# 0）然后，    开始，      D =我；，      flagd：= true；，      写（CCH）；，      CCH：=�；，      结束；如果，    （甲硝唑= false）和（CCH >；# 0）然后，    开始，      y =我；，，      甲硝唑：= true；，      CCH：= ；，    端；，  CH：=和# 39；与# 39；；，，程序结束；resetvars；{从程序启动}，{重置所有变量开始。},     clrscr;,     code: = 0;,     d = 0, M = 0;    ;,     y = 0;  ,   flagd:= valse;,     flagm:= valse;,     metronidazol: = vals;,     CH:= en' en',     CCH:= 0, #; aan het einde van de procedure; {};, van de belangrijkste procedures, beginnen, bekend als de     resetvars; {proces resetfields}, en     (CCH < > ) {van het toetsenbord        } {tot beginnen met "of", of "; in  },           CCH:= {druk.}，      而（CCH <；>；# 47）和（CCH <；>；# 13）做的，        开始，          CH = CH + CCH；{添加每个数值特征}，          写（CCH）；{三}的字符串变量，          CCH：=看；，        端；，      计算；{ }调用程序计算，    结束，结束，开始；；{主程序调用}，{开始}  clrscr；程序，  getdate（Y，M，D，陶氏）；，  Writeln（与#今天是39；39、天#；[道]，与# 39；，与# 39；，，          米：0，39和#；/'；，D：0，与# 39；/'；，Y：0）；，  方法；，  WRDe VV - regeling (en' wil je deze datum?');,   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.,