Visual Basic和Excel在水文资料统计中的应用

张永华，刘 刚，刘国梁

(黑龙江省水利水电勘测设计研究院，哈尔滨 150080)

Visual Basic和Excel在水文资料统计中的应用

张永华，刘 刚，刘国梁

(黑龙江省水利水电勘测设计研究院，哈尔滨 150080)

水文资料是一切与水相关联的国民经济建设的重要基础信息和决策依据。水文资料数据量大，资料统计的工作量很大，如何提高数据统计的速率与准确率，成为工程规划设计的问题之一。文章介绍了怎样利用Excel中的计算功能结合Visual Basic语言编制程序进行实测流量资料统计，说明Visual Basic和Excel在水文资料统计中的应用。

水文资料;编程;统计;Visual Basic;Excel;应用

0 前言

水文资料是一切与水相关联的国民经济建设的重要基础信息和决策依据。要解决我国当前面临的洪涝灾害、水资源短缺和水环境恶化这三大水资源问题，就必须依据水文资料。在水文水利计算工作中，最重要的一步就是水文资料统计工作，而水文资料统计存在工作量大，人为操作因素影响大，出错后不易查找等诸多困扰，为后续的水文分析计算造成阻碍。将水文资料存储在Excel中，利用Visual Basic编制数据统计程序就可以大大降低人为出错率，提高工作效率。笔者以水文站实测流量资料统计最大1、3、7、15、30日洪量为例，说明Visual Basic和Excel在水文资料统计中的应用。

1 资料收集

在水利工程规划设计工作中所用到的水文资料大多是由水文测站实测资料经过资料整编后的数据资料，由地方水文局录入数据库进行管理。由于工程项目规划设计需要，到水文局抄取水文资料。

2 在Excel中统计流量资料

水文资料从水文局收集，一般以记事本的格式存放，本次资料统计将记事本中数据转换到Excel中。打开记事本文件复制数据，另打开Excel文件点击单元格A1复制数据，这样数据会分行显示在同一列表格中。选中A列点击菜单中“数据(D)”下拉菜单中“分列”，在原始数据类型中选择分隔符号后点击“下一步”，在分隔符号中选择Tab键和空格后点击“完成”，见图1。

按照上述方法将水文站流量资料转换成统一格式，格式见图2。

图1 Excel中统计流量资料示意图

图2 Excel中水文站流量资料转换示意图

在Excel中也可进行数据统计，如统计最大7日洪量，在单元格中输入“=sum(D2：J2)*24*3600/10000”，然后向右、向下拖动单元格右下角十字标即可求出连续7日洪量，但是，当上月月末与下月月初连续7日洪量就要重新输入公式，这样做起来很繁琐，容易出错，求最大15日洪量，甚至是最大30日洪量时的工作量就更大，费时费力，还不能保证统计数据的准确性。为后续的规划设计工作带来困扰。

3 用Visual Basic编程统计流量资料

通过Visual Basic程序调用Excel中“日平均流量”工作表，部分程序代码如下：

将Excel工作表中日平均流量数据统计后输出在同一个工作表中流量数据右侧，一列为年份，另一列为逐日流量。其中二月平年为28 d，闰年为29 d，要单独统计。统计出来的数据在一列内，便于之后的统计计算和数据抽样检查。

部分程序代码如下：

图3 程序调用示意图

4 在 Excel中计算最大1、3、7、15、30 日洪量

由上一步统计出的流量系列，可以很容易计算最1、3、7、15、30日洪量，将统计数据输入A列，选中对应天数数据求和，如求最大7日洪量则在单元格B2中输入“=SUM(A2：A8)*24*3600/10000”，然后向下拖动单元格右下角十字标，即得到连续7日洪量系列，在此系列中选出最大值就是最大7日洪量，最大3、15、30日洪量计算同理可得。

5 程序应用

水文资料统计是水文水利计算的基础，水文水利计算又是水利规划设计的前期工作，因此，水文资料统计在各规划设计中占有举足轻重的地位。笔者在多次水利规划设计中运用此程序统计水文资料，如《黑龙江省汤旺河干流梯级水电站规划》、《黑龙江省七台河市汪清水库增容扩建工程可行性研究》、《松花江佳木斯悦来航电枢纽工程预可行性研究》等。

［1］刘圣才，李春葆.Visual Basic 6程序设计导学［M］.北京：清华大学出版社，2002：39-43，109-120.

TP39

B

1007-7596(2011)06-0081-02

2011-08-02

张永华(1983-)，女，黑龙江双鸭山人，助理工程师;刘刚(1954-)，男，浙江杭州人，高级工程师;刘国梁(1982-)，男，黑龙江哈尔滨人，助理工程师。