Dim m as string, J as string, A as string, i as long, k as long,MaChaine as string Machaine = "12-21-2004" i = instr(machaine,"-") k = instr(i+1,machaine,"-") m = left$(machaine,i-1) j = mid$(machaine,i+1,k-i-1) a = mid$(machaine,k+1) msgbox j & "-" & m & "-" & a
date1 = CDate("12/21/2004") MsgBox date1