FORMATAR DATA E HORA
Bom dia colegas,
Então estou tento um problema para formatar a data e a hora no Vb.Net
Eu estou recebendo de um arquivo a seguinte data [Ô]20130625 154729[Ô]
sendo que é a data em yyyyMMdd HHmmss
só que para formatar ela eu não consigo, ja tentei format cdat e assim vai indo, eu consegui mais não de uma maneira viável eu acho assim:
Dim Data as String
Data = [Ô]20130625 154729[Ô]
Dim ano As Integer = Int32.Parse(Data.Substring(0, 4))
Dim mes As Integer = Int32.Parse(Data.Substring(4, 2))
Dim dia As Integer = Int32.Parse(Data.Substring(6, 2))
Dim hora As Integer = Int32.Parse(Data.Substring(9, 2))
Dim minuto As Integer = Int32.Parse(Data.Substring(11, 2))
Dim segundo As Integer = Int32.Parse(Data.Substring(13, 2))
Dim DataFormatada As DateTime = New DateTime(ano, mes, dia)
DataFormatada = String.Format([Ô]{0:dd/MM/yyyy}[Ô], DataFormatada)
DataCompleta = DataFormatada & [Ô] [Ô] & hora & [Ô]:[Ô] & minuto & [Ô]:[Ô] & segundo
Só que eu teria que fazer isso toda vez que tivesse que formatar uma data para exibir na tela e depois fazer esse mesmo processo só que inverso para salvar no banco de dados.
Se alguma alma caridosa souber como me salvar agradeço muito
Então estou tento um problema para formatar a data e a hora no Vb.Net
Eu estou recebendo de um arquivo a seguinte data [Ô]20130625 154729[Ô]
sendo que é a data em yyyyMMdd HHmmss
só que para formatar ela eu não consigo, ja tentei format cdat e assim vai indo, eu consegui mais não de uma maneira viável eu acho assim:
Dim Data as String
Data = [Ô]20130625 154729[Ô]
Dim ano As Integer = Int32.Parse(Data.Substring(0, 4))
Dim mes As Integer = Int32.Parse(Data.Substring(4, 2))
Dim dia As Integer = Int32.Parse(Data.Substring(6, 2))
Dim hora As Integer = Int32.Parse(Data.Substring(9, 2))
Dim minuto As Integer = Int32.Parse(Data.Substring(11, 2))
Dim segundo As Integer = Int32.Parse(Data.Substring(13, 2))
Dim DataFormatada As DateTime = New DateTime(ano, mes, dia)
DataFormatada = String.Format([Ô]{0:dd/MM/yyyy}[Ô], DataFormatada)
DataCompleta = DataFormatada & [Ô] [Ô] & hora & [Ô]:[Ô] & minuto & [Ô]:[Ô] & segundo
Só que eu teria que fazer isso toda vez que tivesse que formatar uma data para exibir na tela e depois fazer esse mesmo processo só que inverso para salvar no banco de dados.
Se alguma alma caridosa souber como me salvar agradeço muito
Se for a data e hora atual basta fazer assim:
dim DATA as string = date.now
mas se quiser formata-la então pode usar um desses exemplos:
DateTime.Now.ToString(“dâ€); 2/6/2010
DateTime.Now.ToString(“Dâ€); quarta-feira, 2 de junho de 2010
DateTime.Now.ToString(“fâ€); quarta-feira, 2 de junho de 2010 15:24
DateTime.Now.ToString(“Fâ€); quarta-feira, 2 de junho de 2010 15:24:18
DateTime.Now.ToString(“gâ€); 2/6/2010 15:24
DateTime.Now.ToString(“Gâ€); 2/6/2010 15:24:48
DateTime.Now.ToString(“mâ€); 02 de junho
DateTime.Now.ToString(“râ€); Wed, 02 Jun 2010 15:26:07 GMT
DateTime.Now.ToString(“sâ€); 2010-06-02T15:26:20
DateTime.Now.ToString(“tâ€); 15:26
DateTime.Now.ToString(“Tâ€); 15:26:40
DateTime.Now.ToString(“uâ€); 2010-06-02 15:26:51Z
DateTime.Now.ToString(“Uâ€); quarta-feira, 2 de junho de 2010 18:26:59
DateTime.Now.ToString(“yâ€); junho de 2010
DateTime.Now.ToString(“dddd, MMMM dd yyyyâ€); quarta-feira, junho 02 2010
DateTime.Now.ToString(“ddd, MMM d “‘â€yyâ€); qua, jun 02 10
DateTime.Now.ToString(“dddd, MMMM ddâ€); quarta-feira, junho 02
DateTime.Now.ToString(“MM/yyâ€); 06/10
DateTime.Now.ToString(“dd/MM/yyâ€); 02/06/10
Para formatar como numérico, com casas decimais:
txtCampo.Text = Format(Convert.ToDouble(txtExemplo.Text), [Ô]#,##0.00[Ô])
ou você pode usar o formado definido no windows:
txtCampo.Text = Format(Convert.ToDouble(TxtExemplo.Text), [Ô]f[Ô])
Para formatar como moeda:
txtCampo.Text = Format(Convert.ToDouble(TxtExemplo.Text), [Ô]c[Ô])
E para formatar como Porcentagem:
txtCampo.Text = Format(Convert.ToDouble(TxtExemplo.Text), [Ô]Percent[Ô])
DateTime.Now.ToString(); Exibe data e hora
DateTime.Now.ToShortTimeString(); Exibe hora sem os segundos
DateTime.Now.ToShortDateString(); Exibe a data com barras
DateTime.Now.ToLongTimeString(); Exibe as horas, minutos e segundos
DateTime.Now.ToLongDateString(); Exibe a data em modo extensor
abraços...
dim DATA as string = date.now
mas se quiser formata-la então pode usar um desses exemplos:
DateTime.Now.ToString(“dâ€); 2/6/2010
DateTime.Now.ToString(“Dâ€); quarta-feira, 2 de junho de 2010
DateTime.Now.ToString(“fâ€); quarta-feira, 2 de junho de 2010 15:24
DateTime.Now.ToString(“Fâ€); quarta-feira, 2 de junho de 2010 15:24:18
DateTime.Now.ToString(“gâ€); 2/6/2010 15:24
DateTime.Now.ToString(“Gâ€); 2/6/2010 15:24:48
DateTime.Now.ToString(“mâ€); 02 de junho
DateTime.Now.ToString(“râ€); Wed, 02 Jun 2010 15:26:07 GMT
DateTime.Now.ToString(“sâ€); 2010-06-02T15:26:20
DateTime.Now.ToString(“tâ€); 15:26
DateTime.Now.ToString(“Tâ€); 15:26:40
DateTime.Now.ToString(“uâ€); 2010-06-02 15:26:51Z
DateTime.Now.ToString(“Uâ€); quarta-feira, 2 de junho de 2010 18:26:59
DateTime.Now.ToString(“yâ€); junho de 2010
DateTime.Now.ToString(“dddd, MMMM dd yyyyâ€); quarta-feira, junho 02 2010
DateTime.Now.ToString(“ddd, MMM d “‘â€yyâ€); qua, jun 02 10
DateTime.Now.ToString(“dddd, MMMM ddâ€); quarta-feira, junho 02
DateTime.Now.ToString(“MM/yyâ€); 06/10
DateTime.Now.ToString(“dd/MM/yyâ€); 02/06/10
Para formatar como numérico, com casas decimais:
txtCampo.Text = Format(Convert.ToDouble(txtExemplo.Text), [Ô]#,##0.00[Ô])
ou você pode usar o formado definido no windows:
txtCampo.Text = Format(Convert.ToDouble(TxtExemplo.Text), [Ô]f[Ô])
Para formatar como moeda:
txtCampo.Text = Format(Convert.ToDouble(TxtExemplo.Text), [Ô]c[Ô])
E para formatar como Porcentagem:
txtCampo.Text = Format(Convert.ToDouble(TxtExemplo.Text), [Ô]Percent[Ô])
DateTime.Now.ToString(); Exibe data e hora
DateTime.Now.ToShortTimeString(); Exibe hora sem os segundos
DateTime.Now.ToShortDateString(); Exibe a data com barras
DateTime.Now.ToLongTimeString(); Exibe as horas, minutos e segundos
DateTime.Now.ToLongDateString(); Exibe a data em modo extensor
abraços...
Entendi cara Obrigado era essa mesmo a minha duvida, Obrigado msm xD
Blz, Horich, não esqueça de fechar o tópico se sua duvida foi resolvida.
Abraços!
Abraços!
Tópico encerrado , respostas não são mais permitidas