Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Giorni
Forum - Pascal - Giorni

Avatar
kissà (Normal User)
Newbie


Messaggi: 1
Iscritto: 04/12/2006

Segnala al moderatore
Postato alle 16:03
Lunedì, 04/12/2006
Ciao sn nuovo d questa  community e programmo sl in pascal (x il momento) da quake mesetto......
mi domandavo se c fosse un modo (tramite programma appunto pascal) x sapere ke giorno è oggi (lunedì, martedì, ecc)...
ringrazio in anticipo kiunque risponderà

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 17:18
Lunedì, 04/12/2006
Innanzitutto benvenuto.
Ti propongo subito una risposta: nell'unità windos del pascal c'è un'utile funzione chiamata GetDate che consente di ottenere la data corrente settata sul tuo sistema operativo. Un piccolo esempio:
Codice sorgente - presumibilmente Delphi

  1. program data;
  2. uses crt,windos;
  3. var y,m,d,dow:word;
  4.     dows:string;
  5.  
  6. begin
  7.     clrscr;
  8.     GetDate(y, m, d, dow);
  9.     wirteln('Oggi è il giorno ',d,' del mese ',m,' dell''anno ',y);
  10.     case dow of
  11.          0: dows:='domenica';
  12.          1: dows:='lunedì';
  13.          2: dows:='martedì';
  14.          3: dows:='mercoledì';
  15.          4: dows:='giovedì';
  16.          5: dows:='venerdì';
  17.          6: dows:='sabato';
  18.     end;
  19.     wirteln('Oggi è ',dows);
  20. end.


La defininizione ufficiale di questa procedura è:
Codice sorgente - presumibilmente Pascal

  1. procedure GetDate(var Year, Month, Day, DayOfWeek:word);
  2.  
  3. Gli argomenti della procedura hanno un range standard:
  4. Year: 1980..2099
  5. Month: 1..12
  6. Day: 1..31
  7. DayOfWeek: 0..6 (dove 0 corrisponde a domenica)


Ultima modifica effettuata da Il Totem il 04/12/2006 alle 17:19
PM Quote
Avatar
nikipe_silver (Founder Member)
Expert


Messaggi: 339
Iscritto: 20/09/2005

Segnala al moderatore
Postato alle 21:46
Giovedì, 07/12/2006
oppure: sapendo il giorno della settimana dl 1° gennaio, dividi il giorno inserito(totale, cioe' dal 1 gennaio)/ 7, poi tramite un case decidi che giorno e'(0:Giorno del 1°gennaio,1:(continui in ordine..))

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 9:12
Domenica, 10/12/2006
Testo quotato

Postato originariamente da nikipe_silver:

oppure: sapendo il giorno della settimana dl 1° gennaio, dividi il giorno inserito(totale, cioe' dal 1 gennaio)/ 7, poi tramite un case decidi che giorno e'(0:Giorno del 1°gennaio,1:(continui in ordine..))


Sì, se vuoi complicarti la vita è giusto :rotfl:.

PM Quote