为什么类型与日期不匹配

Question

为什么版式不匹配

Dim edate As Date
edate = CDate(Range("H" & i).Text)
'Range("H" & i).Text= 12/31/2019'