{
Return day of week: 1..7=Mon..Sun.
}
function ms2DayOfWeek(ms:Real):Integer;
var DaysSinceXmas:Integer;
begin
 DaysSinceXmas:=Trunc(ms/86400000);
 ms2DayOfWeek:=(DaysSinceXmas mod 7)+1;
end;
{
Return list of week days as language string.
 En:      Mo,Tu,We,Th,Fr,Sa,Su
 Ru:      Пн,Вт,Ср,Чт,Пт,Сб,Вс
 Eng:     Mon,Tue,Wed,Thu,Fri,Sat,Sun
 Rus:     Пнд,Втр,Срд,Чтв,Птн,Сбт,Вск
 English: Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
 Russian: Понедельник,Вторник,Среда,Четверг,Пятница,Суббота,Воскресенье
 Default: 1,2,3,4,5,6,7    
}
function DayOfWeekList(Lang:String):String;
begin
 if IsSameText(Lang,'En')      then Lang:='Mo,Tu,We,Th,Fr,Sa,Su' else
 if IsSameText(Lang,'Ru')      then Lang:='Пн,Вт,Ср,Чт,Пт,Сб,Вс' else
 if IsSameText(Lang,'Eng')     then Lang:='Mon,Tue,Wed,Thu,Fri,Sat,Sun' else
 if IsSameText(Lang,'Rus')     then Lang:='Пнд,Втр,Срд,Чтв,Птн,Сбт,Вск' else
 if IsSameText(Lang,'English') then Lang:='Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday' else
 if IsSameText(Lang,'Russian') then Lang:='Понедельник,Вторник,Среда,Четверг,Пятница,Суббота,Воскресенье' else
 Lang:='1,2,3,4,5,6,7';
 DayOfWeekList:=Lang;
end;
{
Return day of week as language string.
}
function DayOfWeekStr(DayOfWeek:Integer; Lang:String):String;
begin
 DayOfWeekStr:=ExtractWord(DayOfWeek,DayOfWeekList(Lang));
end;
function ms2DayOfWeekStr(ms:Real; Lang:String):String;
var DayOfWeek:Integer;
begin
 DayOfWeek:=ms2DayOfWeek(ms);
 ms2DayOfWeekStr:=DayOfWeekStr(DayOfWeek,Lang);
end;
