--- /dev/null
+///////////////////////////////////////////////////////////////////////////////\r
+//\r
+// File : $Id: date.cpp,v 1.1 2007/05/05 17:00:42 faust Exp $\r
+// Subject : IBPP, Date class implementation\r
+//\r
+///////////////////////////////////////////////////////////////////////////////\r
+//\r
+// (C) Copyright 2000-2006 T.I.P. Group S.A. and the IBPP Team (www.ibpp.org)\r
+//\r
+// The contents of this file are subject to the IBPP License (the "License");\r
+// you may not use this file except in compliance with the License. You may\r
+// obtain a copy of the License at http://www.ibpp.org or in the 'license.txt'\r
+// file which must have been distributed along with this file.\r
+//\r
+// This software, distributed under the License, is distributed on an "AS IS"\r
+// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the\r
+// License for the specific language governing rights and limitations\r
+// under the License.\r
+//\r
+///////////////////////////////////////////////////////////////////////////////\r
+//\r
+// COMMENTS\r
+// * Tabulations should be set every four characters when editing this file.\r
+//\r
+///////////////////////////////////////////////////////////////////////////////\r
+\r
+#ifdef _MSC_VER\r
+#pragma warning(disable: 4786 4996)\r
+#ifndef _DEBUG\r
+#pragma warning(disable: 4702)\r
+#endif\r
+#endif\r
+\r
+#include "_ibpp.h"\r
+\r
+#ifdef HAS_HDRSTOP\r
+#pragma hdrstop\r
+#endif\r
+\r
+#include <time.h> // Can't use <ctime> thanks to MSVC6 buggy library\r
+\r
+using namespace ibpp_internals;\r
+\r
+void IBPP::Date::Today()\r
+{\r
+ time_t systime = time(0);\r
+ tm* loctime = localtime(&systime);\r
+\r
+ if (! IBPP::itod(&mDate, loctime->tm_year + 1900,\r
+ loctime->tm_mon + 1, loctime->tm_mday))\r
+ throw LogicExceptionImpl("Date::Today", _("Out of range"));\r
+}\r
+\r
+void IBPP::Date::SetDate(int dt)\r
+{\r
+ if (! IBPP::dtoi(dt, 0, 0, 0))\r
+ throw LogicExceptionImpl("Date::SetDate", _("Out of range"));\r
+ mDate = dt;\r
+}\r
+\r
+void IBPP::Date::SetDate(int year, int month, int day)\r
+{\r
+ if (! IBPP::itod(&mDate, year, month, day))\r
+ throw LogicExceptionImpl("Date::SetDate", _("Out of range"));\r
+}\r
+\r
+void IBPP::Date::GetDate(int& year, int& month, int& day) const\r
+{\r
+ if (! IBPP::dtoi(mDate, &year, &month, &day))\r
+ throw LogicExceptionImpl("Date::GetDate", _("Out of range"));\r
+}\r
+\r
+int IBPP::Date::Year() const\r
+{\r
+ int year;\r
+ if (! IBPP::dtoi(mDate, &year, 0, 0))\r
+ throw LogicExceptionImpl("Date::Year", _("Out of range"));\r
+ return year;\r
+}\r
+\r
+int IBPP::Date::Month() const\r
+{\r
+ int month;\r
+ if (! IBPP::dtoi(mDate, 0, &month, 0))\r
+ throw LogicExceptionImpl("Date::Month", _("Out of range"));\r
+ return month;\r
+}\r
+\r
+int IBPP::Date::Day() const\r
+{\r
+ int day;\r
+ if (! IBPP::dtoi(mDate, 0, 0, &day))\r
+ throw LogicExceptionImpl("Date::Day", _("Out of range"));\r
+ return day;\r
+}\r
+\r
+void IBPP::Date::Add(int days)\r
+{\r
+ int newdate = mDate + days; // days can be signed\r
+ if (! IBPP::dtoi(newdate, 0, 0, 0))\r
+ throw LogicExceptionImpl("Date::Add()", _("Out of range"));\r
+ mDate = newdate;\r
+}\r
+\r
+void IBPP::Date::StartOfMonth()\r
+{\r
+ int year, month;\r
+ if (! IBPP::dtoi(mDate, &year, &month, 0))\r
+ throw LogicExceptionImpl("Date::StartOfMonth()", _("Out of range"));\r
+ if (! IBPP::itod(&mDate, year, month, 1)) // First of same month\r
+ throw LogicExceptionImpl("Date::StartOfMonth()", _("Out of range"));\r
+}\r
+\r
+void IBPP::Date::EndOfMonth()\r
+{\r
+ int year, month;\r
+ if (! IBPP::dtoi(mDate, &year, &month, 0))\r
+ throw LogicExceptionImpl("Date::EndOfMonth()", _("Out of range"));\r
+ if (++month > 12) { month = 1; year++; }\r
+ if (! IBPP::itod(&mDate, year, month, 1)) // First of next month\r
+ throw LogicExceptionImpl("Date::EndOfMonth()", _("Out of range"));\r
+ mDate--; // Last day of original month, all weird cases accounted for\r
+}\r
+\r
+IBPP::Date::Date(int year, int month, int day)\r
+{\r
+ SetDate(year, month, day);\r
+}\r
+\r
+IBPP::Date::Date(const IBPP::Date& copied)\r
+{\r
+ mDate = copied.mDate;\r
+}\r
+\r
+IBPP::Date& IBPP::Date::operator=(const IBPP::Timestamp& assigned)\r
+{\r
+ mDate = assigned.GetDate();\r
+ return *this;\r
+}\r
+\r
+IBPP::Date& IBPP::Date::operator=(const IBPP::Date& assigned)\r
+{\r
+ mDate = assigned.mDate;\r
+ return *this;\r
+}\r
+\r
+// The following date calculations were inspired by web pages found on\r
+// Peter Baum web homepage at 'http://www.capecod.net/~pbaum/'.\r
+// His contact info is at : 'http://home.capecod.net/~pbaum/contact.htm'.\r
+// Please, understand that Peter Baum is not related to this IBPP project.\r
+// So __please__, do not contact him regarding IBPP matters.\r
+\r
+// Take a date, in its integer format as used in IBPP internals and splits\r
+// it in year (4 digits), month (1-12), day (1-31)\r
+\r
+bool IBPP::dtoi (int date, int *y, int *m, int *d)\r
+{\r
+ int RataDie, Z, H, A, B, C;\r
+ int year, month, day;\r
+\r
+ // Validity control.\r
+ if (date < IBPP::MinDate || date > IBPP::MaxDate)\r
+ return false;\r
+\r
+ // The "Rata Die" is the date specified as the number of days elapsed since\r
+ // 31 Dec of year 0. So 1 Jan 0001 is 1.\r
+\r
+ RataDie = date + ibpp_internals::consts::Dec31_1899; // Because IBPP sets the '0' on 31 Dec 1899.\r
+\r
+ Z = RataDie + 306;\r
+ H = 100*Z - 25;\r
+ A = H/3652425;\r
+ B = A - A/4;\r
+ year = (100*B + H) / 36525;\r
+ C = B + Z - 365*year - year / 4;\r
+ month = (5*C + 456) / 153;\r
+ day = C - (153*month - 457) / 5;\r
+ if (month > 12) { year += 1; month -= 12; }\r
+\r
+ if (y != 0) *y = (int)year;\r
+ if (m != 0) *m = (int)month;\r
+ if (d != 0) *d = (int)day;\r
+\r
+ return true;\r
+}\r
+\r
+// Take a date from its components year, month, day and convert it to the\r
+// integer representation used internally in IBPP.\r
+\r
+bool IBPP::itod (int *pdate, int year, int month, int day)\r
+{\r
+ int RataDie, result;\r
+ int y, m, d;\r
+\r
+ d = day; m = month; y = year;\r
+ if (m < 3) { m += 12; y -= 1; }\r
+ RataDie = d + (153*m - 457) / 5 + 365*y + y/4 - y/100 + y/400 - 306;\r
+\r
+ result = RataDie - ibpp_internals::consts::Dec31_1899; // Because IBPP sets the '0' on 31 Dec 1899\r
+\r
+ // Validity control\r
+ if (result < IBPP::MinDate || result > IBPP::MaxDate)\r
+ return false;\r
+\r
+ *pdate = result;\r
+ return true;\r
+}\r
+\r
+// Eof\r