Ignore:
Timestamp:
06/27/06 17:47:06 (18 years ago)
Author:
pinsard
Message:

add $ in Calendar, Grid, Interpolation, Obsolete and Postscript *.pro files, add svn:keywords Id to all these files, some improvements in header

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/Obsolete/ficdate.pro

    r114 r118  
    2121; @history Jerome Vialard  (jv\@lodyc.jussieu.fr) 
    2222;1/7/98 
     23; 
     24; @version $Id$ 
     25; 
    2326;- 
    2427;------------------------------------------------------------ 
     
    4649   rien = juldate(vdate) 
    4750; constitution de la date yymmdd 
    48    case 1 of  
     51   case 1 of 
    4952     year lt 10:                s_year ='0'+string(format='(i1)',year) 
    5053     year ge 10 and year lt 100:s_year=     string(format='(i2)',year) 
    51      year ge 100:BEGIN  
     54     year ge 100:BEGIN 
    5255        year = year-1900 
    5356        if year LT 10 then s_year ='0'+string(format='(i1)',year) $ 
Note: See TracChangeset for help on using the changeset viewer.