if (Day==1) NameDay="Понедельник";
else if (Day==2) NameDay="Вторник";
else if (Day==3) NameDay="Среда";
else if (Day==4) NameDay="Четверг";
else if (Day==5) NameDay="Пятница";
else if (Day==6) NameDay="Суббота";
else if (Day==7) NameDay="Воскресенье";
А разве не с 0 идёт нумерация дней недели?
При чём 0==воскресенье