在访问vba中将长号转换为日期

Question

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

例如：我的长号变量是

Dim ndate as Long
ndate=20140901

我需要将此ndate作为日期变量，例如01/09/2014（dd / mm / yyyy）

提前致谢

Answer 1

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

DateSerial采用年，月，日的参数。 \ _运算符执行除法，丢弃余数，mod执行除法返回余数。

Answer 2

这可以给你答案 如果日期是20140901 然后newdate将有01/09/2014

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