1-- Определить варианты событий рождения
2
3for i = 0, gt_get_records_count() - 1 do
4  R = gt_get_record(i); -- получить запись
5  rt = gt_get_record_type(R); -- узнать её тип
6  if (rt == rtIndividual) then
7    local b_count = 0;
8    local birthes = {};
9
10    for at = 0, gt_get_person_events_count(R) - 1 do
11      evt = gt_get_person_event(R, at);
12      ev_name = gt_get_event_name(evt);
13      ev_date = gt_get_event_date(evt);
14
15      if (ev_name == "BIRT") then
16        b_count = b_count + 1;
17        birthes[b_count] = ev_date;
18      end
19    end
20
21    if (b_count > 1) then
22      -- вывод на экран
23      gk_print("Персона "..gt_get_record_xref(R)..", имя: "..gt_get_person_name(R)..", событий рождения "..b_count);
24
25      for k = 1, #birthes do
26        gk_print("    > факт "..birthes[k]);
27      end
28    end
29  end
30end
31