System.CalcDate(Text [, Date]) Method
Version: Available or changed with runtime version 1.0.
Calculates a new date that is based on a date expression and a reference date.
Syntax
NewDate := System.CalcDate(DateExpression: Text [, Date: Date])
Note
This method can be invoked without specifying the data type name.
Parameters
DateExpression
Type: Text
The date expression can be any length. The string is interpreted from left to right with one subexpression at a time. The following rules describe the valid syntax of date expressions:
- DateExpression = [<Subexpression>][<Subexpression>][<Subexpression>]
- <Subexpression> = [<Sign>] <Term>- <Sign> = + | -
- <Term> = <Number><Unit> | <Unit><Number> | <Prefix><Unit>
- <Number> = Positive integer
- <Unit> = D | WD | W | M | Q | Y (D=day, WD=weekday, W=week, M=month, Q=quarter, Y=year)
- <Prefix> = C (C=current) These production rules show that date expressions consist of zero, one, two, or three subexpressions. Each subexpression consists of an optional sign and a term. The following are some typical examples of terms:
- 30D (30 days; corresponds to <Number><Unit>)
- WD2 (weekday number 2; corresponds to <Unit><Number>)
- CW (current week; corresponds to <Prefix><Unit>) The internal calendar starts on Monday and ends on Sunday. This means that Monday is weekday 1 and Sunday is weekday 7. A run-time error occurs if the syntax of DateExpression is incorrect.
[Optional] Date
Type: Date
Use this optional parameter to define a reference date. The default is the current system date. If you omit this optional value, the current system date is used.
Return Value
NewDate
Type: Date
Remarks
DateExpression can be a field or variable of type Text or Code, and it can be a field or variable of type DateFormula. The benefit of using a DateFormula field or variable is that the date formula becomes language independent.
The user can enter formulas in the currently selected language. The formula is stored in a generic format in a field or variable. When the formula must be displayed, the actual string that is displayed is converted to the currently selected language.
For example, if a user who has language set to ENG (English) enters the date formula "1W+1D" for one week and one day, then a user who has the language set to FRA (French) sees "1S+1J," and a user who has the language set to ESP (Spanish) sees "1S+1D".
If a date formula is entered with < > delimiters surrounding it, then the date formula is stored in a generic, nonlanguage-dependent format. This makes it possible to develop date formulas that are not dependent on the currently selected language.
For more information about how to calculate the duration between two DateTimes, see Duration Data Type.
Example 1
This code example shows how to use the production rules that were previously described.
<CQ+1M-10D>
This should be interpreted as the following: current quarter + 1 month - 10 days.
The DateExpression is composed of the following:
<Prefix><Unit><Sign><Number><Unit><Sign><Number><Unit>
Note
The angle brackets (< >) specify that the expression is not translated, regardless of the application language.
Example 2
This example shows how to use the CalcDate method.
var
Expr1: Text[30];
Expr2: Text[30];
Expr3: Text[30];
RefDate: Date;
Date1: Date;
Date2: Date;
Date3: Date;
RefDateTxt: Label 'The reference date is: %1 \\';
Expr1Txt: Label 'The expression: %2 returns %3\\';
Expr2Txt: Label 'The expression: %4 returns %5\\';
Expr3Txt: Label 'The expression: %6 returns %7';
begin
Expr1 := '<CQ+1M-10D>'; // Current quarter + 1 month - 10 days
Expr2 := '<-WD2>'; // The last weekday no.2, (last Tuesday)
Expr3 := '<CM+30D>'; // Current month + 30 days
RefDate := 19960521D;
Date1 := CalcDate(Expr1, RefDate);
Date2 := CalcDate(Expr2, RefDate);
Date3 := CalcDate(Expr3, RefDate);
Message(RefDateTxt + Expr1Txt + Expr2Txt + Expr3Txt,
RefDate, Expr1, Date1, Expr2, Date2, Expr3, Date3);
end;
The message window displays the following text:
The reference date is: 05/21/96
The expression: CQ+1M-10D returns 07/20/96
The expression: -WD2 returns 05/14/96
The expression: CM+30D returns 06/30/96