long HejriDate2Days(Date date)
{
long days;
short int HejriMontsDays[] = {31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29};
short int kabise;
kabise = date.Y/4;
days = date.Y*365+kabise;
if( date.Y%4 == 0 && date.Y > 0 )
HejriMontsDays[11] = 30;
for( int i=0; i<12 && i<date.M-1; i++ ){
days += HejriMontsDays[i];
}
days += date.D;
return days;
}