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; //对选择日期的格式进行设置，应该为2008-05-21这种形式；
ReportSetCellString2("Report0", 4, 1, 27, 6, " "); //清空制定区域单元格
ReportSetCellString("Report0", 2, 2, temp);//填写日期到第二行，第二列；
//查询数据
StartTime=HTConvertTime(Ayear,Amonth,Aday,0,0,0); //转换位格林尼治时间
ReportSetHistData("Report0", "\\本站点\压力", StartTime, 3600, "B4:B27");
ReportSetHistData("Report0", "\\本站点\温度", StartTime, 3600, "C4:C27");
ReportSetHistData("Report0", "\\本站点\密度", StartTime, 3600, "D4:D27");
ReportSetHistData("Report0", "\\本站点\电流", StartTime, 3600, "E4:E27");
ReportSetHistData("Report0", "\\本站点\电压", StartTime, 3600, "F4:F27");
//填写时间
x=0;
while(x<24)
{
row=4+x;
y=StartTime+x*3600; //查询间隔是一个小时
temp=StrFromTime( y, 2 ); //将时间转换为字符串，格式为"12:00:00 AM"
ReportSetCellString("Report0", row, 1, temp); //从表格的第四行第一列起填充时间；
x=x+1;
}

楼主用过Excel就了解组态王报表控件了

该段代码是从历史库中取得压力、温度、密度等数据放入报表控件Report0中（Report0是报表控件名字，间隔一个小时），Report0的第一列是时间（格式为"12:00:00 AM"），第2列是压力，第3列温度。。。

 

多谢＂徐工＂的注示和 "lychang67 "　的讲解，，小弟第一次接触组态王，对组态王的函数还不太了解，以后还请你多指教．

笔敬