forums.silverfrost.com

[Anonymous]

Hi everybody,

I just discovered a strange thing in the IDATE Fortran-routine.
The following piece of code

INTEGER*4, DIMENSION(1:3) :: today
CALL IDATE (today) ! today(1)=day, (2)=month, (3)=year
PRINT*, today(1), today(2), today(3)

produces the result

7 6 106

7 is correct, 6 is also correct, but why 106 for the year?
Is this a compiler error, or am I doing something wrong?

Any advice is very much appreciated!
Lucas.

Lucas

[PaulLaidler]

Lucas

It uses the localtime Microsoft function and the tm structure which has

tm_year: Year (current year minus 1900).

So you have to add 1900 to the result.

IDATE is not documented in the current help file.
Maybe you should be using the standard Fortran intrinsic DATE_AND_TIME.

[Anonymous]

Hello Paul,

Many thanks for your information!
Indeed, the subroutine DATE_AND_TIME works perfect and the "1900"-problem is completely vanished!

Kind regards,
Lucas.