Перевод числа в дату в VB
Добавлено: 09 июл 2009, 17:01
Люди добрые подскажите, как на языке VB , поменять вот такую цифру: 20090629 , вот в такой формат: 29.06.2009
Заранее спасибо!
Заранее спасибо!
Код: Выделить всё
[color=darkblue]Sub[/color] test()
txt = "20090629" [color=green]' исходная строка[/color]
[color=darkblue]Dim[/color] d1 [color=darkblue]As[/color] [color=darkblue]Date[/color], d2 [color=darkblue]As[/color] [color=darkblue]Date[/color] [color=green]' 2 варианта[/color]
d1 = DateSerial(Left(txt, 4), Mid(txt, 5, 2), Right(txt, 2))
d2 = [color=darkblue]CDate[/color](Format(txt, "0000/00/00"))
Debug.Print Format(d1, "D MMMM YYYY, DDDD")
Debug.Print Format(d2, "D MMMM YYYY, DDDD")
[color=darkblue]End[/color] [color=darkblue]Sub[/color]