datetime.m

There are numerous MATLAB m-files included in this software package. Thus, the the authors have bund

function A = DateTime(varargin)  

%DateTime -  class that stores time and performes conversion between various format
%A = DateTime() - fills in zeros to all variables
%A - class DateTime
%A = DateTime(y, mo, d, ho, min, sec)
%A = DateTime([y mo d ho min sec])
%y, mo, d, ho, min, sec - date and time
%A = DateTime(gw, ws) 
%gs - GPS week
%ws - seconds of GPS week 
%A = DateTime(MJD) 
%MJD - modified julian date
%dweek - day of GPS week

%Written by Milan Horemuz, last modified 2004-11-01


na = length(varargin);
switch na
    case 0
        ret = struct('MJD', 0, 'gweek', 0, 'dweek', 0, 'wsec', 0, 'year', 0, 'month', 0, 'day', 0, 'hour', 0, 'min', 0, 'sec', 0,'DOY',0);
        A = class(ret, 'DateTime');
    case 6  %input in georgian datum and time of day
        [y, mo, d, ho, min, sec] = deal(varargin{:});
        ret = struct('MJD', 0, 'gweek', 0, 'dweek', 0, 'wsec', 0, 'year', y, 'month', mo, 'day', d, 'hour', ho, 'min', min, 'sec', sec,'DOY',0);
         A = class(ret, 'DateTime');
         A = date2GPS(A);
    case 2  %input in GPS week and wsec
        [gw, ws] = deal(varargin{:});
        ret = struct('MJD', 0, 'gweek', gw, 'dweek', 0,'wsec', ws, 'year', 0, 'month', 0, 'day', 0, 'hour', 0, 'min', 0, 'sec', 0,'DOY',0);
        A = class(ret, 'DateTime');
        A = GPS2date(A);
    case 1 
        n = length(varargin{1});
        if n == 1 %input in MJD
            mjd = varargin{1};
            ret = struct('MJD', mjd, 'gweek', 0, 'dweek', 0,'wsec', 0, 'year', 0, 'month', 0, 'day', 0, 'hour', 0, 'min', 0, 'sec', 0,'DOY',0);
            A = class(ret, 'DateTime');
            A = MJD2date(A);
        elseif n >= 6
            in=varargin{1};
            y = in(1);
            mo = in(2);
            d = in(3);
            ho = in(4);
            min = in(5);
            sec = in(6);
            ret = struct('MJD', 0, 'gweek', 0, 'dweek', 0, 'wsec', 0, 'year', y, 'month', mo, 'day', d, 'hour', ho, 'min', min, 'sec', sec,'DOY',0);
            A = class(ret, 'DateTime');
            A = date2GPS(A);
        end
        
     otherwise
         na
         error('DateTime: Incorrect number of arguments');
 end