Начало эпохи 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);
}