dec_time.m
author A.M. Thurnherr <athurnherr@yahoo.com>
Wed, 18 Apr 2012 07:41:27 +0000
changeset 6 71f657b20ca0
permissions -rw-r--r--
.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     1
%======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     2
%                    D E C _ T I M E . M 
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     3
%                    doc: Thu Mar  1 18:16:50 2012
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     4
%                    dlm: Thu Mar  1 18:18:15 2012
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     5
%                    (c) 2012 A.M. Thurnherr
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     6
%                    uE-Info: 15 0 NIL 0 0 72 0 2 4 NIL ofnI
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     7
%======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     8
% 
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     9
%	dt = dec_time(time[,epoch])
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    10
%
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    11
% 	make ATNS dn field from matlab numeric time
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    12
%
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    13
% HISTORY:
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    14
%	Mar  1, 2012: - created
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    15
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    16
function dt=dec_time(time,varargin)
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    17
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    18
if nargin==2
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    19
	dt = time - datenum(varargin{1},1,1) + 1;
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    20
elseif nargin==1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    21
	dv = datevec(time);
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    22
	dt = dec_time(time,dv(1));
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    23
else
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    24
	disp('dt=dec_time(time[,epoch])');
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    25
	error
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    26
end
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    27
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    28