如何实现分段计价功能

例题描述

Excel文件中有两个表，表一中的电价、备注需要根据充电开始时间查询表二中对应时段的电价和备注。如下图所示：

 

实现步骤

1、  运行集算器

可去润乾官网下载职场版，同时下载一个免费授权就够了，首次运行时会提示加载。

2、  编写脚本：

把代码列出来看得清楚点：

	A	B
1	...	...
2	=A1.import@t()	=B1.import@t()
3	=B2.(开始时间)
4	for A2	>x=A3.pseg(time(A4.充电开始时间))
5		>x=if(x==0,5,x)
6		=A4.field("电价",B2(x).电价)
7		=A4.field("备注",B2(x).备注)
8	=clipboard(A2.new(电价,备注).export())

A1   复制Excel中B2-F39区域的数据，在集算器中双击A1，按Ctrl+V把数据复制到A1格中

B1   复制Excel中H2-K7区域的数据，在集算器中双击B1，按Ctrl+V把数据复制到B1格中

A2   把A1中的数据读成序表，选项@t表示首行是列标题

B2   把B1中的数据读成序表，选项@t表示首行是列标题

A3   取B2中的开始时间列的所有值组成序列

A4   循环A2中每一行

B4   查询充电开始时间在A3中的分段区间中的段号

B5   如果段号为0(即0到6点)，则改为第5段(22点以后)

B6   将电价设为B2中对应时间段的电价

B7   将备注设为B2中对应时间段的备注

A8   取A2中的电价、备注列转成字符串后放到剪贴板中

 

3、  按F9运行程序，运行结束后再回到Excel文件，点击E3，按Ctrl+V就可以把剪贴板中的数据粘贴过来。如下图所示：