Converter DataFormat em texto

[MECO]

Olá amigos, preciso mesmo da vossa ajuda para o seguinte:

Tenho uma celula formatada com data do formato "yymmdd".

Numa Label ou Listbox ou qualquer outro objeto numa Form, pretendo lêr a celula mas em formato de texto, tal e qual é visualizada na celula, ou seja ex.'100828, e não em valor numérico correspondente àquele dia (que crei ser 40418)

[kuroi]

célula?? mas celula do q?? datagrid?? excel??

o codigo q você ta usando ta escrevendo 40418?? e qual o codigo??

[MECO]

é o mal de ser um ignorante na matéria.

A celula é em Ecxel e o que tenho é uma data pe. na celula B5 =hoje() cujo resultado, por estar formatada "yymmdd", é 100828

Quando activo uma Form pretendo visualizar a celula B5 na Label1.caption = range("B5") e o resultado é o valor numérico do dia, ou seja 47417. Mas o que eu quero visualizar é exatamente como está na celula do Ecxel - 100828

Agora dá para entender?

Obrigado pela ajuda

[kuroi]

entendi, mas ta estranho. aqui usei esse codigo como você passou e mostrou certinho a data como aparecia na planilha.

mas de qualquer forma, acho q vai funcionar se você converter pra data. tenta assim:

Label1.Caption = CDate(Range("B5").Value)

[MECO]

Tentei o codigo mas não me dá o resultado que queria, ou seja o que visualiza é a data em forma europeia (dd-mm-yyyy) muito embora fique em forma de texto, mas não serve para o que preciso.

E o que preciso é mesmo o aspecto (yymmdd), sem traços nem espaços, para que depois possa vir a transformálo num numero.

Acredito que até possa ser algo muito fácil, mas já esgotei as minhas fracas capaciadades.

[MECO]

Amigo Kuroi

Acho que consegui o que queria, mas à martelada, assim:

celula B5 - data do dia (em qualquer formato de data)

a seguir coloquei as seguintes formulas

na celula B6 - =ANO(B5)-2000

na celula B7 - =SE(MÊS(B5)<10;0&MÊS(B5);MÊS(B5))

na celula B8 - =SE(DIA(B5)<10;0&DIA(B5);DIA(B5))

na celula B9 - =B6&B7&B8

e na Label1.caption = range("B9") e consegui o que queria, mas é bastante rebuscado e conserteza haverá outra maneira de lá chegar sem tanto artificio, se me puder dar uma dica agradeço :)

[kuroi]

meco, era mais facil usar o format, tenta ai:

Label1.Caption = Format(CDate(Range("B5").Value), "YYMMDD")

[MECO]

Fixe amigalhão agora sim resolveu logo à primeira

Quem percebe percebe e não há mais nada a dizer

Fico a dever uma. Obragadooooooooooooooooooooooooo! :)