unit1.cpp

来自「日期与累积日之间的换算。 例如」· C++ 代码 · 共 75 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox_DateChange(TObject *Sender)
{
   int jj,day;
   int MONTH[12]={31,28,31,30,31,30,31,31,30,31,30,31};
   int MONTH1[12]={31,29,31,30,31,30,31,31,30,31,30,31};
//   ComboBox_Year->Text.ToInt();
                 day=0;
    if(ComboBox_Year->Text.ToInt()==2004)
              for(jj=0;jj<ComboBox_Month->Text.ToInt()-1;jj++)
                 day+=MONTH1[jj];
    else
              for(jj=0;jj<ComboBox_Month->Text.ToInt()-1;jj++)
                 day+=MONTH[jj];

              day+=ComboBox_Date->Text.ToInt();
  Edit_DayofYear->Text=day;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox_MonthChange(TObject *Sender)
{
   int jj,day;
   int MONTH[12]={31,28,31,30,31,30,31,31,30,31,30,31};
   int MONTH1[12]={31,29,31,30,31,30,31,31,30,31,30,31};
   char MYMSG[255];
    ComboBox_Date->Items->Clear();
   TStringList* MyList = new TStringList();
    if(ComboBox_Year->Text.ToInt()==2004)
      for(jj=1;jj<=MONTH1[ComboBox_Month->Text.ToInt()-1];jj++)
       {
        sprintf(MYMSG,"%2d",jj);
        MyList->Add(MYMSG);
      }
    else
      for(jj=1;jj<=MONTH[ComboBox_Month->Text.ToInt()-1];jj++)
       {
        sprintf(MYMSG,"%2d",jj);
        MyList->Add(MYMSG);
      }
        ComboBox_Date->Items->AddStrings(MyList);


                 day=0;
    if(ComboBox_Year->Text.ToInt()==2004)
              for(jj=0;jj<ComboBox_Month->Text.ToInt()-1;jj++)
                 day+=MONTH1[jj];
    else
              for(jj=0;jj<ComboBox_Month->Text.ToInt()-1;jj++)
                 day+=MONTH[jj];

              day+=ComboBox_Date->Text.ToInt();
  Edit_DayofYear->Text=day;


}
//---------------------------------------------------------------------------