USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  230306 = 23/06/06 Como fazer ?
Rodrigo F.
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 23/03/2006 13:57 hs            
pessoal como faço para transformar esses dados
230306 - string
23/03/06 - date
 
Obrigado.

Rodrigo Ferreira

MSN - rjpferreira@hotmail.com

   
fcarlos
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 23/03/2006 14:04 hs            
Caro Rodrigo, tente
 
Dim d As Date
d = Format(230306, Date)
 
abraços,

Francisco Carlos Ferreira
Analista de Sistemas Junior
francisco.azeredo@gmail.com
   
Rodrigo F.
JABOTICABAL
SP - BRASIL
Postada em 23/03/2006 14:08 hs            
Perfeito Francisco, valeu pela dica.

Rodrigo Ferreira

MSN - rjpferreira@hotmail.com

     
UGS
SÃO CARLOS
SP - BRASIL
ENUNCIADA !
Postada em 23/03/2006 14:13 hs            
olá amigo eu tenho uma forma que boleia aqui mais não seria a melhor forma tem um comando que faz isso e não me lembro.
coloque um TextBox no seu projeto e digite a data que deseja
depois coloque um CommandButton e digite o código abaixo
MsgBox Mid(Text1, 1, 2) & "/" & Mid(Text1, 3, 2) & "/" & Mid(Text1, 5, 4)
 
Flw abraços....
   
Rodrigo F.
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 30/03/2006 00:22 hs            
alguém pode me dizer porque isso acontece, até ontem esse comando funcionava, hj não funciona mais.
 
Dim d As Date
d = Format(230306, Date)
 
Run time error ´13´:
 
Type mismatch
 
 
Obrigado
 

Rodrigo Ferreira

MSN - rjpferreira@hotmail.com

   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 30/03/2006 00:57 hs            
Não sei o q acontece mas o q vc está passando é um número (230.306) para transformar em data com um formato não convencional ("30/03/2006")... teria q passar o format assim ("dd/mm/yy") mas no caso não adiantaria...
 
tente assim:
 
Dim d As String
d = Format("230306", "##/##/##")
MsgBox d
 
t+
   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página