xref: /aoo42x/main/tools/source/datetime/tdate.cxx (revision 27ead02a)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_tools.hxx"
26 
27 #if defined( OS2 )
28 #define INCL_DOSDATETIME
29 #include <svpm.h>
30 #elif defined( WNT )
31 #ifdef _MSC_VER
32 #pragma warning (push,1)
33 #endif
34 #include <tools/svwin.h>
35 #ifdef _MSC_VER
36 #pragma warning (pop)
37 #endif
38 #else
39 #include <time.h>
40 #endif
41 
42 #include <tools/debug.hxx>
43 #include <tools/date.hxx>
44 #ifdef  MACOSX
45 extern "C" {
46 struct tm *localtime_r(const time_t *timep, struct tm *buffer);
47 }
48 #endif
49 
50 // =======================================================================
51 
52 static sal_uInt16 aDaysInMonth[12] = { 31, 28, 31, 30, 31, 30,
53 								   31, 31, 30, 31, 30, 31 };
54 
55 #define MAX_DAYS	3636532
56 
57 // =======================================================================
58 
ImpIsLeapYear(sal_uInt16 nYear)59 inline sal_Bool ImpIsLeapYear( sal_uInt16 nYear )
60 {
61 	return (
62                  ( ((nYear % 4) == 0) && ((nYear % 100) != 0) ) ||
63                  ( (nYear % 400) == 0 )
64                );
65 }
66 
67 // -----------------------------------------------------------------------
68 
DaysInMonth(sal_uInt16 nMonth,sal_uInt16 nYear)69 inline sal_uInt16 DaysInMonth( sal_uInt16 nMonth, sal_uInt16 nYear )
70 {
71 	if ( nMonth != 2 )
72 		return aDaysInMonth[nMonth-1];
73 	else
74 	{
75 		if (ImpIsLeapYear(nYear))
76 			return aDaysInMonth[nMonth-1] + 1;
77 		else
78 			return aDaysInMonth[nMonth-1];
79 	}
80 }
81 
82 // -----------------------------------------------------------------------
83 
DateToDays(sal_uInt16 nDay,sal_uInt16 nMonth,sal_uInt16 nYear)84 long Date::DateToDays( sal_uInt16 nDay, sal_uInt16 nMonth, sal_uInt16 nYear )
85 {
86 	long nDays;
87 
88 	nDays = ((sal_uIntPtr)nYear-1) * 365;
89 	nDays += ((nYear-1) / 4) - ((nYear-1) / 100) + ((nYear-1) / 400);
90 	for( sal_uInt16 i = 1; i < nMonth; i++ )
91 		nDays += DaysInMonth(i,nYear);
92 	nDays += nDay;
93 	return nDays;
94 }
95 
96 // -----------------------------------------------------------------------
97 
DaysToDate(long nDays,sal_uInt16 & rDay,sal_uInt16 & rMonth,sal_uInt16 & rYear)98 static void DaysToDate( long nDays,
99 						sal_uInt16& rDay, sal_uInt16& rMonth, sal_uInt16& rYear )
100 {
101 	long	nTempDays;
102 	long	i = 0;
103 	sal_Bool	bCalc;
104 
105 	do
106 	{
107 		nTempDays = (long)nDays;
108 		rYear = (sal_uInt16)((nTempDays / 365) - i);
109 		nTempDays -= ((sal_uIntPtr)rYear-1) * 365;
110 		nTempDays -= ((rYear-1) / 4) - ((rYear-1) / 100) + ((rYear-1) / 400);
111 		bCalc = sal_False;
112 		if ( nTempDays < 1 )
113 		{
114 			i++;
115 			bCalc = sal_True;
116 		}
117 		else
118 		{
119 			if ( nTempDays > 365 )
120 			{
121 				if ( (nTempDays != 366) || !ImpIsLeapYear( rYear ) )
122 				{
123 					i--;
124 					bCalc = sal_True;
125 				}
126 			}
127 		}
128 	}
129 	while ( bCalc );
130 
131 	rMonth = 1;
132 	while ( (sal_uIntPtr)nTempDays > DaysInMonth( rMonth, rYear ) )
133 	{
134 		nTempDays -= DaysInMonth( rMonth, rYear );
135 		rMonth++;
136 	}
137 	rDay = (sal_uInt16)nTempDays;
138 }
139 
140 // =======================================================================
141 
Date()142 Date::Date()
143 {
144 #if defined( OS2 )
145 	PM_DATETIME aDateTime;
146 	DosGetDateTime( &aDateTime );
147 
148 	// Datum zusammenbauen
149 	nDate = ((sal_uIntPtr)aDateTime.day) +
150 			(((sal_uIntPtr)aDateTime.month)*100) +
151 			(((sal_uIntPtr)aDateTime.year)*10000);
152 #elif defined WNT
153 	SYSTEMTIME aDateTime;
154 	GetLocalTime( &aDateTime );
155 
156 	// Datum zusammenbauen
157 	nDate = ((sal_uIntPtr)aDateTime.wDay) +
158 			(((sal_uIntPtr)aDateTime.wMonth)*100) +
159 			(((sal_uIntPtr)aDateTime.wYear)*10000);
160 #else
161 	time_t	   nTmpTime;
162 	struct tm aTime;
163 
164 	// Zeit ermitteln
165 	nTmpTime = time( 0 );
166 
167 	// Datum zusammenbauen
168 	if ( localtime_r( &nTmpTime, &aTime ) )
169 	{
170 		nDate = ((sal_uIntPtr)aTime.tm_mday) +
171 				(((sal_uIntPtr)(aTime.tm_mon+1))*100) +
172 				(((sal_uIntPtr)(aTime.tm_year+1900))*10000);
173 	}
174 	else
175 		nDate = 1 + 100 + (((sal_uIntPtr)1900)*10000);
176 #endif
177 }
178 
179 // -----------------------------------------------------------------------
180 
SetDay(sal_uInt16 nNewDay)181 void Date::SetDay( sal_uInt16 nNewDay )
182 {
183 	sal_uIntPtr  nMonth  = GetMonth();
184 	sal_uIntPtr  nYear   = GetYear();
185 
186 	nDate = ((sal_uIntPtr)(nNewDay%100)) + (nMonth*100) + (nYear*10000);
187 }
188 
189 // -----------------------------------------------------------------------
190 
SetMonth(sal_uInt16 nNewMonth)191 void Date::SetMonth( sal_uInt16 nNewMonth )
192 {
193 	sal_uIntPtr  nDay 	 = GetDay();
194 	sal_uIntPtr  nYear	 = GetYear();
195 
196 	nDate = nDay + (((sal_uIntPtr)(nNewMonth%100))*100) + (nYear*10000);
197 }
198 
199 // -----------------------------------------------------------------------
200 
SetYear(sal_uInt16 nNewYear)201 void Date::SetYear( sal_uInt16 nNewYear )
202 {
203 	sal_uIntPtr  nDay 	= GetDay();
204 	sal_uIntPtr  nMonth	= GetMonth();
205 
206 	nDate = nDay + (nMonth*100) + (((sal_uIntPtr)(nNewYear%10000))*10000);
207 }
208 
209 // -----------------------------------------------------------------------
210 
GetDayOfWeek() const211 DayOfWeek Date::GetDayOfWeek() const
212 {
213 	return (DayOfWeek)((sal_uIntPtr)(DateToDays( GetDay(), GetMonth(), GetYear() )-1) % 7);
214 }
215 
216 // -----------------------------------------------------------------------
217 
GetDayOfYear() const218 sal_uInt16 Date::GetDayOfYear() const
219 {
220 	sal_uInt16 nDay = GetDay();
221 	for( sal_uInt16 i = 1; i < GetMonth(); i++ )
222          nDay = nDay + ::DaysInMonth( i, GetYear() );   // += yields a warning on MSVC, so don't use it
223 	return nDay;
224 }
225 
226 // -----------------------------------------------------------------------
227 
GetWeekOfYear(DayOfWeek eStartDay,sal_Int16 nMinimumNumberOfDaysInWeek) const228 sal_uInt16 Date::GetWeekOfYear( DayOfWeek eStartDay,
229 							sal_Int16 nMinimumNumberOfDaysInWeek ) const
230 {
231 	short nWeek;
232 	short n1WDay = (short)Date( 1, 1, GetYear() ).GetDayOfWeek();
233 	short nDayOfYear = (short)GetDayOfYear();
234 
235 	// Wochentage beginnen bei 0, deshalb einen abziehen
236 	nDayOfYear--;
237 	// StartDay beruecksichtigen
238 	n1WDay = (n1WDay+(7-(short)eStartDay)) % 7;
239 
240     if (nMinimumNumberOfDaysInWeek < 1 || 7 < nMinimumNumberOfDaysInWeek)
241     {
242         DBG_ERRORFILE("Date::GetWeekOfYear: invalid nMinimumNumberOfDaysInWeek");
243         nMinimumNumberOfDaysInWeek = 4;
244     }
245 
246 	if ( nMinimumNumberOfDaysInWeek == 1 )
247 	{
248 		nWeek = ((n1WDay+nDayOfYear)/7) + 1;
249 		// 53te-Woche nur dann, wenn wir nicht schon in der ersten
250 		// Woche des neuen Jahres liegen
251 		if ( nWeek == 54 )
252 			nWeek = 1;
253 		else if ( nWeek == 53 )
254 		{
255 			short nDaysInYear = (short)GetDaysInYear();
256 			short nDaysNextYear = (short)Date( 1, 1, GetYear()+1 ).GetDayOfWeek();
257 			nDaysNextYear = (nDaysNextYear+(7-(short)eStartDay)) % 7;
258 			if ( nDayOfYear > (nDaysInYear-nDaysNextYear-1) )
259 				nWeek = 1;
260 		}
261 	}
262 	else if ( nMinimumNumberOfDaysInWeek == 7 )
263 	{
264 		nWeek = ((n1WDay+nDayOfYear)/7);
265 		// Erste Woche eines Jahres entspricht der letzen Woche des
266 		// vorherigen Jahres
267 		if ( nWeek == 0 )
268 		{
269 			Date aLastDatePrevYear( 31, 12, GetYear()-1 );
270 			nWeek = aLastDatePrevYear.GetWeekOfYear( eStartDay, nMinimumNumberOfDaysInWeek );
271 		}
272 	}
273 	else // ( nMinimumNumberOfDaysInWeek == somehing_else, commentary examples for 4 )
274 	{
275 		// x_monday - thursday
276 		if ( n1WDay < nMinimumNumberOfDaysInWeek )
277 			nWeek = 1;
278 		// friday
279 		else if ( n1WDay == nMinimumNumberOfDaysInWeek )
280 			nWeek = 53;
281 		// saturday
282 		else if ( n1WDay == nMinimumNumberOfDaysInWeek + 1 )
283 		{
284 			// Jahr nach Schaltjahr
285 			if ( Date( 1, 1, GetYear()-1 ).IsLeapYear() )
286 				nWeek = 53;
287 			else
288 				nWeek = 52;
289 		}
290 		// sunday
291 		else
292 			nWeek = 52;
293 
294 		if ( (nWeek == 1) || (nDayOfYear + n1WDay > 6) )
295 		{
296 			if ( nWeek == 1 )
297 				nWeek += (nDayOfYear + n1WDay) / 7;
298 			else
299 				nWeek = (nDayOfYear + n1WDay) / 7;
300 			if ( nWeek == 53 )
301 			{
302 				// naechster x_Sonntag == erster x_Sonntag im neuen Jahr
303 				//					   == noch gleiche Woche
304 				long nTempDays = DateToDays( GetDay(), GetMonth(), GetYear() );
305 				nTempDays +=  6 - (GetDayOfWeek()+(7-(short)eStartDay)) % 7;
306 				sal_uInt16	nDay;
307 				sal_uInt16	nMonth;
308 				sal_uInt16	nYear;
309 				DaysToDate( nTempDays, nDay, nMonth, nYear );
310 				nWeek = Date( nDay, nMonth, nYear ).GetWeekOfYear( eStartDay, nMinimumNumberOfDaysInWeek );
311 			}
312 		}
313 	}
314 
315 	return (sal_uInt16)nWeek;
316 }
317 
318 // -----------------------------------------------------------------------
319 
GetDaysInMonth() const320 sal_uInt16 Date::GetDaysInMonth() const
321 {
322 	return DaysInMonth( GetMonth(), GetYear() );
323 }
324 
325 // -----------------------------------------------------------------------
326 
IsLeapYear() const327 sal_Bool Date::IsLeapYear() const
328 {
329 	sal_uInt16 nYear = GetYear();
330 	return ImpIsLeapYear( nYear );
331 }
332 
333 // -----------------------------------------------------------------------
334 
IsValid() const335 sal_Bool Date::IsValid() const
336 {
337 	sal_uInt16 nDay   = GetDay();
338 	sal_uInt16 nMonth = GetMonth();
339 	sal_uInt16 nYear  = GetYear();
340 
341 	if ( !nMonth || (nMonth > 12) )
342 		return sal_False;
343 	if ( !nDay || (nDay > DaysInMonth( nMonth, nYear )) )
344 		return sal_False;
345 	else if ( nYear <= 1582 )
346 	{
347 		if ( nYear < 1582 )
348 			return sal_False;
349 		else if ( nMonth < 10 )
350 			return sal_False;
351 		else if ( (nMonth == 10) && (nDay < 15) )
352 			return sal_False;
353 	}
354 
355 	return sal_True;
356 }
357 
358 // -----------------------------------------------------------------------
359 
operator +=(long nDays)360 Date& Date::operator +=( long nDays )
361 {
362 	sal_uInt16	nDay;
363 	sal_uInt16	nMonth;
364 	sal_uInt16	nYear;
365 	long	nTempDays = DateToDays( GetDay(), GetMonth(), GetYear() );
366 
367 	nTempDays += nDays;
368 	if ( nTempDays > MAX_DAYS )
369 		nDate = 31 + (12*100) + (((sal_uIntPtr)9999)*10000);
370 	else if ( nTempDays <= 0 )
371 		nDate = 1 + 100;
372 	else
373 	{
374 		DaysToDate( nTempDays, nDay, nMonth, nYear );
375 		nDate = ((sal_uIntPtr)nDay) + (((sal_uIntPtr)nMonth)*100) + (((sal_uIntPtr)nYear)*10000);
376 	}
377 
378 	return *this;
379 }
380 
381 // -----------------------------------------------------------------------
382 
operator -=(long nDays)383 Date& Date::operator -=( long nDays )
384 {
385 	sal_uInt16	nDay;
386 	sal_uInt16	nMonth;
387 	sal_uInt16	nYear;
388 	long	nTempDays = DateToDays( GetDay(), GetMonth(), GetYear() );
389 
390 	nTempDays -= nDays;
391 	if ( nTempDays > MAX_DAYS )
392 		nDate = 31 + (12*100) + (((sal_uIntPtr)9999)*10000);
393 	else if ( nTempDays <= 0 )
394 		nDate = 1 + 100;
395 	else
396 	{
397 		DaysToDate( nTempDays, nDay, nMonth, nYear );
398 		nDate = ((sal_uIntPtr)nDay) + (((sal_uIntPtr)nMonth)*100) + (((sal_uIntPtr)nYear)*10000);
399 	}
400 
401 	return *this;
402 }
403 
404 // -----------------------------------------------------------------------
405 
operator ++()406 Date& Date::operator ++()
407 {
408 	sal_uInt16	nDay;
409 	sal_uInt16	nMonth;
410 	sal_uInt16	nYear;
411 	long	nTempDays = DateToDays( GetDay(), GetMonth(), GetYear() );
412 
413 	if ( nTempDays < MAX_DAYS )
414 	{
415 		nTempDays++;
416 		DaysToDate( nTempDays, nDay, nMonth, nYear );
417 		nDate = ((sal_uIntPtr)nDay) + (((sal_uIntPtr)nMonth)*100) + (((sal_uIntPtr)nYear)*10000);
418 	}
419 
420 	return *this;
421 }
422 
423 // -----------------------------------------------------------------------
424 
operator --()425 Date& Date::operator --()
426 {
427 	sal_uInt16	nDay;
428 	sal_uInt16	nMonth;
429 	sal_uInt16	nYear;
430 	long	nTempDays = DateToDays( GetDay(), GetMonth(), GetYear() );
431 
432 	if ( nTempDays > 1 )
433 	{
434 		nTempDays--;
435 		DaysToDate( nTempDays, nDay, nMonth, nYear );
436 		nDate = ((sal_uIntPtr)nDay) + (((sal_uIntPtr)nMonth)*100) + (((sal_uIntPtr)nYear)*10000);
437 	}
438 	return *this;
439 }
440 
441 #ifndef MPW33
442 
443 // -----------------------------------------------------------------------
444 
operator ++(int)445 Date Date::operator ++( int )
446 {
447 	Date aOldDate = *this;
448 	Date::operator++();
449 	return aOldDate;
450 }
451 
452 // -----------------------------------------------------------------------
453 
operator --(int)454 Date Date::operator --( int )
455 {
456 	Date aOldDate = *this;
457 	Date::operator--();
458 	return aOldDate;
459 }
460 
461 #endif
462 
463 // -----------------------------------------------------------------------
464 
operator +(const Date & rDate,long nDays)465 Date operator +( const Date& rDate, long nDays )
466 {
467 	Date aDate( rDate );
468 	aDate += nDays;
469 	return aDate;
470 }
471 
472 // -----------------------------------------------------------------------
473 
operator -(const Date & rDate,long nDays)474 Date operator -( const Date& rDate, long nDays )
475 {
476 	Date aDate( rDate );
477 	aDate -= nDays;
478 	return aDate;
479 }
480 
481 // -----------------------------------------------------------------------
482 
operator -(const Date & rDate1,const Date & rDate2)483 long operator -( const Date& rDate1, const Date& rDate2 )
484 {
485     sal_uIntPtr  nTempDays1 = Date::DateToDays( rDate1.GetDay(), rDate1.GetMonth(),
486 									rDate1.GetYear() );
487     sal_uIntPtr  nTempDays2 = Date::DateToDays( rDate2.GetDay(), rDate2.GetMonth(),
488 									rDate2.GetYear() );
489 	return nTempDays1 - nTempDays2;
490 }
491