xtcut -f key1,date1 |
  xtslide -k key1 -f date1:nextVisit |
  xtcal -c 'day($nextVisit,$date1)' -a day |
  xtcut -f key1,day |
  xtagg -k key1 -f day -c avg