Перевод числа в дату в VB

[kuznetsovSergey]

Люди добрые подскажите, как на языке VB , поменять вот такую цифру: 20090629 , вот в такой формат: 29.06.2009

Заранее спасибо!

[EducatedFool]

Код: Выделить всё

[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]

[kuznetsovSergey]

уау !!! спасибо !! в двух вариантах даже, ну мне и d1 вариант в полне достаточно !!! СПАСИБО!