/* Set the instance's value using the given date and time. calendar
may be set to the flags: GREGORIAN_CALENDAR, JULIAN_CALENDAR to
indicate the calendar to be used. */
static
int dInfoCalc_SetFromAbsDateTime(struct date_info *dinfo,
long_t absdate,
double abstime,
int calendar)
{
/* Bounds check */
Py_AssertWithArg(abstime >= 0.0 && abstime <= SECONDS_PER_DAY,
PyExc_ValueError,
"abstime out of range (0.0 - 86400.0): %f",
abstime);
/* Calculate the date */
if (dInfoCalc_SetFromAbsDate(dinfo,
absdate,
calendar))
goto onError;
/* Calculate the time */
if (dInfoCalc_SetFromAbsTime(dinfo,
abstime))
goto onError;
return 0;
onError:
return INT_ERR_CODE;
}
static long_t asfreq_DtoM(long_t fromDate, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, fromDate, GREGORIAN_CALENDAR))
return INT_ERR_CODE;
return (long_t)((dinfo.year - 1) * 12 + dinfo.month);
}
static npy_int64 asfreq_DtoM(npy_int64 ordinal, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, ordinal + ORD_OFFSET, GREGORIAN_CALENDAR))
return INT_ERR_CODE;
return (npy_int64)((dinfo.year - BASE_YEAR) * 12 + dinfo.month - 1);
}
static long_t asfreq_DtoA(long_t fromDate, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, fromDate,
GREGORIAN_CALENDAR)) return INT_ERR_CODE;
if (dinfo.month > af_info->to_a_year_end) { return (long_t)(dinfo.year + 1); }
else { return (long_t)(dinfo.year); }
}
static npy_int64 asfreq_DTtoM(npy_int64 ordinal, char relation, asfreq_info *af_info) {
struct date_info dinfo;
ordinal = convert_daytime(ordinal, af_info->sourceFreq, FR_DAY, 0);
if (dInfoCalc_SetFromAbsDate(&dinfo, ordinal + ORD_OFFSET, GREGORIAN_CALENDAR))
return INT_ERR_CODE;
return (npy_int64)((dinfo.year - BASE_YEAR) * 12 + dinfo.month - 1);
}
static long_t asfreq_AtoB(long_t fromDate, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, asfreq_AtoD(fromDate, relation, af_info),
GREGORIAN_CALENDAR)) return INT_ERR_CODE;
if (relation == 'S') { return DtoB_WeekendToMonday(dinfo.absdate, dinfo.day_of_week); }
else { return DtoB_WeekendToFriday(dinfo.absdate, dinfo.day_of_week); }
}
static npy_int64 asfreq_AtoB(npy_int64 ordinal, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo,
asfreq_AtoD(ordinal, relation, af_info) + ORD_OFFSET,
GREGORIAN_CALENDAR)) return INT_ERR_CODE;
if (relation == 'S') { return DtoB_WeekendToMonday(dinfo.absdate, dinfo.day_of_week); }
else { return DtoB_WeekendToFriday(dinfo.absdate, dinfo.day_of_week); }
}
static long_t asfreq_DtoB_forConvert(long_t fromDate, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, fromDate, GREGORIAN_CALENDAR))
return INT_ERR_CODE;
if (dinfo.day_of_week > 4) {
return INT_ERR_CODE;
} else {
return DtoB_weekday(fromDate);
}
}
static npy_int64 asfreq_DtoA(npy_int64 ordinal, char relation, asfreq_info *af_info) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, ordinal + ORD_OFFSET,
GREGORIAN_CALENDAR)) return INT_ERR_CODE;
if (dinfo.month > af_info->to_a_year_end) {
return (npy_int64)(dinfo.year + 1 - BASE_YEAR);
}
else {
return (npy_int64)(dinfo.year - BASE_YEAR);
}
}
static npy_int64 asfreq_DTtoB(npy_int64 ordinal, char relation, asfreq_info *af_info) {
struct date_info dinfo;
ordinal = convert_daytime(ordinal, af_info->sourceFreq, FR_DAY, 0);
if (dInfoCalc_SetFromAbsDate(&dinfo, ordinal + ORD_OFFSET, GREGORIAN_CALENDAR))
return INT_ERR_CODE;
if (relation == 'S') {
return DtoB_WeekendToFriday(dinfo.absdate, dinfo.day_of_week);
} else {
return DtoB_WeekendToMonday(dinfo.absdate, dinfo.day_of_week);
}
}
static npy_int64 DtoQ_yq(npy_int64 ordinal, asfreq_info *af_info, int *year, int *quarter) {
struct date_info dinfo;
if (dInfoCalc_SetFromAbsDate(&dinfo, ordinal + ORD_OFFSET, GREGORIAN_CALENDAR))
return INT_ERR_CODE;
if (af_info->to_q_year_end != 12) {
dinfo.month -= af_info->to_q_year_end;
if (dinfo.month <= 0) { dinfo.month += 12; }
else { dinfo.year += 1; }
dinfo.quarter = monthToQuarter(dinfo.month);
}
*year = dinfo.year;
*quarter = dinfo.quarter;
return 0;
}
