Начало эпохи 01.01.2000 00:00:00
Работает корректно до 2100 года.

//-----------------------------------------------------------------------------
//! \fn extern DWORD date_to_int(DWORD y, DWORD m, DWORD d)
//! \brief Преобразует дату в число.
//! \param y Год.
//! \param m Месяц.
//! \param d День месяца.
//! \return Номер дня по порядку от начала эпохи.
//! \sa int_to_date().
//-----------------------------------------------------------------------------
extern DWORD date_to_int(DWORD y, DWORD m, DWORD d);

//-----------------------------------------------------------------------------
//! \fn extern void int_to_date (const DWORD jd, DWORD *y, DWORD *m, DWORD *d)
//! \brief Преобразует число в дату.
//! \param jd Номер дня по порядку от начала эпохи.
//! \param y Указатель на переменную для года.
//! \param m Указатель на переменную для месяца.
//! \param d Указатель на переменную для дня месяца.
//! \sa date_to_int().
//-----------------------------------------------------------------------------
extern void int_to_date (const DWORD jd, DWORD *y, DWORD *m, DWORD *d);

//-----------------------------------------------------------------------------
// int date_to_int(int y, int m, int d)
//-----------------------------------------------------------------------------
DWORD date_to_int(DWORD y, DWORD m, DWORD d)
{
if(m < 3)
{
m += 12;
y -= 1;
}
return ((y * 1461) >> 2) + ((m * 306 + 7) / 10) + d - 730533;
}

//-----------------------------------------------------------------------------
// void int_to_date(DWORD jd, int *y, int *m, int *d)
//-----------------------------------------------------------------------------
void int_to_date(DWORD jd, DWORD *y, DWORD *m, DWORD *d)
{
int aa, bb, cc, dd, ee, mm, xx;

aa = jd + 2483589;
bb = (aa * 4 + 3) / 146097;
cc = aa - ((146097 * bb) >> 2);
dd = (4 * cc + 3) / 1461;
ee = cc - ((1461 * dd) >> 2);
mm = ((5 * ee + 2) * 13707) >> 21;

*d = ee - ((16043274 * mm + 209716) >> 19) + 1;
*m = mm + 3 - 12 * ((mm * 27) >> 8);
*y = 100 * bb + dd - 4800 + ((mm * 27) >> 8);
}

; Assembly routine to convert 16-bit unsigned binary value to BCD
; Taken from Application Reports , section 5.5.3
; Called from C as: uint32_t UIntToBCD (uint16_t UIntValue );
; 16-bit parameter "UIntValue" passed in R12
; 32-bit value "UIntToBCD" returned in R13:R12
; Uses only the scratch registers R12 -R15 so no stacking necessary
;-----------------------------------------------------------------------
        PUBLIC  UIntToBCD                ; Export symbol outside this file
        RSEG    CODE                     ; Essential as usual
UIntToBCD:                               ; Name of function as usual
        mov.w   R12 ,R14                 ; Move input and leave R12 free for result
        clr.w      R12                   ; Clear registers for result
        clr.w      R13
        mov.w   #0x0010 ,R15             ; Initialize loop counter to number of bits
LoopStart:
        rla.w      R14                   ; Shift msb of input into carry bit
        dadd.w   R12 ,R12                ; R13:R12 = 2* R13:R12 + carry bit DECIMALLY
        dadd.w   R13 ,R13                ; lsword then msword
        dec.w     R15                    ; Decrement loop counter
        jnz         LoopStart            ; Repeat if nonzero
        reta                             ;  Return instruction in MSP430X
       ; ret                             ; Usual MSP430 return instruction
END

CDate::CDate(const SYSTEMTIME &st)
{
    /* Так как бывает летнее и зимнее время, возьмем
        за базу полдень. Что бы перевод времени не влиял
        на дату. То есть, если за базу берется полночь
        переход на летнее время после зимнего может произвести
        при вычислении BackDay() пропуск целой даты.
    */
    CTime t( st.wYear, st.wMonth, st.wDay, 12, 0, 0 );

    m_time = t;
}