Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизНазвания месяцев Найти похожие ветки
← →
Dimka Maslov (2001-12-20 18:32) [2]
const Months: array [1..12] of string = ("январь", "февраль", ... , "декабрь");
function GetMonthName(N: Integer): string;
begin
if (N=>Low(Months)) and (N<=High(Months)) then Result:=Months[N] else Result:="";
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c