Complex date comparison/Selection using fields instead of VBA

macropod · #1 05-29-2012, 06:14 AM

Try:

Code:

{QUOTE
{SET Delay 28}
{SET a{=INT((14-{DATE1 \@ M})/12)}}
{SET b{={DATE1 \@ yyyy}+4800-a}}
{SET c{={DATE1 \@ M}+12*a-3}}
{SET d{DATE1 \@ 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)}}
{IF{DATE2 \@ "YYYYMMDD"}<{QUOTE "{dd}-{mm}-{yy}" \@ "YYYYMMDD"} {DATE2 \@ "dddd, d MMMM yyyy"}{QUOTE "{dd}-{mm}-{yy}" \@ "dddd, d MMMM yyyy"}}}

Fields · #2 05-29-2012, 08:18 AM

Thanks Paul

Bizzarely, that is giving me an answer of "6--22-2014" on a 28 day delay from a Date1 of 01/02/2012.

If I change the Day on Date1 (02/02/2012, 03/02/2012, etc) then I get "07--22-2014", "08--22-2014" etc. up to 25/02/2012 = "30--22-2014" and 26/02/2012 = "1--21-2014"

If I increase the Month (01/03/2012, 01/04/2012, etc) then I get "06--21-2014" "06--20-2014" up to 01/08/2012 = "6--16-2014" and 01/09/2012 = "6--27-2015"

For a Blank source date field it gives me "Wednesday, 28 March 2012".

This would be a lot easier if I could upload an attachment, but I can't do that at the moment.

My first guess was that I am running into a problem of System date setup. The local PC is set to dd/MM/yyyy format, but the file itself is held on a network server, which should also be set to the same format (and does display file dates in that format). The source field is set up as a Date-type entry field, restricted to dd/MM/yyyy format.

The standard "Find n days offset" code works perfectly in the same document, as does the "Find difference between two dates" code. Very strange.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Date Fields	ubns	Word	8	05-15-2012 11:20 PM
Saving & reopening comparison	MarshallAbrams	Word	0	03-29-2012 06:19 AM
Comparison jumps to end	MarshallAbrams	Word	2	03-21-2012 04:04 AM
Complex array formula	andrei	Excel	9	02-03-2012 03:40 AM
30+ days Variable Day Date Calculations via Fields	ztag	Word	2	01-06-2012 11:12 AM