I have found the following piece of code on the Internet and used it fine on my previous computer. Now that I changed computer, I cannot get it to work. I have not found anything relating to this in past threads in this forum.

The Idea is to add 36 (Delay) months to a date entered (StartDate).

The code is:



{QUOTE
{SET mm{=MOD(ABS({StartDate \@ M}+Delay+11);12)}}
{SET yy{=INT({StartDate \@ yyyy}+(Delay+{StartDate \@ m}-1)/12)}}
{SET dd{=IF(({StartDate \@ d}>28)*({mm \@ M}=2)=1;28+((MOD(yy;4)=0)+(MOD(yy;400)=0)-(MOD(yy;100)=0));
IF(({mm \@M}=4)+({mm \@ M}=6+({mm \@ M}=9)+({mm \@ M}=11)+({StartDate \@ d}>30)>1;30;{StartDate \@ d}))}}
{IF{={IF{={StartDate \@ “dddd”}}=”!*” 0 1}+{IF{={StartDate \@ “MMMM”}}= “!*” 0 1}+{IF{a}=”!*” 1 0}+{IF{=Delay}=”{Delay}” 0 1}}=0
{QUOTE “{dd}-{mm}-{yy}” \@ “dddd, d MMMM yyyy”}.” “Data entry error!”}}

Can anyone help me figure out what I am doing wrong?

Thank you.

Hi
Can you post a copy of your document with the code embedded so we can take a look for you.
Tony(OTPM)

Does this help?

Attached Files

Period of hire.docx (25.6 KB, 10 views)

Hi tsindos,

That code comes from my Microsoft Word Date Calculation Tutorial, at:
http://lounge.windowssecrets.com/ind...owtopic=249902
or
http://www.gmayor.com/downloads.htm#Third_party

It would appear that you've tried to combine a field code from the tutorial that used error-checking with the field for adding months to a date, and got some of the syntax wrong - specifically, a '(' before the first 'Delay' reference. If your formfield has data entry validation, you don't need the additional error-checking code, and it can be reduced to:
{QUOTE
{SET mm{=MOD(ABS({StartDate \@ M}+Delay+11);12)+1}}
{SET yy{=INT({StartDate \@ yyyy}+(Delay+{StartDate \@ M}-1)/12)}}
{SET dd{=IF(({StartDate \@ d}>28)*(mm=2)=1;28+((MOD(yy;4)=0)+(MOD(yy;400)=0)-(MOD(yy;100)=0));IF((mm=4)+(mm=6)+(mm=9)+(mm=11)+( {StartDate \@ d}>30)>1;30;{StartDate \@ d}))}}
"{dd}-{mm}-{yy}" \@ "dddd, d MMMM yyyy" \* Charformat}

Note that I've bolded the 'Q' in 'QUOTE' and added a Charformat switch. That's the correct way to alter the field's formatting - not by trying to apply bold formatting to the lot (which often adds numerous unhelpful Mergeformat switches).

Also, your formfields need the 'calculate on exit' property set, otherwise, the calculation won't occur.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you very much Paul. It seems you know your Word.

I cannot test your code since i am away from my work computer for 2 days. I will test it later this week and update you.

Thanks again