whole + (numerator / denominator);
)


Function (Stringvar dateRange)
Select dateRange
Case "Aged0To30Days" : Aged0To30Days
Case "Aged31To60Days" : Aged31To60Days
Case "Aged61To90Days" : Aged61To90Days
Case "AllDatesFromToday" : AllDatesFromToday
Case "AllDatesFromTomorrow" : AllDatesFromTomorrow
Case "AllDatesToToday" : AllDatesToToday
Case "AllDatesToYesterday" : AllDatesToYesterday
Case "Calendar1stHalf" : Calendar1stHalf
Case "Calendar1stQtr" : Calendar1stQtr
Case "Calendar2ndHalf" : Calendar2ndHalf
Case "Calendar2ndQtr" : Calendar2ndQtr
Case "Calendar3rdQtr" : Calendar3rdQtr
Case "Calendar4thQtr" : Calendar4thQtr
Case "Last4WeeksToSun" : Last4WeeksToSun
Case "Last7Days" : Last7Days
Case "LastFullMonth" : LastFullMonth
Case "LastFullWeek" : LastFullWeek
Case "LastYearMTD" : LastYearMTD
Case "LastYearYTD" : LastYearYTD
Case "MonthToDate" : MonthToDate
Case "Next30Days" : Next30Days
Case "Next31To60Days" : Next31To60Days
Case "Next61To90Days" : Next61To90Days
Case "Next91To365Days" : Next91To365Days
Case "Over90Days" : Over90Days
Case "WeekToDateFromSun" : WeekToDateFromSun
Case "YearToDate" : YearToDate
Case "Yesterday" : CurrentDate-1 To CurrentDate-1
Default: YearToDate

Parameters

dateRange

string equivalent of a Crystal Reports’ Date Range.

Return Value

Date Range

Remarks

This function is useful when a report needs to provide a means to prompt on named date ranges, rather than a starting and ending date. See Business Objects Enterprise: Create a dynamic list of date ranges for an example.

Example

'converts the 'Date Range' parameter (a list of strings) to an actual Date Range.
{Orders.OrderDate} IN CDateRange({?Date Range})


Requirements

This function requires the use of Crystal Syntax.

//--------------------------------------------------------------------------------
//Author: Cogniza.com
//Purpose: Convert a constant value to a localized string
//Parameters: Key -
// Lang - ISO language string
//Returns: localized string
//--------------------------------------------------------------------------------
Function (Stringvar Key, Stringvar Lang)
//define array of keys that are used by Formula fields
Stringvar Array Keys:=["COUNTRY","REGION","CITY"];
//define arrays of localized strings for each required language in the same position as the Key array
Stringvar Array Values;
Select Lang
Case "en_US": Values:=["Country","State","City"]
Case "it_IT": Values:=["Paese","Dichiari","Città"]
Case "fr_FR": Values:=["Pays","état","Ville"]
Default: Values:=["Country","State","City"]
//End Select
;
//iterate through Key array...
Numbervar i;
Stringvar value;
for i := 1 To Ubound(Keys) do (
//if value in array matches the specified value, return the value from the localized array
if Keys[i] = Key then
value:=Values[i];
exit for
//end if
);
//return result
value;

Parameters

Key

The abstract value.

Lan

The ISO language string

Return Value

A string

Remarks

Crystal Reports XI introduces a new keyword named ‘ContentLocale’. This property returns the machine’s locale setting, usually found in the Control Panel’s Regional Settings (e.g. en_US for English (US)). However, this keyword can only be used in formulae that are excuted during the report’s ‘Second Pass’ (see Crystal Reports: Report Processing Model). The following Record Selection Formuala, for example, will generate an error:

{my_table.localeName}=ContentLocale

ContentLocale can be used in combination with a Report Custom Function to dynamically and transparently apply localization settings when a report is viewed, even reports that have been saved with data or have been scheduled using Business Objects Enterprise.

Example

//if the workstation's ContentLocal is Italian (Italy), then the following will return 'Paese'
getLocalizedString ("COUNTRY",ContentLocale)


Requirements

This function requires the use of Crytal Syntax.

Function FirstMonday (Value As Date) As Date
'first day of the specified month
Dim FirstOfMonth As Date
FirstOfMonth= DateValue(Year(Value), Month(Value), 1)
'Convert the first day to the Monday of the same week
Dim Monday As Date
Monday = FirstOfMonth + (2-DayOfWeek(FirstOfMonth))
'make sure Monday is still in the same month as the first day of the month. If not, adjust.
If Month(Monday) <> Month(FirstOfMonth) Then Monday=Monday+7
'return date
FirstMonday=Monday
End Function


Parameters

Value

The specified month.

Return Value

A date

Remarks

none

Example

'finds the first monday of the current month
FirstMonday(CurrentDate)


Requirements

This function requires the use of Basic Syntax.

Function Pad (Value As Number, Comparison As Number, Padding As String) As String

dim SPACE_CHARACTER: SPACE_CHARACTER=ChrW(32)

If Value
Pad=Replace(Space(Len(CStr(Comparison,0))-Len(CStr(Value,0))), SPACE_CHARACTER, Padding) & CStr(Value,0)
Else
Pad=CStr(Value,0)
End If

End Function

Parameters

Value

value to be padded.

Comparison

value compared to this number.

Padding

character used to pad the value.

Return Value

A string.

Remarks

none

Example

'returns "09"
Pad (9, 10, "0")

‘returns “11″
Pad (11, 10, “0″)

Requirements

This function requires the use of Basic Syntax.

Function (NumberVar interval)
NumberVar Days := Truncate(interval / 86400);
NumberVar Hours := Truncate(Remainder(interval, 86400) / 3600);
NumberVar Minutes := Truncate(Remainder(interval, 3600) / 60);
NumberVar Seconds := Remainder(interval, 60);
Totext(Days,'##') +'.'+ Totext(Hours,'00') +':'+ Totext(Minutes,'00') +':'+ Totext(Seconds,'00')


Parameters

interval

The number of seconds to be converted.

Return Value

A string in the format of days.hours:minutes:seconds

Remarks

none

Example

//returns 0.00:02:12
ElapsedTime(132)

//formats the difference between two datetime values.
ElapsedTime ((CurrentDateTime-DateTime(2006,1,1,0,0,0))*86400)

//formats the difference between two datetime values.
ElapsedTime (DateDiff("s", {TABLE.FIELD}, CurrentDateTime))

Requirements

This function requires the use of Crystal Syntax.

Function ShellSort(Values() As Number)


‘exit if array has no elements
If Ubound(Values)=0 Then Exit Function

‘account for optional arguments
Dim LastElement As number
LastElement = UBound(Values)

‘Crystal Reports’ arrays are 1-based.
Dim FirstElement As Number
FirstElement = 1

Dim Elements As Number
Elements = LastElement – FirstElement + 1

‘find the best value for distance
Dim distance As Number
Do

distance = distance * 3 + 1

Loop Until distance > Elements

Dim temp as number
Dim index As Number, index2 As Number

Do

distance = distance \ 3
For index = distance + FirstElement To LastElement

temp = Values(index)
index2 = index

Do While (Values(index2 – distance) > temp)

Values(index2) = Values(index2 – distance)
index2 = index2 – distance
If index2 – distance < FirstElement Then Exit Do

Loop

Values(index2) = temp

Next
Loop Until distance = 1

ShellSort=Values
End Function

Parameters

Values

An array of numbers.

Return Value

A sorted array of numbers

Remarks

Arrays in Crystal Reports are limit to 1000 elements.

Example

//create an array of numbers
Numbervar Array numbers:=[44,2,77,4,9,1,0,55,3];

//sort the array
numbers:=ShellSort(numbers);

//returns 0,1,2,3,4,9,44,55,77,
numbervar i;

stringvar t;
for i := 1 to ubound(numbers) do

t:=t & cstr(numbers[i],0) & “,”;

t;

Requirements

This function requires the use of Basic Syntax.