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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Converter data longa pra data curta?
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 05/09/2007 11:59 hs         
Dim sDateString As String, sTimeString As String
Dim dDate As Date, dTime As Date
sDateString = "terça-feira, 4 de setembro de 2007"
'ou
'sDateString = "February 12, 1969"
'>> Ambos dão pau de Type Mismatch
dDate = CVDate(sDateString)
dDate = CVDate(sDateString)
dDate = Format$(sDateString, "dd/mm/yy hh:nn:ss")
 
'Converter hora longa dá certo:
sTimeString = "4:35:47 AM"
dTime = CDate(sTimeString)

http://www.vilmarbro.com.br
     
ArtSoft
SAO PAULO
SP - BRASIL
Postada em 05/09/2007 14:27 hs         
Fala Vilmar blz ?! Referente a sua duvida é o seguinte :

Com o dia da semana + dia + mes + ano realmente não vai funcionar....mas com mes + dia + ano funciona !!! Só que você tem que informar o mes na linguagem que o windows esta trabalhando, se em ingles ou em portugues, segue o teste abaixo :

Dim sDateString As String, sTimeString As String
Dim dDate As Date, dTime As Date
'sDateString = "terça-feira, 4 de setembro de 2007"
'ou
sDateString = "Fevereiro 12, 1969"
'>> Ambos dão pau de Type Mismatch
dDate = CDate(sDateString)
dDate = Format(sDateString, "dd/mm/yy hh:mm:ss")
'
'Converter hora longa dá certo:
sTimeString = "4:35:47 AM"
dTime = CDate(sTimeString)
MsgBox dDate & " " & dTime
 

 

Alexandre Costa
ArtSoftSystems

Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

     
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 05/09/2007 14:52 hs         
Alexandre,
 
Ok, só dá certo mesmo se data estiver no mínimo num formato:
"12 maio 2005"
"may 12 2005"

Com dia da semana, num vai de jeito algum !!

Mas converter qualquer data para "dia da semana, dia de mes de ano hora:minuto:segundo" , faz numa boa !!
Exemplos:
debug.Print Format$(#31/1/2001 5:04:23 PM#,"dddddd hh:nn:ss")
quarta-feira, 31 de janeiro de 2001 17:04:23

debug.Print Format$(now,"dddddd hh:nn:ss")
quarta-feira, 5 de setembro de 2007 17:21:37

Será que os programadores do VB x versão num pensaram nisto não , fazer a conversão da volta ?

Até com VB.Net pelo jeito tb. não tem , já fucei todo wikipedia do VB.Net 2005 e nada achei também!!
 
Vlw :)

http://www.vilmarbro.com.br
TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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