Date 在access vba中将长数字转换为日期

我有一个字段，其中包含数字形式的日期，需要将其转换为等效日期，以便进行进一步的操作，例如在日期与其他日期变量之间进行检查

例如：我的长数字变量是

Dim ndate as Long
ndate=20140901

我需要将此数据作为日期变量获取，例如2014年9月1日（dd/mm/yyyy）

提前谢谢

dim actualdate as date
actualdate = dateserial(ndate\10000, (ndate mod 10000)\100, ndate mod 1000000)

---

DateSerial获取参数年、月、日。运算符执行除法，丢弃余数，mod执行除法，返回余数。

这可以给出答案 如果日期是20140901 那么newdate将于2014年9月1日发布

  dim newdate as date
  newdate = CDate(Right(ndate, 2) & "/" & Mid(ndate, 5, 2) & "/" & Left(ndate, 4))

---

你能把年、月、日方程分解成单独的几行，找出导致溢出的原因吗？对不起，我只是想买些食物。mod 1000000应该是mod 100，您只需要两位数字表示日期。顺序不正确，正确的（）应该出现在mid（）之前。否则cdate（）会认为月份就是日期，反之亦然