Thread: [Solved] Mail Merge date not working
View Single Post
 
Old 03-05-2015, 07:40 AM
gmayor's Avatar
gmayor gmayor is offline Windows 7 64bit Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,142
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Having mocked up your merge]



{MERGEFIELD RENEW_DATE}

{QUOTE
{SET Delay 1}
{SET a{=INT((14-{MERGEFIELD RENEW_DATE \@ M})/12)}}
{SET b{={MERGEFIELD RENEW_DATE \@ yyyy}+4800-a}}
{SET c{={MERGEFIELD RENEW_DATE \@ M}+12*a-3}}
{SET d{MERGEFIELD RENEW_DATE \@ d}}
{SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045+Delay}}
{SET e{=INT((4*(jd+32044)+3)/146097)}}
{SET f{=jd+32044-INT(146097*e/4)}}
{SET g{=INT((4*f+3)/1461)}}
{SET h{=f-INT(1461*g/4)}}
{SET i{=INT((5*h+2)/153)}}
{SET dd{=h-INT((153*i+2)/5)+1}}
{SET mm{=i+3-12*INT(i/10)}}
{SET yy{=100*e+g-4800+INT(i/10)}}
"{dd}-{mm}-{yy}" \@ "dddd, d MMMM yyyy"}

I get the following results

1/25/2015
Monday, 26 January 2015
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote