1D add to a date

Soloper · 2009-10-04

Hi all;

I want to insert a journal line into the Journal Line Table. For the posting date field, I want to calculate a date than insert this new date as posting date. The question is this; how to add just a day to a date? Please follow the following sample

FirstDate = myDateVariable
NewDate = myDateVariable + 1D

I want to do something like this but this code doesnt work. FirstDate, NewDate and myDateVariable is DATE.

I tried also followig example;

JournalLine."Posting Date":= "Posting Date" + 1D;

If I try to compile; It says "There is an error in a constant" and locate the cursor on the beginning of 1D.

What should I do?

Thanks.

ara3n · 2009-10-04

Try this.

FirstDate = myDateVariable
NewDate = myDateVariable + 1;

Slawek_Guzek · 2009-10-04

Hi,

1D means DATE type constant. You can substract two dates (date-date = Integer), but you cannot add two dates. You can add integer to date instead.

If by typing 1D you meant to use DateFormula constant then you should use CALCDATE function, as DateFormulas can only be used with CALCDATE

To sum up - you have two options:

1. NewDate := myDateVariable + 1 ; //not 1D

2. NewDate := CALCDATE('1D',myDateVariable);

Regards,
Slawek

Soloper · 2009-10-04

Thanks so much for the replies.

By the way, I want to find the NEXT WEEK DAY.

If the calculated days by the formula are Saturday or Sunday I want function to return MONDAY.

Is that possible?

Thanks again.

Slawek_Guzek · 2009-10-05

No, it is not possible with one DateFormula.

You need to use Date virtual table, or use at least 2 date formulas and some logic, or play with Company Calendar (codeunit 7600 Calendar Management functions).

Regards,
Slawek

Soloper · 2009-10-05

Soloper wrote:

Thanks so much for the replies.

By the way, I want to find the NEXT WEEK DAY.

If the calculated days by the formula are Saturday or Sunday I want function to return MONDAY.

Is that possible?

Thanks again.

Solved.

WeekDayNumber:=DATE2DWY(PostingDate,1); //Getting the day number

CASE WeekDayNumber OF // In case of the Week Day Number, adding the days to find next week day

1,2,3,4,5:PostingDate:=CALCDATE('1D',Rec."Posting Date");
6:PostingDate:=CALCDATE('3D',Rec."Posting Date");
7:PostingDate:=CALCDATE('2D',Rec."Posting Date");

END;

Slawek_Guzek · 2009-10-05

WeekDayNumber:=DATE2DWY(PostingDate,1); //Getting the day number

CASE WeekDayNumber OF // In case of the Week Day Number, adding the days to find next week day

1,2,3,4,5:PostingDate:=CALCDATE('1D',Rec."Posting Date");
6:PostingDate:=CALCDATE('3D',Rec."Posting Date");
7:PostingDate:=CALCDATE('2D',Rec."Posting Date");

END;

I think you need to rethink your solution...

Slawek

kine · 2009-10-05

what about this:

PostingDate:=CALCDATE('<1D>',Rec."Posting Date")
while DATE2DWY(PostingDate,1) in [6,7] do
  PostingDate:=CALCDATE('<1D>',PostingDate)

do not forget to use <> around the date formula, else it will not work for oher languages...

Soloper · 2009-10-05

@Slawek; why should I do that?

@Kine; I want to find next weekday for all days. I mean IF the date is wednesday; I want the function return Thursday.

Slawek_Guzek · 2009-10-05

Soloper wrote:

@Slawek; why should I do that?

Test, and you will see

. Kine's solution will work, your not

Soloper · 2009-10-05

What kind of message is this? Tested and works fine. I just wonder if there is a short and more practical way to do that.

Will you give a usefull info?

As I wrote before, kine's solution is shoter and more practical than my way. But It doesnt work for me. Explanation is in previous messages.

Shedman · 2009-10-05

WeekDayNumber:=DATE2DWY(PostingDate,1); //Getting the day number

CASE WeekDayNumber OF // In case of the Week Day Number, adding the days to find next week day
  1,2,3,4,5:PostingDate:=CALCDATE('1D',Rec."Posting Date");
  6:PostingDate:=CALCDATE('3D',Rec."Posting Date");
  7:PostingDate:=CALCDATE('2D',Rec."Posting Date");
END;

In the DATE2DWY function, Monday Equals 1.

So in your coding:
- when it is friday (5), it will not return the next working day, but saturday ...
- when is is saturday (6), it will not return the next working day (monday, + 2 days), but tuesday (+3 days)
- when it is sunday (7), it will not return the next working day (monday, + 1 days), but tuesday (+2 days)

Make any sense?

Your first case should be 1,2,3,4,7, the second should be 5 and the third should be 6. But the shorter option provided in the topic should work also

Slawek_Guzek · 2009-10-05

Shedman wrote:

Your first case should be 1,2,3,4,7, the second should be 5 and the third should be 6.

Exactly....

Unless your working days include Saturday but not Monday

Slawek

Soloper · 2009-10-05

Thanks ara3n, Slawek, Kine and Shedman.

1D add to a date

Answers

Categories