{
Return list of month as language string.
 Eng:     Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec
 Rus:     Янв,Фев,Мар,Апр,Май,Июн,Июл,Авг,Сен,Окт,Ноя,Дек
 English: January,February,March,April,May,June,July,August,September,October,November,December
 Russian: Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь,Декабрь
 Default: 01,02,03,04,05,06,07,08,09,10,11,12    
}
function MonthList(Lang:String):String;
begin
 if IsSameText(Lang,'Eng')     then Lang:='Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec' else
 if IsSameText(Lang,'Rus')     then Lang:='Янв,Фев,Мар,Апр,Май,Июн,Июл,Авг,Сен,Окт,Ноя,Дек' else
 if IsSameText(Lang,'English')
 then Lang:='January,February,March,April,May,June,July,August,September,October,November,December' else
 if IsSameText(Lang,'Russian')
 then Lang:='Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь,Декабрь' else
 Lang:='01,02,03,04,05,06,07,08,09,10,11,12';
 MonthList:=Lang;
end;
function MonthStr(Month:Integer; Lang:String):String;
begin
 MonthStr:=ExtractWord(Month,MonthList(Lang));
end;
function ms2MonthStr(ms:Real; Lang:String):String;
var Month:Integer;
begin
 Month:=ms2Month(ms);
 ms2MonthStr:=MonthStr(Month,Lang);
end;
