нифига непонятно. можно как-то попроще объяснить?
возможно сделать так:
Код:
type
TForm1 = class(TForm)
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
...
var
mn : Integer;
begin
if (ComboBox2.ItemIndex < ComboBox1.ItemIndex) And (ComboBox2.ItemIndex <> -1) Then
Raise Exception.Create('конец периода раньше, чем начало.');
if ComboBox2.ItemIndex = -1 then mn := 1
else mn := ComboBox2.ItemIndex - ComboBox1.ItemIndex;
В результате ты имеешь кол-во месяцев (ну или ошибку, если неправильно выставлены комбики).
ComboBox'ы настроить надо:
1. Items - месяцы с 1 по 12 соотв.
2. Установить тип на выбор из списка.