有些东西始终都是需要互相访问的，报表使用程序的函数也是家常了。 1.载入调用函数名。 procedure TFKy_Fayun.FormCreate(Sender: TObject); begin frxReport1.AddFunction('function HeBin(s1:Double;s2:Double;s3:Double): string;','HeBin','合并函数'); end; 2.在报表的UserFunction事件添加如下代
标签： 函数
[Excel]单列按不同条件取最大值
最近有个朋友在用excel做自己的数据时，遇到从一堆序列中取末尾最大值。 见下图。 第一列中的值末尾按部门取最大值。 1.我们要做的是先分离出部门。 公式如下：{=MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1
[函数]获取汉字首拼音字符函数
目前比较能用的一个函数了，来源记不清楚了好像是咏南的博客。 声明函数，再调用即可。 代码如下： function CnPYIndex(const CnString: string): string; { 返回中文的拼音首字母 } const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (
分享个Delphi人民币转大写的函数
开发到财务方面的东西，往往需要把数值转换成大写金额输出。 网上找了一圈都没发现完美的，尤其是在XE系列下。 发现这个写法还是比较满意的，特分享。 function THxsdj.UPRMB(val: Double): string; {人民币转大写函数} var Dig, Dpos, retVal, retValjf: string; IntPart:
表单自编号规则
以前开发的规则是从数据库中以计数形式累计+1，但是出现删除单据后会出现变的错乱。 遂又寻找方案，在群里，群主提到了他的编号规则，时间日期，产生一启发。 方案1： 代码：jbbh.Caption:='SC'+FormatDateTime('yymmddhhmmss',Now())+inttostr(Random(9));/ 一句话搞定，另或采用函数： 代码如下： function zibianhao(str1: string): string; {自编号//代码由序