gmaze_pv/subfct/dtecco2.m

% date = dtecco2(X,FORM)
%
% If: 
% FORM = 0, translate the stepnum X into a date string (yyyymmddHHMM)
% FORM = 1, translate the date string X (yyyymmddHHMM) into a stepnum
%
% 06/08/29
% gmaze@mit.edu
%

function varargout = dtecco2(varargin)

% Test inputs:
if nargin ~= 2
  help dtecco2.m
  error('dtecco2.m : Wrong number of parameters');
  return
end %if

% Recup inputs:
X = varargin{1};
FORM = varargin{2};

% New tests:
if FORM~=0 & FORM~=1
   help dtecco2.m
   error('dtecco2.m : Second argument must be 0 or 1');
   return
elseif FORM == 0 & ~isnumeric(X)
   help dtecco2.m
   error('dtecco2.m : if 2nd arg is 0, 1st arg must be numeric');
   return
elseif FORM == 1 & isnumeric(X)
   help dtecco2.m
   error('dtecco2.m : if 2nd arg is 1, 1st arg must be a string');
   return
end


% Let's go:
switch FORM
  
 case 0
  ID = datestr(datenum(1992,1,1)+X*300/60/60/24,'yyyymmddHHMM');
  varargout(1) = {ID};
  
 case 1
  ID = 60*60*24/300*( datenum(X,'yyyymmddHHMM') - datenum(1992,1,1) );
  varargout(1) = {ID};
  
  
end %switch
1	gmaze	1.1	% date = dtecco2(X,FORM)
2			%
3			% If:
4			% FORM = 0, translate the stepnum X into a date string (yyyymmddHHMM)
5			% FORM = 1, translate the date string X (yyyymmddHHMM) into a stepnum
6			%
7			% 06/08/29
8			% gmaze@mit.edu
9			%
10
11			function varargout = dtecco2(varargin)
12
13			% Test inputs:
14			if nargin ~= 2
15			help dtecco2.m
16			error('dtecco2.m : Wrong number of parameters');
17			return
18			end %if
19
20			% Recup inputs:
21			X = varargin{1};
22			FORM = varargin{2};
23
24			% New tests:
25			if FORM~=0 & FORM~=1
26			help dtecco2.m
27			error('dtecco2.m : Second argument must be 0 or 1');
28			return
29			elseif FORM == 0 & ~isnumeric(X)
30			help dtecco2.m
31			error('dtecco2.m : if 2nd arg is 0, 1st arg must be numeric');
32			return
33			elseif FORM == 1 & isnumeric(X)
34			help dtecco2.m
35			error('dtecco2.m : if 2nd arg is 1, 1st arg must be a string');
36			return
37			end
38
39
40			% Let's go:
41			switch FORM
42
43			case 0
44			ID = datestr(datenum(1992,1,1)+X*300/60/60/24,'yyyymmddHHMM');
45			varargout(1) = {ID};
46
47			case 1
48			ID = 606024/300*( datenum(X,'yyyymmddHHMM') - datenum(1992,1,1) );
49			varargout(1) = {ID};
50
51
52			end %switch