Dynamics 365 Business Central: A simple Date Formula testing tool

Hi, Readers.
Regarding date calculation in Business Central, we have discussed the following two topics.
1. How to get Start Date and End Date (Period) of the week/month/quarter/year (Includes last and next) from a given date

2. About complex Due Date Calculations: More examples:

PS: As for how to use the date formula, you can refer to the instructions in MS Learn below.
Work with Calendar Dates and Times -> Use Date Formulas: The date formula can contain a maximum of 20 characters, both numbers and letters. You can use the following letters, which are abbreviations for calendar units.

You can construct a date formula in three ways.
The following example shows how to use C, for current, and a time unit.

The following example shows how to use a number and a time unit. A number cannot be larger than 9999.

The following example shows how to use a time unit and a number.

The following example shows how you can combine these three forms as needed.

The following example shows how you can use a minus sign to indicate a date in the past.

This is also used in the Job Queue. But even experienced developers need to confirm or do a simple calculation to ensure that there is no problem with the date. This is obviously difficult for non-developers.

In this post, I would like to share a simple Date Formula testing tool that I hope you can use when calculating dates.
For example,

Give it a try!😁

Source code: Github (Please note that the source code is for reference only, you can improve it according to your own needs)

page 50110 "Date Formula Test Tool"
{
    PageType = Card;
    ApplicationArea = All;
    UsageCategory = Administration;
    layout
    {
        area(Content)
        {
            group(Input)
            {
                field(InputDate; InputDate)
                {
                    Caption = 'Input Date';
                    ApplicationArea = All;

                    trigger OnValidate()
                    begin
                        CalculateDateFormula();
                    end;
                }
                field(DateFormula; DateFormula)
                {
                    Caption = 'Date Formula';
                    ApplicationArea = All;

                    trigger OnValidate()
                    begin
                        CalculateDateFormula();
                    end;
                }
            }
            group(Result)
            {
                field(ResultDate; ResultDate)
                {
                    Caption = 'Result Date';
                    ApplicationArea = All;
                    Editable = false;
                }
            }
        }
    }

    var
        InputDate: Date;
        ResultDate: Date;
        DateFormula: DateFormula;

    local procedure CalculateDateFormula()
    begin
        if (InputDate <> 0D) and (Format(DateFormula) <> '') then begin
            ResultDate := CalcDate(DateFormula, InputDate);
        end;
    end;
}

END

Hope this will help.

Thanks for reading.

ZHU