| |
|
|
| | У меня из другой программы даты импортитуются в виде 20090630 как мне это преобразовать в нармальный вид
я пробовала так
задала переменую строковую K которой присваиваю "дату" и потом пишу Format (k, "yyyy.mm.dd ")
так у меня ничего не получилось
Посоветуйте что нибудь | |
| |
| |
| |
|
|
| | Dim D As Date, B As String
Buf = "20090630"
D = CDate(Mid$(Buf, 7, 2) & "/" & Mid$(Buf, 5, 2) & "/" & Left$(Buf, 4)) | |
| |
| |
| |
|
|
| | Или:
Dim D As Date, B As String
B = "20090630"
D = DateSerial(Left$(B, 4), Mid$(B, 5, 2), Right$(B, 2)) | |
| |
| |
| |
|
|
| | ?cdate(format(20090630,"####/##/##"))
30.06.2009 | |
| |
| |
| |
|
|
| | не знаю может у меня офис не такой (MSA 2003).....
но вот так пролазит......
Dim a As Date, d As String
d="20090630"
a=Left(d, 4) & "." & Mid(d, 5, 2) & "." & Right(d, 2) | |
| |
| |
| |
|
|
| | обычный офис :) MSA2003 (возможно "виноваты" региональные установки?)
?format(20090630,"####/##/##")
2009/06/30
или
?format(20090630,"####\.##\.##")
2009.06.30
просто функция CDATE была применена....
в вашем случае
Dim a As Date, d As String
d="20090630"
a=format(d,"####\.##\.##")
|
| |
| |
| |
