Il Linguaggio Fortran 90/95

278 Unità di Programma
mnth = mounth-2
IF (mnth max_days(mnth)) RETURN
hundreds = yr/100
yr = yr - 100*hundreds
! I giorni sono numerati a partire dalla Domenica (0) fino al
! Sabato (6)
day_ptr = MOD(day+(26*mnth-2)/10 + 5*hundreds + &
yr + (yr/4) + (hundreds/4), 7)
weekday = day_name(day_ptr)
RETURN
END FUNCTION day_of_week
PROGRAM which_day
IMPLICIT NONE
INTERFACE
FUNCTION day_of_week(year,mounth,day) RESULT(weekday)
IMPLICIT NONE
INTEGER, INTENT(IN) :: year, mounth, day
CHARACTER(LEN=9) :: weekday
END FUNCTION day_of_week
END INTERFACE
INTEGER :: year, mounth, day
!
WRITE(*,*) "Inserisci la data come gg, mm & aaa: "
READ(*,*) day,mounth,year
WRITE(*,"(1X,A,A)") "Giorno: ", day_of_week(year,mounth,day)
STOP
END PROGRAM which_day
Un possibile esempio di utilizzo di questo programma potrebbe essere il seguente:
C:\MYPROG>which_day
Inserisci la data come gg, mm & aaa:
12 05 1972
Giorno: Venerdi