水晶报表之自定义函数

在水晶报表中可以自定义函数，它语法规则有两种：一种是Basic语法；一种是水晶报表自带的语法(Crystal语法)。这两种语法我都不熟，但项目过程需要用到自定义函数来处理，如处理日期类型数据等。就从网上找了一些示例。

水晶报表的自定义函数的定义在公式字段中，通过右击“公式字段”，新增一个公式字段，出现一个公式字段编辑器。在“报表自定义函数”中进行新自定义函数。下面新增自定义函数及使用自定义函数，使用的语法是Basic语法。

一、定义处理日期的自定义函数

'进行日期转换
Function myDate (date1 as dateTime)
    Dim date2 as Date
'分别取出年月日   
date2=CDate(date1)
    myDate =ToText(date2,"yyyy年MM月dd日")
End Function

二、使用自定义函数

自定义函数一般使用在公式字段中

myDate({table.column})