2

YYYYMMDD という日付を示す 8 桁の数字があります。この数値を Excel が日付として認識する日付に変換する方法を教えてください。

セル A1 に 20120229 が含まれているとしましょう...どうすればよいでしょうか?

4

3 に答える 3

9

この質問に VBA のタグを付けたので、VBA で回答が必要だと思います。

Dim l As Long
Dim s As String
Dim d As Date

l = Range("A1").Value ' 20120229

' convert it to a string 
s = CStr(l)

' can now use string functions to parse it
d = DateSerial(CInt(Left(s, 4)), CInt(Mid(s, 5, 2)), CInt(Right(s, 2)))
' d is now 29 Feb 2012

' write it back to the sheet
Range("A2").Value = d
于 2012-06-18T19:11:46.180 に答える
5

次の数式を使用します=DATE(LEFT(A1,4),MID(A1,5,2),RIGHT(A1,2))。 A1 はセル座標です。

于 2012-06-18T19:01:50.333 に答える