Changeset 118 for trunk/SRC/Obsolete/ficdate.pro
- Timestamp:
- 06/27/06 17:47:06 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/ficdate.pro
r114 r118 21 21 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 22 22 ;1/7/98 23 ; 24 ; @version $Id$ 25 ; 23 26 ;- 24 27 ;------------------------------------------------------------ … … 46 49 rien = juldate(vdate) 47 50 ; constitution de la date yymmdd 48 case 1 of 51 case 1 of 49 52 year lt 10: s_year ='0'+string(format='(i1)',year) 50 53 year ge 10 and year lt 100:s_year= string(format='(i2)',year) 51 year ge 100:BEGIN 54 year ge 100:BEGIN 52 55 year = year-1900 53 56 if year LT 10 then s_year ='0'+string(format='(i1)',year) $
Note: See TracChangeset
for help on using the changeset viewer.