C++ Builder XE关于TDateTime批量加减时间TTimerPiker的设置

void __fastcall TForm3::Button3Click(TObject *Sender)
{

TDateTime *DT = new TDateTime();    //new TDateTime类型变量
*DT=TPicker1->Time;
//加 1 小时: DT = (double)DT + 1/24;
//加 1 分钟: DT = (double)DT + 1/(24*60);
//加 1 秒钟: DT = (double)DT + 1/(24*60*60);
unsigned short i,j,k,h;
//DT->DecodeDate( &i,&j,&k);                //分解日期
int LJ = RzSpinEdit1->EditText.ToInt(); //累计分钟
DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  String Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  String Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker1->Time=StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker2->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker2->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker3->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker3->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker4->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker4->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker5->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker5->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker6->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker6->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker7->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker7->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker8->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker8->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

  *DT = TPicker9->Time;
  DT->DecodeTime(&i,&j,&k,&h);           //分解时间
  Ht =AnsiString().sprintf("%02d",(i+ (j+LJ)/60)%24);
  Nt =AnsiString().sprintf("%02d",(j+ LJ)%60);
  EPicker9->Time =StrToTime(Ht+":"+Nt+":"+"00").FormatString("hh:nn:ss");;// RzSpinEdit1->EditText.ToInt();

}