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();

}