 | La procedura è scritta
in Pascal:
 | organizza le informazioni necessarie alla stampa della
Data a partire dai valori forniti dalla Funzione DataIN, inclusa in questa libreria. |
|
Codice Sorgente |
|
 |
 |
 |
PROCEDURE
Data (riga,colonna,testo,sfondo,come:integer);
gsett:array [0..6] of string[9] = (' Domenica',
' Luned́',' Marted́','Mercoled́',' Gioved́',
' Venerd́',' Sabato');
VAR
s:string;
Anno,Mese,Giorno,NomeGiorn:word;
BEGIN
textcolor(testo);
textbackground(sfondo);
gotoxy(colonna,riga);
DataIN(Anno, Mese, Giorno, NomeGiorn);
IF come=0 THEN write(gsett[NomeGiorn],' ');
str(Giorno,s); IF length(s)=1 THEN s:='0'+s;
write(s,'/');
str(Mese,s); IF length(s)=1 THEN s:='0'+s;
write(s,'/');
str(Anno,s); IF length(s)=1 THEN s:='0'+s;
write(s);
END;
|
|
