/* Like g_date_add_months, but... * * 1. Do not spew criticals. * 2. Number of months is signed. */ void gnm_date_add_months (GDate *d, int n) { if (!g_date_valid (d)) return; if (n >= 0) { int m = (65535 - g_date_get_year (d)) * 12 + (12 - g_date_get_month (d)); if (n > m) goto bad; g_date_add_months (d, n); } else { int m = (g_date_get_year (d) - 1) * 12 + (g_date_get_month (d) - 1); if (m + n <= 0) goto bad; g_date_subtract_months (d, -n); } return; bad: g_date_clear (d, 1); }
void mrp_time2_subtract_months (MrpTime *t, gint months) { g_return_if_fail (t != NULL); g_return_if_fail (months >= 0); g_date_subtract_months (&t->date, months); }
/** * increase or decrease the date in the entry date * * \param entry * \param movement + or - ONE_DAY, ONE_WEEK, ONE_MONTH, ONE_YEAR * * \return * */ void gsb_calendar_entry_step_date ( GtkWidget *entry, gint movement ) { GDate *date; gchar *string; /* on commence par vérifier que la date est valide */ if ( !gsb_date_check_and_complete_entry ( entry, TRUE ) ) return; date = gsb_date_get_last_entry_date ( gtk_entry_get_text ( GTK_ENTRY ( entry ))); switch ( movement ) { case ONE_DAY : case ONE_WEEK : g_date_add_days ( date, movement ) ; break ; case -ONE_DAY : case -ONE_WEEK : g_date_subtract_days ( date, -movement ) ; break ; case ONE_MONTH : g_date_add_months ( date, 1 ) ; break ; case -ONE_MONTH : g_date_subtract_months ( date, 1 ) ; break ; case ONE_YEAR : g_date_add_years ( date, 1 ) ; break ; case -ONE_YEAR : g_date_subtract_years ( date, 1 ) ; break ; default : break ; } string = gsb_format_gdate (date); gtk_entry_set_text ( GTK_ENTRY ( entry ), string ); g_date_free (date); g_free (string); }
void gnc_gdate_set_quarter_start (GDate *date) { gint months; /* Set the date to the first day of the specified month. */ g_date_set_day(date, 1); /* Back up 0-2 months */ months = (g_date_get_month(date) - G_DATE_JANUARY) % 3; g_date_subtract_months(date, months); }
static gint gtk_dateentry_entry_key (GtkWidget *widget, GdkEventKey *event, gpointer user_data) { GtkDateEntry *dateentry = user_data; DB( g_print(" (dateentry) entry key pressed: state=%04x, keyval=%04x\n", event->state, event->keyval) ); if( event->keyval == GDK_Up ) { if( !(event->state & (GDK_SHIFT_MASK | GDK_CONTROL_MASK)) ) { g_date_add_days (dateentry->date, 1); gtk_dateentry_datetoentry(dateentry); } else if( event->state & GDK_SHIFT_MASK ) { g_date_add_months (dateentry->date, 1); gtk_dateentry_datetoentry(dateentry); } else if( event->state & GDK_CONTROL_MASK ) { g_date_add_years (dateentry->date, 1); gtk_dateentry_datetoentry(dateentry); } return TRUE; } else if( event->keyval == GDK_Down ) { if( !(event->state & (GDK_SHIFT_MASK | GDK_CONTROL_MASK)) ) { g_date_subtract_days (dateentry->date, 1); gtk_dateentry_datetoentry(dateentry); } else if( event->state & GDK_SHIFT_MASK ) { g_date_subtract_months (dateentry->date, 1); gtk_dateentry_datetoentry(dateentry); } else if( event->state & GDK_CONTROL_MASK ) { g_date_subtract_years (dateentry->date, 1); gtk_dateentry_datetoentry(dateentry); } return TRUE; } return FALSE; }
/* This is the only real algorithm related to recurrences. It goes: Step 1) Go forward one period from the reference date. Step 2) Back up to align to the phase of the start date. */ void recurrenceNextInstance(const Recurrence *r, const GDate *ref, GDate *next) { PeriodType pt; const GDate *start; guint mult; WeekendAdjust wadj; g_return_if_fail(r); g_return_if_fail(ref); g_return_if_fail(g_date_valid(&r->start)); g_return_if_fail(g_date_valid(ref)); /* If the ref date comes before the start date then the next occurrence is always the start date, and we're done. */ start = &r->start; if (g_date_compare(ref, start) < 0) { g_date_set_julian(next, g_date_get_julian(start)); return; } g_date_set_julian(next, g_date_get_julian(ref)); /* start at refDate */ /* Step 1: move FORWARD one period, passing exactly one occurrence. */ mult = r->mult; pt = r->ptype; wadj = r->wadj; switch (pt) { case PERIOD_YEAR: mult *= 12; /* fall through */ case PERIOD_MONTH: case PERIOD_NTH_WEEKDAY: case PERIOD_LAST_WEEKDAY: case PERIOD_END_OF_MONTH: /* Takes care of short months. */ if (r->wadj == WEEKEND_ADJ_BACK && (pt == PERIOD_YEAR || pt == PERIOD_MONTH || pt == PERIOD_END_OF_MONTH) && (g_date_get_weekday(next) == G_DATE_SATURDAY || g_date_get_weekday(next) == G_DATE_SUNDAY)) { /* Allows the following Friday-based calculations to proceed if 'next' is between Friday and the target day. */ g_date_subtract_days(next, g_date_get_weekday(next) == G_DATE_SATURDAY ? 1 : 2); } if (r->wadj == WEEKEND_ADJ_BACK && (pt == PERIOD_YEAR || pt == PERIOD_MONTH || pt == PERIOD_END_OF_MONTH) && g_date_get_weekday(next) == G_DATE_FRIDAY) { GDate tmp_sat; GDate tmp_sun; g_date_set_julian(&tmp_sat, g_date_get_julian(next)); g_date_set_julian(&tmp_sun, g_date_get_julian(next)); g_date_add_days(&tmp_sat, 1); g_date_add_days(&tmp_sun, 2); if (pt == PERIOD_END_OF_MONTH) { if (g_date_is_last_of_month(next) || g_date_is_last_of_month(&tmp_sat) || g_date_is_last_of_month(&tmp_sun)) g_date_add_months(next, mult); else /* one fewer month fwd because of the occurrence in this month */ g_date_add_months(next, mult - 1); } else { if (g_date_get_day(&tmp_sat) == g_date_get_day(start)) { g_date_add_days(next, 1); g_date_add_months(next, mult); } else if (g_date_get_day(&tmp_sun) == g_date_get_day(start)) { g_date_add_days(next, 2); g_date_add_months(next, mult); } else if (g_date_get_day(next) >= g_date_get_day(start)) { g_date_add_months(next, mult); } else if (g_date_is_last_of_month(next)) { g_date_add_months(next, mult); } else if (g_date_is_last_of_month(&tmp_sat)) { g_date_add_days(next, 1); g_date_add_months(next, mult); } else if (g_date_is_last_of_month(&tmp_sun)) { g_date_add_days(next, 2); g_date_add_months(next, mult); } else { /* one fewer month fwd because of the occurrence in this month */ g_date_add_months(next, mult - 1); } } } else if ( g_date_is_last_of_month(next) || ((pt == PERIOD_MONTH || pt == PERIOD_YEAR) && g_date_get_day(next) >= g_date_get_day(start)) || ((pt == PERIOD_NTH_WEEKDAY || pt == PERIOD_LAST_WEEKDAY) && nth_weekday_compare(start, next, pt) <= 0) ) g_date_add_months(next, mult); else /* one fewer month fwd because of the occurrence in this month */ g_date_add_months(next, mult - 1); break; case PERIOD_WEEK: mult *= 7; /* fall through */ case PERIOD_DAY: g_date_add_days(next, mult); break; case PERIOD_ONCE: g_date_clear(next, 1); /* We already caught the case where ref is */ return; /* earlier than start, so this is invalid. */ default: PERR("Invalid period type"); break; } /* Step 2: Back up to align to the base phase. To ensure forward progress, we never subtract as much as we added (x % mult < mult). */ switch (pt) { case PERIOD_YEAR: case PERIOD_MONTH: case PERIOD_NTH_WEEKDAY: case PERIOD_LAST_WEEKDAY: case PERIOD_END_OF_MONTH: { guint dim, n_months; n_months = 12 * (g_date_get_year(next) - g_date_get_year(start)) + (g_date_get_month(next) - g_date_get_month(start)); g_date_subtract_months(next, n_months % mult); /* Ok, now we're in the right month, so we just have to align the day in one of the three possible ways. */ dim = g_date_get_days_in_month(g_date_get_month(next), g_date_get_year(next)); if (pt == PERIOD_LAST_WEEKDAY || pt == PERIOD_NTH_WEEKDAY) { gint wdresult = nth_weekday_compare(start, next, pt); if (wdresult < 0) { wdresult = -wdresult; g_date_subtract_days(next, wdresult); } else g_date_add_days(next, wdresult); } else if (pt == PERIOD_END_OF_MONTH || g_date_get_day(start) >= dim) g_date_set_day(next, dim); /* last day in the month */ else g_date_set_day(next, g_date_get_day(start)); /*same day as start*/ /* Adjust for dates on the weekend. */ if (pt == PERIOD_YEAR || pt == PERIOD_MONTH || pt == PERIOD_END_OF_MONTH) { if (g_date_get_weekday(next) == G_DATE_SATURDAY || g_date_get_weekday(next) == G_DATE_SUNDAY) { switch (wadj) { case WEEKEND_ADJ_BACK: g_date_subtract_days(next, g_date_get_weekday(next) == G_DATE_SATURDAY ? 1 : 2); break; case WEEKEND_ADJ_FORWARD: g_date_add_days(next, g_date_get_weekday(next) == G_DATE_SATURDAY ? 2 : 1); break; case WEEKEND_ADJ_NONE: default: break; } } } } break; case PERIOD_WEEK: case PERIOD_DAY: g_date_subtract_days(next, g_date_days_between(start, next) % mult); break; default: PERR("Invalid period type"); break; } }
void gnc_gdate_set_prev_quarter_end (GDate *date) { gnc_gdate_set_quarter_end(date); g_date_subtract_months(date, 3); }
/** Convert a GDate to the first day of the prebvious month. This * routine has no knowledge of how many days are in a month, whether * its a leap year, etc. All that information is contained in the * glib date functions. * * @param date The GDate to modify. */ void gnc_gdate_set_prev_month_start (GDate *date) { g_date_set_day(date, 1); g_date_subtract_months(date, 1); }
int main(int argc, char** argv) { GDate* d; guint32 j; GDateMonth m; GDateYear y, prev_y; GDateDay day; gchar buf[101]; gchar* loc; /* Try to get all the leap year cases. */ GDateYear check_years[] = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 98, 99, 100, 101, 102, 103, 397, 398, 399, 400, 401, 402, 403, 404, 405, 406, 1598, 1599, 1600, 1601, 1602, 1650, 1651, 1897, 1898, 1899, 1900, 1901, 1902, 1903, 1961, 1962, 1963, 1964, 1965, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 3000, 3001, 3002, 3998, 3999, 4000, 4001, 4002, 4003 }; guint n_check_years = sizeof(check_years)/sizeof(GDateYear); guint i; gboolean discontinuity; g_print("checking GDate..."); TEST("sizeof(GDate) is not more than 8 bytes on this platform", sizeof(GDate) < 9); d = g_date_new(); TEST("Empty constructor produces invalid date", !g_date_valid(d)); g_date_free(d); d = g_date_new_dmy(1,1,1); TEST("January 1, Year 1 created and valid", g_date_valid(d)); j = g_date_get_julian(d); TEST("January 1, Year 1 is Julian date 1", j == 1); TEST("Returned month is January", g_date_get_month(d) == G_DATE_JANUARY); TEST("Returned day is 1", g_date_get_day(d) == 1); TEST("Returned year is 1", g_date_get_year(d) == 1); TEST("Bad month is invalid", !g_date_valid_month(G_DATE_BAD_MONTH)); TEST("Month 13 is invalid", !g_date_valid_month(13)); TEST("Bad day is invalid", !g_date_valid_day(G_DATE_BAD_DAY)); TEST("Day 32 is invalid", !g_date_valid_day(32)); TEST("Bad year is invalid", !g_date_valid_year(G_DATE_BAD_YEAR)); TEST("Bad julian is invalid", !g_date_valid_julian(G_DATE_BAD_JULIAN)); TEST("Bad weekday is invalid", !g_date_valid_weekday(G_DATE_BAD_WEEKDAY)); TEST("Year 2000 is a leap year", g_date_is_leap_year(2000)); TEST("Year 1999 is not a leap year", !g_date_is_leap_year(1999)); TEST("Year 1996 is a leap year", g_date_is_leap_year(1996)); TEST("Year 1600 is a leap year", g_date_is_leap_year(1600)); TEST("Year 2100 is not a leap year", !g_date_is_leap_year(2100)); TEST("Year 1800 is not a leap year", !g_date_is_leap_year(1800)); g_date_free(d); loc = setlocale(LC_ALL,""); if (loc) g_print("\nLocale set to %s\n", loc); else g_print("\nLocale unchanged\n"); d = g_date_new(); g_date_set_time(d, time(NULL)); TEST("Today is valid", g_date_valid(d)); g_date_strftime(buf,100,"Today is a %A, %x\n", d); g_print("%s", buf); g_date_set_time(d, 1); TEST("Beginning of Unix epoch is valid", g_date_valid(d)); g_date_strftime(buf,100,"1 second into the Unix epoch it was a %A, in the month of %B, %x\n", d); g_print("%s", buf); g_date_set_julian(d, 1); TEST("GDate's \"Julian\" epoch's first day is valid", g_date_valid(d)); g_date_strftime(buf,100,"Our \"Julian\" epoch begins on a %A, in the month of %B, %x\n", d); g_print("%s", buf); g_date_set_dmy(d, 10, 1, 2000); g_date_strftime(buf,100,"%x", d); g_date_set_parse(d, buf); /* Note: this test will hopefully work, but no promises. */ TEST("Successfully parsed a %x-formatted string", g_date_valid(d) && g_date_get_month(d) == 1 && g_date_get_day(d) == 10 && g_date_get_year(d) == 2000); if (failed) g_date_debug_print(d); g_date_free(d); j = G_DATE_BAD_JULIAN; i = 0; discontinuity = TRUE; y = check_years[0]; prev_y = G_DATE_BAD_YEAR; while (i < n_check_years) { guint32 first_day_of_year = G_DATE_BAD_JULIAN; guint16 days_in_year = g_date_is_leap_year(y) ? 366 : 365; guint sunday_week_of_year = 0; guint sunday_weeks_in_year = g_date_get_sunday_weeks_in_year(y); guint monday_week_of_year = 0; guint monday_weeks_in_year = g_date_get_monday_weeks_in_year(y); guint iso8601_week_of_year = 0; if (discontinuity) g_print(" (Break in sequence of requested years to check)\n"); g_print("Checking year %u", y); TEST("Year is valid", g_date_valid_year(y)); TEST("Number of Sunday weeks in year is 52 or 53", sunday_weeks_in_year == 52 || sunday_weeks_in_year == 53); TEST("Number of Monday weeks in year is 52 or 53", monday_weeks_in_year == 52 || monday_weeks_in_year == 53); m = 1; while (m < 13) { guint8 dim = g_date_get_days_in_month(m,y); GDate days[31]; /* This is the fast way, no allocation */ TEST("Sensible number of days in month", (dim > 0 && dim < 32)); TEST("Month between 1 and 12 is valid", g_date_valid_month(m)); day = 1; g_date_clear(days, 31); while (day <= dim) { guint i; GDate tmp; TEST("DMY triplet is valid", g_date_valid_dmy(day,m,y)); /* Create GDate with triplet */ d = &days[day-1]; TEST("Cleared day is invalid", !g_date_valid(d)); g_date_set_dmy(d,day,m,y); TEST("Set day is valid", g_date_valid(d)); if (m == G_DATE_JANUARY && day == 1) { first_day_of_year = g_date_get_julian(d); } g_assert(first_day_of_year != G_DATE_BAD_JULIAN); TEST("Date with DMY triplet is valid", g_date_valid(d)); TEST("Month accessor works", g_date_get_month(d) == m); TEST("Year accessor works", g_date_get_year(d) == y); TEST("Day of month accessor works", g_date_get_day(d) == day); TEST("Day of year is consistent with Julian dates", ((g_date_get_julian(d) + 1 - first_day_of_year) == (g_date_get_day_of_year(d)))); if (failed) { g_print("first day: %u this day: %u day of year: %u\n", first_day_of_year, g_date_get_julian(d), g_date_get_day_of_year(d)); } if (m == G_DATE_DECEMBER && day == 31) { TEST("Last day of year equals number of days in year", g_date_get_day_of_year(d) == days_in_year); if (failed) { g_print("last day: %u days in year: %u\n", g_date_get_day_of_year(d), days_in_year); } } TEST("Day of year is not more than number of days in the year", g_date_get_day_of_year(d) <= days_in_year); TEST("Monday week of year is not more than number of weeks in the year", g_date_get_monday_week_of_year(d) <= monday_weeks_in_year); if (failed) { g_print("Weeks in year: %u\n", monday_weeks_in_year); g_date_debug_print(d); } TEST("Monday week of year is >= than last week of year", g_date_get_monday_week_of_year(d) >= monday_week_of_year); if (g_date_get_weekday(d) == G_DATE_MONDAY) { TEST("Monday week of year on Monday 1 more than previous day's week of year", (g_date_get_monday_week_of_year(d) - monday_week_of_year) == 1); if ((m == G_DATE_JANUARY && day <= 4) || (m == G_DATE_DECEMBER && day >= 29)) { TEST("ISO 8601 week of year on Monday Dec 29 - Jan 4 is 1", (g_date_get_iso8601_week_of_year(d) == 1)); } else { TEST("ISO 8601 week of year on Monday 1 more than previous day's week of year", (g_date_get_iso8601_week_of_year(d) - iso8601_week_of_year) == 1); } } else { TEST("Monday week of year on non-Monday 0 more than previous day's week of year", (g_date_get_monday_week_of_year(d) - monday_week_of_year) == 0); if (!(day == 1 && m == G_DATE_JANUARY)) { TEST("ISO 8601 week of year on non-Monday 0 more than previous day's week of year (", (g_date_get_iso8601_week_of_year(d) - iso8601_week_of_year) == 0); } } monday_week_of_year = g_date_get_monday_week_of_year(d); iso8601_week_of_year = g_date_get_iso8601_week_of_year(d); TEST("Sunday week of year is not more than number of weeks in the year", g_date_get_sunday_week_of_year(d) <= sunday_weeks_in_year); if (failed) { g_date_debug_print(d); } TEST("Sunday week of year is >= than last week of year", g_date_get_sunday_week_of_year(d) >= sunday_week_of_year); if (g_date_get_weekday(d) == G_DATE_SUNDAY) { TEST("Sunday week of year on Sunday 1 more than previous day's week of year", (g_date_get_sunday_week_of_year(d) - sunday_week_of_year) == 1); } else { TEST("Sunday week of year on non-Sunday 0 more than previous day's week of year", (g_date_get_sunday_week_of_year(d) - sunday_week_of_year) == 0); } sunday_week_of_year = g_date_get_sunday_week_of_year(d); TEST("Date is equal to itself", g_date_compare(d,d) == 0); /*************** Increments ***********/ i = 1; while (i < 402) /* Need to get 400 year increments in */ { /***** Days ******/ tmp = *d; g_date_add_days(d, i); TEST("Adding days gives a value greater than previous", g_date_compare(d, &tmp) > 0); g_date_subtract_days(d, i); TEST("Forward days then backward days returns us to current day", g_date_get_day(d) == day); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } TEST("Forward days then backward days returns us to current month", g_date_get_month(d) == m); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } TEST("Forward days then backward days returns us to current year", g_date_get_year(d) == y); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } /******* Months ********/ tmp = *d; g_date_add_months(d, i); TEST("Adding months gives a larger value", g_date_compare(d, &tmp) > 0); g_date_subtract_months(d, i); TEST("Forward months then backward months returns us to current month", g_date_get_month(d) == m); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } TEST("Forward months then backward months returns us to current year", g_date_get_year(d) == y); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } if (day < 29) { /* Day should be unchanged */ TEST("Forward months then backward months returns us to current day", g_date_get_day(d) == day); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } } else { /* reset the day for later tests */ g_date_set_day(d, day); } /******* Years ********/ tmp = *d; g_date_add_years(d, i); TEST("Adding years gives a larger value", g_date_compare(d,&tmp) > 0); g_date_subtract_years(d, i); TEST("Forward years then backward years returns us to current month", g_date_get_month(d) == m); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } TEST("Forward years then backward years returns us to current year", g_date_get_year(d) == y); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } if (m != 2 && day != 29) { TEST("Forward years then backward years returns us to current day", g_date_get_day(d) == day); if (failed) { g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y); g_date_debug_print(d); } } else { g_date_set_day(d, day); /* reset */ } i += 10; } /***** increment test relative to our local Julian count */ if (!discontinuity) { /* We can only run sequence tests between sequential years */ TEST("Julians are sequential with increment 1", j+1 == g_date_get_julian(d)); if (failed) { g_print("Out of sequence, prev: %u expected: %u got: %u\n", j, j+1, g_date_get_julian(d)); } g_date_add_days(d,1); TEST("Next day has julian 1 higher", g_date_get_julian(d) == j + 2); g_date_subtract_days(d, 1); if (j != G_DATE_BAD_JULIAN) { g_date_subtract_days(d, 1); TEST("Previous day has julian 1 lower", g_date_get_julian(d) == j); g_date_add_days(d, 1); /* back to original */ } } discontinuity = FALSE; /* goes away now */ fflush(stdout); fflush(stderr); j = g_date_get_julian(d); /* inc current julian */ ++day; } ++m; } g_print(" done\n"); ++i; prev_y = y; y = check_years[i]; if (prev_y == G_DATE_BAD_YEAR || (prev_y + 1) != y) discontinuity = TRUE; } g_print("\n%u tests passed, %u failed\n",passed, notpassed); return 0; }
static int summarize(struct stats_file *data_file, struct stats_file *history_file, struct stats_file *temp_file, int account_period_offset) { struct stats_iter data_iter; struct stats_iter history_iter; struct stats_record *cur, *next; GDate today, date_change_step_size; /* * First calculate the date when switch from monthly * accounting period size to daily size */ g_date_set_time_t(&today, time(NULL)); date_change_step_size = today; if (g_date_get_day(&today) - account_period_offset >= 0) g_date_subtract_months(&date_change_step_size, 2); else g_date_subtract_months(&date_change_step_size, 3); g_date_set_day(&date_change_step_size, account_period_offset); /* Now process history file */ cur = NULL; if (history_file) { history_iter.file = history_file; history_iter.begin = get_iterator_begin(history_iter.file); history_iter.end = get_iterator_end(history_iter.file); history_iter.it = history_iter.begin; cur = process_file(&history_iter, temp_file, NULL, &date_change_step_size, account_period_offset); } data_iter.file = data_file; data_iter.begin = get_iterator_begin(data_iter.file); data_iter.end = get_iterator_end(data_iter.file); data_iter.it = data_iter.begin; /* * Ensure date_file records are newer than the history_file * record */ if (cur) { next = get_next_record(&data_iter); while (next && cur->ts > next->ts) next = get_next_record(&data_iter); } /* And finally process the new data records */ cur = process_file(&data_iter, temp_file, cur, &date_change_step_size, account_period_offset); if (cur) append_record(temp_file, cur); return 0; }
gboolean gnc_handle_date_accelerator (GdkEventKey *event, struct tm *tm, const char *date_str) { GDate gdate; g_return_val_if_fail (event != NULL, FALSE); g_return_val_if_fail (tm != NULL, FALSE); g_return_val_if_fail (date_str != NULL, FALSE); if (event->type != GDK_KEY_PRESS) return FALSE; if ((tm->tm_mday <= 0) || (tm->tm_mon == -1) || (tm->tm_year == -1)) return FALSE; // Make sure we have a valid date before we proceed if (!g_date_valid_dmy (tm->tm_mday, tm->tm_mon + 1, tm->tm_year + 1900)) return FALSE; g_date_set_dmy (&gdate, tm->tm_mday, tm->tm_mon + 1, tm->tm_year + 1900); /* * Check those keys where the code does different things depending * upon the modifiers. */ switch (event->keyval) { case GDK_KEY_KP_Add: case GDK_KEY_plus: case GDK_KEY_equal: if (event->state & GDK_SHIFT_MASK) g_date_add_days (&gdate, 7); else if (event->state & GDK_MOD1_MASK) g_date_add_months (&gdate, 1); else if (event->state & GDK_CONTROL_MASK) g_date_add_years (&gdate, 1); else g_date_add_days (&gdate, 1); g_date_to_struct_tm (&gdate, tm); return TRUE; case GDK_KEY_minus: case GDK_KEY_KP_Subtract: case GDK_KEY_underscore: if ((strlen (date_str) != 0) && (dateSeparator () == '-')) { const char *c; gunichar uc; int count = 0; /* rough check for existing date */ c = date_str; while (*c) { uc = g_utf8_get_char (c); if (uc == '-') count++; c = g_utf8_next_char (c); } if (count < 2) return FALSE; } if (event->state & GDK_SHIFT_MASK) g_date_subtract_days (&gdate, 7); else if (event->state & GDK_MOD1_MASK) g_date_subtract_months (&gdate, 1); else if (event->state & GDK_CONTROL_MASK) g_date_subtract_years (&gdate, 1); else g_date_subtract_days (&gdate, 1); g_date_to_struct_tm (&gdate, tm); return TRUE; default: break; } /* * Control and Alt key combinations should be ignored by this * routine so that the menu system gets to handle them. This * prevents weird behavior of the menu accelerators (i.e. work in * some widgets but not others.) */ if (event->state & (GDK_CONTROL_MASK | GDK_MOD1_MASK)) return FALSE; /* Now check for the remaining keystrokes. */ switch (event->keyval) { case GDK_KEY_braceright: case GDK_KEY_bracketright: /* increment month */ g_date_add_months (&gdate, 1); break; case GDK_KEY_braceleft: case GDK_KEY_bracketleft: /* decrement month */ g_date_subtract_months (&gdate, 1); break; case GDK_KEY_M: case GDK_KEY_m: /* beginning of month */ g_date_set_day (&gdate, 1); break; case GDK_KEY_H: case GDK_KEY_h: /* end of month */ g_date_set_day (&gdate, 1); g_date_add_months (&gdate, 1); g_date_subtract_days (&gdate, 1); break; case GDK_KEY_Y: case GDK_KEY_y: /* beginning of year */ g_date_set_day (&gdate, 1); g_date_set_month (&gdate, 1); break; case GDK_KEY_R: case GDK_KEY_r: /* end of year */ g_date_set_day (&gdate, 1); g_date_set_month (&gdate, 1); g_date_add_years (&gdate, 1); g_date_subtract_days (&gdate, 1); break; case GDK_KEY_T: case GDK_KEY_t: /* today */ gnc_gdate_set_today (&gdate); break; default: return FALSE; } g_date_to_struct_tm (&gdate, tm); return TRUE; }
/** * called when a calendar receive a key-press-event * * \param pCalendar * \param ev * \param entry * * \return TRUE to block the signal * */ gboolean gsb_calendar_entry_calendar_key_press ( GtkCalendar *pCalendar, GdkEventKey *ev, GtkWidget *entry ) { guint day, month, year; GDate *date; GtkWidget *pTopLevelWidget; /* get the popup to destroy it if need */ pTopLevelWidget = gtk_widget_get_toplevel ( GTK_WIDGET ( pCalendar ) ); /* most of the time, we will use date so can get it here, * think about free it if not used */ gtk_calendar_get_date ( pCalendar, &year, &month, &day ); month++; date = g_date_new_dmy (day, month, year); switch ( ev -> keyval ) { case GDK_Escape : /* just close the calendar if it's a popup */ if ( GTK_WIDGET_TOPLEVEL ( pTopLevelWidget ) ) gtk_widget_destroy ( pTopLevelWidget ); g_date_free (date); return TRUE; break ; case GDK_Return : case GDK_KP_Enter : /* get the date an close the calendar */ gtk_entry_set_text ( GTK_ENTRY ( entry ), gsb_format_date ( day, month, year )); if ( GTK_WIDGET_TOPLEVEL ( pTopLevelWidget ) ) gtk_widget_destroy ( pTopLevelWidget ); g_date_free (date); return TRUE; break ; /* from now, it will change date so just use date, modify it and fill day, month, year * we will set the calendar at the end of that function * so after now, only keys which change the date */ case GDK_Left : case GDK_KP_Left: case GDK_minus: case GDK_KP_Subtract: /* day before */ g_date_subtract_days (date, 1); break ; case GDK_Right : case GDK_KP_Right: case GDK_plus: case GDK_KP_Add: /* day after */ g_date_add_days (date, 1); break ; case GDK_Up : case GDK_KP_Up : /* prev week */ g_date_subtract_days (date, 7); break ; case GDK_Down : case GDK_KP_Down : /* next week */ g_date_add_days (date, 7); break ; case GDK_Home : case GDK_KP_Home : /* go to first day of the month */ g_date_set_day (date, 1); break ; case GDK_End : case GDK_KP_End : /* go to last day of the month */ g_date_set_day (date, g_date_get_days_in_month (month, year)); break ; case GDK_Page_Up : case GDK_KP_Page_Up : /* prev month */ g_date_subtract_months (date, 1); break ; case GDK_Page_Down : case GDK_KP_Page_Down : /* next month */ g_date_add_months (date, 1); break ; default: return TRUE; } day = g_date_get_day (date); month = g_date_get_month (date); year = g_date_get_year (date); g_date_free (date); /* to avoid a warning */ gtk_calendar_select_day( pCalendar , 15 ); month--; gtk_calendar_select_month ( pCalendar , month, year ); gtk_calendar_select_day( pCalendar , day ); return TRUE; }
gchar *etats_titre ( gint report_number) { gchar *titre; GDate *today_date; titre = gsb_data_report_get_report_name (report_number); today_date = gdate_today (); if ( gsb_data_report_get_use_financial_year (report_number)) { GSList *tmp_list; gint fyear_number; gint last_fyear_number; switch (gsb_data_report_get_financial_year_type (report_number)) { case 0: /* all the financial years */ titre = g_strconcat ( titre, ", ", _("all financial years"), NULL ); break; case 1: /* current financial year */ fyear_number = gsb_data_fyear_get_from_date (today_date); if (fyear_number) titre = g_strconcat ( titre, ", ", _("current financial year") , " (", gsb_data_fyear_get_name (fyear_number), ")", NULL ); else titre = g_strconcat ( titre, ", ", _("current financial year"), NULL ); break; case 2: /* last financial year */ fyear_number = gsb_data_fyear_get_from_date (today_date); last_fyear_number = 0; tmp_list = gsb_data_fyear_get_fyears_list (); while (tmp_list) { gint tmp_fyear_number; tmp_fyear_number = gsb_data_fyear_get_no_fyear (tmp_list -> data); if (gsb_data_fyear_compare (fyear_number, tmp_fyear_number) == 1) { if (last_fyear_number) { if (gsb_data_fyear_compare (last_fyear_number, tmp_fyear_number) == -1) last_fyear_number = tmp_fyear_number; } else { last_fyear_number = tmp_fyear_number; } } tmp_list = tmp_list -> next; } /* here, last_fyear_number is on the last financial year */ if (last_fyear_number) titre = g_strconcat ( titre, ", ", _("former financial year") , " (", gsb_data_fyear_get_name (last_fyear_number), ")", NULL ); else titre = g_strconcat ( titre, ", ", _("former financial year"), NULL ); break; case 3: /* personal selection of financial years */ tmp_list = gsb_data_report_get_financial_year_list (report_number); if ( g_slist_length ( tmp_list ) > 1 ) titre = g_strconcat ( titre, ", ", _("financial years"), " ", NULL ); else titre = g_strconcat ( titre, ", ", _("financial year"), " ", NULL ); while ( tmp_list ) { gint fyear_number; fyear_number = GPOINTER_TO_INT (tmp_list -> data); if ( tmp_list == g_slist_last (gsb_data_report_get_financial_year_list (report_number))) titre = g_strconcat ( titre, gsb_data_fyear_get_name (fyear_number), NULL ); else titre = g_strconcat ( titre, gsb_data_fyear_get_name (fyear_number), ", ", NULL ); tmp_list = tmp_list -> next; } break; } } else { /* c'est une plage de dates qui a été entrée */ gchar buffer_date[15]; gchar buffer_date_2[15]; GDate *date_tmp; switch ( gsb_data_report_get_date_type (report_number)) { case 0: /* toutes */ titre = g_strconcat ( titre, ", ", _("all dates"), NULL ); break; case 1: /* plage perso */ if ( gsb_data_report_get_personal_date_start (report_number) && gsb_data_report_get_personal_date_end (report_number)) titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("Result from %s to %s"), gsb_format_gdate ( gsb_data_report_get_personal_date_start (report_number)), gsb_format_gdate ( gsb_data_report_get_personal_date_end (report_number)) ), NULL ); else titre = g_strconcat ( titre, ", ", _("Custom dates ranges not filled"), NULL ); break; case 2: /* cumul à ce jour */ titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("total at %s"), gsb_format_gdate (today_date)), NULL ); break; case 3: /* mois en cours */ g_date_strftime ( buffer_date, 14, "%B", today_date ); titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("%s %d"), buffer_date, g_date_get_year (today_date)), NULL ); break; case 4: /* année en cours */ titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("year %d"), g_date_get_year (today_date)), NULL ); break; case 5: /* cumul mensuel */ titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("month total at %s"), gsb_format_gdate (today_date)), NULL ); break; case 6: /* cumul annuel */ titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("year total at %s"), gsb_format_gdate (today_date)), NULL ); break; case 7: /* mois précédent */ g_date_subtract_months ( today_date, 1 ); g_date_strftime ( buffer_date, 14, "%B", today_date ); titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("%s %d"), buffer_date, g_date_get_year (today_date)), NULL ); break; case 8: /* année précédente */ titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("year %d"), g_date_get_year (today_date) - 1), NULL ); break; case 9: /* 30 derniers jours */ date_tmp = gdate_today ( ); g_date_subtract_days ( date_tmp, 30 ); titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("Result from %s to %s"), gsb_format_gdate ( date_tmp ), gsb_format_gdate (today_date)), NULL ); break; case 10: /* 3 derniers mois */ date_tmp = gdate_today ( ); g_date_subtract_months ( date_tmp, 3 ); g_date_strftime ( buffer_date_2, 14, "%B", date_tmp ); g_date_strftime ( buffer_date, 14, "%B", today_date); titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("from %s %d"), buffer_date_2, g_date_get_year ( date_tmp )), " ", g_strdup_printf ( _("to %s %d"), buffer_date, g_date_get_year (today_date)), NULL ); break; case 11: /* 6 derniers mois */ date_tmp = gdate_today ( ); g_date_subtract_months ( date_tmp, 6 ); g_date_strftime ( buffer_date_2, 14, "%B", date_tmp ); g_date_strftime ( buffer_date, 14, "%B", today_date); titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("from %s %d"), buffer_date_2, g_date_get_year ( date_tmp )), " ", g_strdup_printf ( _("to %s %d"), buffer_date, g_date_get_year (today_date)), NULL ); break; case 12: /* 12 derniers mois */ date_tmp = gdate_today ( ); g_date_subtract_months ( date_tmp, 12 ); g_date_strftime ( buffer_date_2, 14, "%B", date_tmp ); g_date_strftime ( buffer_date, 14, "%B", today_date); titre = g_strconcat ( titre, ", ", g_strdup_printf ( _("from %s %d"), buffer_date_2, g_date_get_year ( date_tmp )), " ", g_strdup_printf ( _("to %s %d"), buffer_date, g_date_get_year (today_date)), NULL ); break; } } return titre; }