float Ayear;
float Amonth;
float Aday;
long x;
long y;
long Row;
long StartTime;
string temp;
Ayear=ADate.Year;
Amonth=ADate.Month;
Aday=ADate.Day;
temp=StrFromInt( Ayear, 10 );
if(Amonth<10)
temp=temp+"-0"+StrFromInt( Amonth, 10 );
else
temp=temp+"-"+StrFromInt( Amonth, 10 );
if(Aday<10)
temp=temp+"-0"+StrFromInt( Aday, 10 );
else
temp=temp+"-"+StrFromInt( Aday, 10 );
\\本站点\选择日期=temp;
ReportSetCellString2("Report2", 7, 1, 30, 11, " "); //清空单元格
ReportSetCellString2("Report2", 38, 1, 61, 11, " "); //清空单元格
ReportSetCellString("Report2", 3, 10, temp);//填写日期
//查询数据
StartTime=HTConvertTime(Ayear,Amonth,Aday,0,0,0);
ReportSetHistData("Report2", "\\本站点\Fl", StartTime, 3600, "B7:B30");
ReportSetHistData("Report2", "\\本站点\F2", StartTime, 3600, "C7:C30");
ReportSetHistData("Report2", "\\本站点\CODcr1", StartTime, 3600,"D7:D30");
ReportSetHistData("Report2", "\\本站点\pH1", StartTime, 3600, "E7:E30");
ReportSetHistData("Report2", "\\本站点\pH2", StartTime, 3600, "F7:F30");
ReportSetHistData("Report2", "\\本站点\DO1", StartTime, 3600, "G7:G30");
ReportSetHistData("Report2", "\\本站点\Ba_C", StartTime, 3600, "H7:H30");
ReportSetHistData("Report2", "\\本站点\Bb_C", StartTime, 3600, "I7:I30");
ReportSetHistData("Report2", "\\本站点\Ba_BR", StartTime, 3600, "J7:J30");
ReportSetHistData("Report2", "\\本站点\Bb_BR", StartTime, 3600, "K7:K30");
//查询数据
StartTime=HTConvertTime(Ayear,Amonth,Aday,0,0,0);
ReportSetHistData("Report2", "", StartTime, 3600, "B38:B61");
ReportSetHistData("Report2", "", StartTime, 3600, "C38:C61");
ReportSetHistData("Report2", "\\本站点\ID_0", StartTime, 3600,"D38:D61");
ReportSetHistData("Report2", "\\本站点\ID_1", StartTime, 3600, "E38:E61");
ReportSetHistData("Report2", "\\本站点\ID_2", StartTime, 3600, "F38:F61");
ReportSetHistData("Report2", "\\本站点\F4", StartTime, 3600, "G38:G61");
ReportSetHistData("Report2", "\\本站点\CODcr2", StartTime, 3600, "H38:H61");
ReportSetHistData("Report2", "\\本站点\pH3", StartTime, 3600, "I38:I61");
//填写时间
x=0;
       while(x<24)
       {
       row=7+x;
       y=StartTime+x*3600;
       temp=StrFromTime( y, 2 );
       ReportSetCellString("Report2", row, 1, temp);
       x=x+1;
       }


请问38~61在时间怎么自动填入？