Il Linguaggio Fortran 90/95

5.12 Procedure intrinseche 265
DATE_AND_TIME([DATE],[TIME],[ZONE],[VALUES])
Questa subroutine restituisce la data e il tempo correnti così come forniti dall’orologio interno
del sistema. I suoi argomenti, tutti opzionali e tutti con attributo INTENT(OUT), sono:
• DATE: stringa di (almeno) otto caratteri; gli otto caratteri più a sinistra sono posti pari a
CCYYMMDD con il significato di century/year/month/day.
• TIME: stringa di (almeno) dieci caratteri; i dieci caratteri più a sinistra sono posti pari a
HHMMSS.SSS con il significato di hour/minute/second/millisecond.
• ZONE: stringa di (almeno) cinque caratteri; i cinque caratteri più a sinistra sono posti pari
a +HHMM, dove HH ed MM rappresentano le ore ed i minuti di differenza rispetto al tempo
medio di Greenwich (anche detto UTC, Coordinate Universal Time).
• VALUES: array di tipoINTEGER di lunghezza (minima) pari ad otto. Gli elementi diVALUES
hanno il seguente significato:
value(1) anno corrente
value(2) mese corrente
value(3) giorno corrente
value(4) differenza, in minuti, rispetto all’UTC (0-59)
value(5) ora (0-23)
value(6) minuti (0-59)
value(7) secondi (0-59)
value(8) millisecondi (0-999)
Se qualcuna di queste informazioni non è disponibile, il corrispondente valore sarà posto pari a
-HUGE(0).
Un esempio di utilizzo della routine DATE_AND_TIME è il seguente:
CHARACTER(LEN=8) :: d
CHARACTER(LEN=10) :: t
CHARACTER(LEN=5) :: z
...
CALL DATE_AND_TIME(DATE=d,TIME=t,ZONE=z)
PRINT*, "Data corrente: ",d(7:8),"/",d(5:6),"/",d(1:4)
PRINT*, "Ora corrente: ",t(1:2),":",t(3:4),":",t(5:10)
PRINT*
PRINT*, "Differenza rispetto all’UTC:"
PRINT*, "Ore: ",z(2:3)," Minuti: ",z(3:4)
che, eseguito il giorno 8 dicembre 2001 alle ore 12:48, fornisce il seguente risultato:
Data corrente: 08/12/2001
Ora corrente: 12:48:12.607