Название месяцев.

[Rockot]

Добрый день, помогите пожалуйста решить вопрос, нужно получить из диапазона дат то есть у меня две даты "С 1.01.2016" и "По 31.03.2016"

Функцию получения количества месяцев из этого диапазона я сделал, сложности возникли получить наименование каждого месяца.

Мне нужно будет записать их в массив, что бы потом работать с ними.
Пример:
0: январь
1: февраль
2: март

Опишите если сталкивались с подобной проблемой и как решить хоть на словах примерно.

[evg_m]

uses dateutils; 

for j:=MonthOf(d1) to Monthof(d2) do // работоспособно ЕСЛИ НЕТ перехода года 1.12.2015  - 31.03.2016  ==> :=12 to 3 !!!!
begin
  case j of
  1: a[n]:='январь'; // Мне нужно будет записать их в массив, 
...
  12: a[n]:='декабрь';
  end;
  n:=n+1;
end;

m1:=monthof(d1);
m2:=monthof(d2); 
if m2<m1 then m2:=m2+12; // в случае перехода 
for j:=m1 to m2 do

// НЕ БОЛЕЕ одного перехода
  case j of
  1, 13: .... 
....
  11, 23: ....
  end;
// или любое число переходов
  case ((j-1) mod 12)+1 of
  .....
  end;
end;

while d1<=d2 do 
  a[n]:=FormatDateTime('mmmm', d1);
  n:=n+1;
  IncMonth(d1,1);
end;

[Rockot]

Сообщение от evg_m

uses dateutils; 

for j:=MonthOf(d1) to Monthof(d2) do // работоспособно ЕСЛИ НЕТ перехода года 1.12.2015  - 31.03.2016  ==> :=12 to 3 !!!!
begin
  case j of
  1: a[n]:='январь'; // Мне нужно будет записать их в массив, 
...
  12: a[n]:='декабрь';
  end;
  n:=n+1;
end;

Вот как раз проблема то в том что есть переход))

[evg_m]

смотри дополнения (код2 код3)

Вот как раз проблема то в том что есть переход))

так и надо было сразу акцентировать внимание на это (привести пример с такими датами или хотя бы упомянуть это).

[min@y™]

// редкий случай использования нумерации массива с 1, а не с 0:
const 
  MONTHS: array[1..12] of PChar = 
    ('Январь', 'Февраль', ..., 'Декабрь');

Вариант из работающей программы:

36.png

const
  DaysOfWeek: array[1..7] of string = ('Понедельник',
                                       'Вторник',
                                       'Среда',
                                       'Четверг',
                                       'Пятница',
                                       'Суббота',
                                       'Воскресенье');

  DaysOfWeekShort: array[1..7] of string = ('Пн',
                                            'Вт',
                                            'Ср',
                                            'Чт',
                                            'Пт',
                                            'Сб',
                                            'Вс');

  Months: array[1..12] of ShortString = ('января', 'февраля', 'марта',
                                         'апреля', 'мая', 'июня',
                                         'июля', 'августа', 'сентября',
                                         'октября', 'ноября', 'декабря');
// ------------------
function GetDateStr: string;
var
  Year, Month, Day: Word;
  D: TDate;
begin
  D:= Date();
  DecodeDate(D, Year, Month, Day);
  Result:= Format('%s, %d %s %d', [DaysOfWeek[DayOfTheWeek(D)], Day, Months[Month], Year]);
end;

[IliaIT]

фигня какая то написана выше.
чем функция FormatDateTime не подошла?

FormatDateTime('mmmm', DateTime_tek)

вот и бегите от начальной даты добавляя месяц каждый раз к текущей переменной (IncMonth(DateTime_tek, 1); ) до тех пор пока месяц переменной не будет равен месяцу конечной даты.

как то так писал в блокноте.

DateTime_tek:=DateTime_nach;
n:=1;
repeat 
	a[n]:=FormatDateTime('mmmm', DateTime_tek);
	IncMonth(DateTime_tek);
	n:=n+1;
until DateTime_tek<DateTime_kon;
if MonthOf(DateTime_tek) = Monthof(DateTime_kon) then 
a[n]:=FormatDateTime('mmmm', DateTime_tek);

[min@y™]

фигня какая то написана выше.

Действительно. Чой-то я?...

[Rockot]

Так ребят спасибо во первых всем за помощь, правда вы все были не правы, получил от начальника по шапке за говнокод...

Пишу для народа который будет искать подобное:
MonthsBetween( ); Возвращает число полных месяцев (с некоторой погрешностью) между дву*мя указанными значениями ANow и AThen типа TDateTime.

Так же история и с наименованием в делфи уже всё готово и можно получить наименование по номеру месяца и т.п.

[min@y™]

правда вы все были не правы, получил от начальника по шапке за говнокод...

1. Начальник всегда прав.
2. См. п.1.

[TaLadno]

Сообщение от Rockot

Так ребят спасибо во первых всем за помощь, правда вы все были не правы, получил от начальника по шапке за говнокод...

90% кода в интернете - говно
+
Сага о X, Y и Z...
+

Сообщение от min@y™

1. Начальник всегда прав.
2. См. п.1.