Excel挑戰(zhàn)Access第二十六期：數(shù)值轉(zhuǎn)日期

pureshadow

在錄入日期的時候，總是有同學(xué)手賤喜歡用“偽日期”來冒充“真日期”，于是就有批量轉(zhuǎn)換的麻煩了。


Excel中，這種轉(zhuǎn)換簡直是秒殺，而且方法也是多種多樣，那，Access呢？

t小寶

獻一下丑，Access可以用萬能的Format：
CDate(Format("20160626","0000-00-00"))

tmtony

這題讓小寶搶到了
我還以為 Roych手快呢？
小妖最近又要興風(fēng)作浪了？ 看來又是連續(xù)出題的節(jié)奏！

tmtony

這題用VBA也可以，不過用VBA有點大材小用了， 還是小寶的方法來得簡單。

pureshadow

只有Format和VBA，沒別的招了？

pureshadow

要解決這個問題，VBA自然是不用說了……

1. 
   
2. Sub Sample()
   
3. Dim i As Long
   
4. For i = 2 To 9
   
5.     Cells(i, 2) = CDate(Format(Cells(i, 1), "0-00-00"))
   
6. Next
   
7. End Sub

復(fù)制代碼

pureshadow

設(shè)置單元格格式也可以

不過這樣出來的結(jié)果終究還是數(shù)值，還需要剪貼板粘貼一次才能變成真正的日期。

pureshadow

至于函數(shù)的解法嘛，我就不多列了……

1. =--TEXT(A2,"0-00-00")
   
2. =DATE(LEFT(A3,4),MID(A3,5,2),RIGHT(A3,2))
   
3. =--(LEFT(A4,4)&"-"&MID(A4,5,2)&"-"&RIGHT(A4,2))
   
4. =--REPLACE(REPLACE(A5,5,0,"-"),8,0,"-")

復(fù)制代碼

pureshadow

最后，一個大招：數(shù)據(jù)分列（不是人格分裂，也不是性格分裂）