Re: Problem calculating differences

Booth Martin wrote:

Do you have to do the %diff in microseconds only? Can you do it in two steps?

c wDays = %diff(DateTime2: DateTime1: *days)
c NewDateTime2 = DateTime2 - %days(wDays)
c wMSec = (wDays * 24 * 60 * 60 * 1000) + %diff((NewDateTime2: DateTime1: *MSecs)

That isn't tested, but you see the idea? Would that work for you, Joe?

Thanks, Booth. I basically did what you and Charles suggested, by calculating the difference between the date in question and 01/01/2000, and then adding in the difference between 01/01/1970 and 01/01/2000. It works fine, especially since all dates in this application will be after 2000. However, when I get a chance I'm going to put in a DCR to both allow milliseconds calculations and to expand the maximum difference.

BTW, if anybody cares, I had a bad value. The correct calculation is thus:

d wEpoch s z static inz(z'2000-01-01-00.00.00')
d w1 s 30 0
d wMSAdjust c 949384800000

/free
w1 = (%diff( wTime: wEpoch: *mseconds));
return (w1/1000) + wMSAdjust;
/free


The wMSAdjust field is the same as the value getTimeInMillis for 01/0/2000, so everything is copacetic <smile>.

Joe