Discussion :

[Bergonzoli]

Bonjour,
Si quelqu'un a déjà utilisè la fonction SYS$TIMCON en Fortran 77 sous VMS, je suis preneur d'exemple.
Le but est de récupérer la date et l'heure UTC en cours sous un format JJMMAAAA HHMMSS

Merci

[john stedd]

Bonjour,

personnellement, pour récupérer la date système, j'utilise DATE_AND_TIME, qui, si je ne me trompe pas, est portable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
      integer date_syst(8)
      character*(12) clock(3)
 
      call date_and_time(clock(1), clock(2), clock(3), date_syst)
C     les valeurs entieres de la date (dans l'ordre) : annee, mois, jour
C     ecart heure locale - UTC, heure, minutes, secondes, millisecondes
      a = date_syst(1)
      m = date_syst(2)
      j = date_syst(3)
      dtu = date_syst(4)
      h = date_syst(5)
      mn = date_syst(6)
      sec = date_syst(7)
      msec = date_syst(8)

ce qui t'intéresse le plus est la variable clock sous forme de chaines de caracteres :
clock(1) contient AAAAMMJJ
clock(2) contient HHMMSS.SSS
clock(3) contient HHMM l'écart heure locale - UTC

espérant t'avoir répondu

[genteur slayer]

date_and_time marche très bien, mais il n'existe pas en F77 il me semble que cette subroutine est aparue pour la norme 95. cela dit, au prix d'un simple changement de compilateur, la subroutine est parfaitement portable sur toute les machines

[john stedd]

date_and_time est connu des versions actuelles de g77

[Bergonzoli]

Merci à ceux qui ont repondu ==> tout est OK