whole + (numerator / denominator);
)


--================================================================================
--Author: Craig Buchanan;craig.buchanan@cogniza.com
--Purpose: Generates a table of data ranges (the most recent 12 months, plus
-- three of Crystal Reports named-date ranges: MonthToDate,LastFullMonth
-- and YearToDate
--Parameters: None
--Returns: a table of date range values
--================================================================================
DROP FUNCTION dbo.DateRanges
GO
CREATE FUNCTION dbo.DateRanges ()
RETURNS @DateRangeTable TABLE (
[Sequence] decimal,
StartDate smalldatetime,
EndDate smalldatetime,
Value varchar(25),
[Description] varchar(20)
)
AS
BEGIN
--grab the system's date/time (using a view)
DECLARE @EndDate Datetime
SELECT @EndDate = Now
FROM dbo.GetNow
--calculate the first date of the current month
DECLARE @FirstOfMonth Datetime
SET @FirstOfMonth = CONVERT(VARCHAR,DatePart(m,@EndDate)) + '/1/' + CONVERT(CHAR(4),DatePart(yyyy,@EndDate))
--calculate the first day of the month, 12 months ago
DECLARE @StartDate Datetime
SET @StartDate = DateAdd(m,-12,@FirstOfMonth)
--create a sequence number generator
DECLARE @i int
SET @i = 1
--insert 12 months of data
WHILE @StartDate < @FirstOfMonth
BEGIN
INSERT INTO @DateRangeTable (
[Sequence],
StartDate,
EndDate,
Value,
[Description]
)
VALUES (
@i,
@StartDate,
DateAdd(m,1,@StartDate)-1,
--create a value in the format i;StartDate:EndDate
--ensure i is 0 padded
Right( '0' + convert(varchar, @i), 2) + ';' +
CONVERT(CHAR(10),@StartDate,110) + ':' +
CONVERT(CHAR(10),DateAdd(m,1,@StartDate)-1,110),
DATENAME(mm, @StartDate) + ' ' + CONVERT(VARCHAR,DATEPART(yyyy, @StartDate))
)
--add a month; increment counter
SET @StartDate = DateAdd(m,1,@StartDate)
SET @i = @i + 1
END
--add crystal report data ranges in the format index;DateRange
--'Year to Date'
INSERT INTO @DateRangeTable ([Sequence],StartDate,EndDate,Value,[Description])
VALUES (
@i,
'1/1/' + CONVERT(CHAR(4),DatePart(yyyy, @EndDate)),
CONVERT(CHAR(10),@EndDate,110),
Right( '0' + convert(varchar, @i), 2) + ';YearToDate','Year To Date'
)
SET @i = @i + 1
--'Last Full Month'
INSERT INTO @DateRangeTable ([Sequence],StartDate,EndDate,Value,[Description])
VALUES (
@i,
CONVERT(CHAR(10),DateAdd(m,-1,@FirstOfMonth),110),
CONVERT(CHAR(10),@FirstOfMonth-1,110),
Right( '0' + convert(varchar, @i), 2) + ';LastFullMonth','Last Full Month'
)
SET @i = @i + 1
--'Month to Date'
INSERT INTO @DateRangeTable ([Sequence],StartDate,EndDate,Value,[Description])
VALUES (
@i,
CONVERT(VARCHAR,DatePart(m, @EndDate)) + '/1/' + CONVERT(CHAR(4),DatePart(yyyy, @EndDate)),
CONVERT(CHAR(10),@EndDate,110),
Right( '0' + convert(varchar, @i), 2) + ';MonthToDate','Month To Date'
)
SET @i = @i + 1
RETURN
END
GO
GRANT SELECT ON dbo.DateRanges TO PUBLIC
GO

DateRanges SQL Script

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.