这样的算法如何解决？

tmtony

通过筛选病员号,按入院日期排序,然后取最近连续两次入院日期和出院日期,使用datediff来取得间隔

xieyimin008

好帖 学习中

tmtony

假如表中有如下字段
病人编号 入院日期 出院日期
dim rs as new adodb.recordset
dim datLastDate as date
rs.open "select * from 住院表",currentproject.connection,1,3
do while not rs.eof
  if nz(datLastDate)<>"" then
      msgbox "时间间隔" & datediff("d",datLastDate,rs("入院日期"))
      datLastDate=datLastDate,rs("出院日期")
  else
     datLastDate=datLastDate,rs("出院日期")
  end if
  rs.movenext
loop

大致是这样的代码,具体要你自己改一下了