Get / set date / heure du système

Get / set date / heure du systeme

Get / set date / heure du systeme : Plusieurs milliers de conseils pour vous faciliter la vie.

le PC Date/heure du systeme

l'auteur: CARLOS BEGUIGNE

{Creee par Carlos Beguinge, 12 Septembre 1993}
{pour obtenir les systemes de date a l'aide de [GetDate] et vous permettant de vous
changement de la date a l'aide de [SetDate]. Hesitez pas a incorporee dans une
un autre code, et de le modifier comme vous le souhaitez... Profitez-en.}
{P. S. Toutes les modifications apportees a ce code mieux s'il vous plaît poster de nouveau a moi
decrivant les modifications, Merci.}

utilise le Dos, Crt

const
jours : array [0..6] of String[9] = {Tableau des jours de la Semaine mis ici}
( & #39 dimanche & #39 , & #39 lundi & #39 , & #39 mardi & #39 ,
& #39 mercredi & #39 , & #39 jeudi & #39 , & #39 vendredi & #39 ,
& #39 samedi & #39 )
var
y, m, d, dow, I, Code : Mot {definir les variables ici}
changedt, cch : Char
flagd, flagm, flagy : boolean
ch : String

en debut de procedure(Code: Word) Avant {Pour permettre d'aller de l'avant dans une }
{procedure. En cas d'Erreur }
{Verification. }

procedure de calcul {Appelee a partir de la procedure de Demarrage }
begin {Deplace la chaîne numerique }
Val(ch, I, Code) {valeur numerique. puis verifie }
si le code est <> 0 alors {erreurs. si l'erreur true }
begin {puis appelle la procedure de Demarrage }
clrscr
Writeln( & #39 Erreur dans la Date de Declaration & #39 , & #39 Appuyez sur n'importe quelle touche pour Demarrer a Nouveau & #39 )
readln
demarrer(Code)
end {d'Autre Processus de Mois, le Jour et l'}
if (flagm = false) then {Annee. }
begin
m := I
flagm := true
write(cch)
cch :=#0
fin
if (flagd = false) et (cch > #0),
begin
d := I
flagd := true
write(cch)
cch :=#0
fin
if (flagy = false) et ( cch > #0),
begin
y := I
flagy := true
cch :=#13
fin
ch := & #39 & #39
fin

procedure ResetVars {Appelee a partir de la procedure de Demarrage }
begin {Reinitialise toutes les variables. }
clrscr
Code :=0
d :=0
m :=0
y :=0
flagd := false
flagm := false
flagy := false
ch := & #39 & #39
cch := #0
fin

la procedure de demarrage {Appelee a partir du Programme Principal }
begin
ResetVars {Appels de procedure ResetFields }
while (cch <> #13) do {Obtient entree a partir du clavier}
begin {jusqu'a ce qu'un '/' ou 'Entree est }
cch := readkey {presse. }
while (cch <> #47) et (cch <> #13)
begin
ch := ch cch {Ajoute la chaque type de caracteres}
write(cch) {ter de la variable de chaîne }
cch := readkey
fin
calculer {Appelle la procedure de Calcul }
fin
fin

begin {Programme Principal qui appelle }
clrscr {Debut de procedure }
GetDate(y,m,d,dow)
Writeln( & #39 aujourd'Hui, c'est & #39 , jours[dow], & #39 , & #39 ,
m:0, & #39 / & #39 , d:0, & #39 / & #39 , y:0)
Writeln
Write( & #39 aimeriez-vous changer cette Date? & #39 )
readln(changedt)
si upcase(changedt) = & #39 Y & #39
begin
demarrer(Code)
clrscr
SetDate(y,m,d) {Definit la Date en cas de changement de }
Writeln( & #39 aujourd'Hui, c'est & #39 , jours[dow], & #39 , & #39 ,
m:0, & #39 / & #39 , d:0, & #39 / & #39 , y:0)
readln
fin
else
begin {Date reste inchangee }
Writeln( & #39 aujourd'Hui & #39 #39 & #39 s date n'a PAS Ete change & #39 )
Writeln( & #39 aujourd'Hui, c'est & #39 , jours[dow], & #39 , & #39 ,
m:0, & #39 / & #39 , d:0, & #39 / & #39 , y:0)
readln
fin
a la fin.