View Raw SPL
/* parse inputs for dt2_XXXX functions */
dt2_parse_args(date, time, startdate)
{
        if (isarray(date))
        {
                if (isdatestr(time))
                {
                        /* assume startdate */
                        startdate = time;
                }

                if (numcols(date) > 1 && not(isarray(time)))
                {
                        time = date[.., 2..2..end];
                        date = date[.., 1..2..end];
                }
        }

        if (isdatestr(date))
        {
                date = julstr(date);
        }
        else if (not(isarray(date)))
        {
                error(sprintf("%s - invalid date", __CALLER__));
        }

        if (istimestr(time))
        {
                time = todmsecstr(time);
        }
        else if (not(isarray(time)))
        {
                error(sprintf("%s - invalid time", __CALLER__));
        }

        if (isarray(date) && not(isarray(time)))
        {
                time = rep(time, length(date));
        }
        else if (isarray(time) && not(isarray(date)))
        {
                date = rep(date, length(time));
        }

        return(date, time, startdate);
}