Como imprimir a data no formato dd/mm/aaaa em VB
Pergunta
Eu preciso de impressão da data no formato mm/dd/aaaa.se a data é 4/24/2009 ele deve imprimir a data como 04/24/2009.que é preenchimento de zero também é necessário..Eu usei a função de data para obter a data atual...mas a data está chegando no formato de m/dd/aaaa...
Solução
Testado na janela imediata e está trabalhando para mim (saída como um comentário)
Format(Now, "MM/dd/yyyy") '04/29/2009
Format(Date, "MM/dd/yyyy") '04/29/2009
Format(CStr(Now), "MM/dd/yyyy") '04/29/2009
Format(Date$, "MM/dd/yyyy") '04/29/2009
Format(CDate(Date), "MM/dd/yyyy")'04/29/2009
Então, se é string ou data e hora não deve importar.
Editar: Viu o seu comentário para Fredrik. Não importa como ele se parece quando você guardá-lo para a tabela db (formato de data coluna seria uma propriedade do db e não ou responsabilidade de seu programa (de vb)). Apenas formatar o valor como e quando você recuperá-lo do banco de dados.
Outras dicas
Note que o caractere "/" em funções de formatação de data tem um significado especial, como "separador de data". Isso significa que eu podem ser substituídos com o separador de data para o local atual que o programa é executado em (aqui na Suécia seria substituída por "-" por exemplo). A fim de garantir que você realmente obter o caractere "/" na saída, eu acho que isso iria funcionar (eu não tenho uma instalação VB para verificar com):
Format(date, "MM'/'dd'/'yyyy")
apenas para registro, escapando a barra vai trabalhar
Format(dt,"MM\/dd\/yyyy")
Tente o seguinte código:
Format(dt,"MM/dd/yyyy")
Quando você entra data em qualquer formato que irá converter o valor padrão para fazer uma coisa que na mudança de acesso o seu tipo de dados de data / hora de texto, então ele não pode afetar o seu trabalho certo.
Eu também uso VB6 e necessidade de formato de data no meu relatório txt
Isso funciona para mim
Format$(Now, "yyyy-mm-dd-00.00.00")
mas apenas se eu declarar data como seqüência
= Formato strDate (strDate, "aaaa-MM-DD") BillTime = Format (BillTime, "hh: mm: ss")