//は現在、最後の12月をチェックし、1月です

  IF MonthOf（日）= 1  、次に//現在12月-1月、昨年は、チェック
    ：Y-を - = 1 //昨年表示するには、
  他
    ：Y- = 0 ;
   のため =：I 12  とdownto  1  DO 
    cmbMonth.Items.Add （形式（' ％のD - 2次元％。'、[YearOf（日）+ Y、I]））; 

  IF Y = 0  次に
    cmbMonth.ItemIndex： = cmbMonth.Items.IndexOf（形式（' ％のD - ％2D。"、[YearOf（日）、MonthOf（日） - 1。]））//現在2月12月、1月と今年の11月に確認する
   他
    cmbMonth.ItemIndexを：CmbMonth.Items.IndexOf =（形式（' ％のD - ％2D。'、[YearOf（日） - 1。 、12である ]））; //現在1月12月チェック