Visual Basic 6.0 inclui uma série de opções de formatação que permitem ao usuário para exibir e datas de impressão de diferentes maneiras. Ao usar alguns controles do Visual Basic simples e instruções condicionais , você pode criar um pequeno programa que irá ilustrar esses métodos. Este exemplo atual inicia-se com a data de hoje e apresenta diferentes formatos para a mesma data . Use as instruções de formatação para inserir formas desejadas para mostrar uma data dentro de qualquer programa que você escreve. Instruções
1
Criar um novo Visual Basic (VB) projeto usando o modelo " standard EXE " disponível quando você clica em "Arquivo " e depois " New Project" em VB . Clique em " Arquivo" e depois " Save Project As ". Salve o formulário como " ConvertDate " eo projeto como "Converter data".
2
Dê um duplo clique no controle " ListBox " na caixa de ferramentas à esquerda da tela para adicioná-lo ao formulário. Na lista de "Propriedades " no lado direito da tela , defina a forma "Height " propriedade para 2600 e a "largura" para 4500. Arraste o ícone " ListBox " para o lado esquerdo do formulário e definir a "altura " e as propriedades "Largura" para 1425 e 4725 . Adicione três "Etiquetas" para o formulário , clicando duas vezes sobre o grande letra "A" na caixa de ferramentas três vezes. Organize as etiquetas de modo que " Label3 " é o item superior no formulário. Coloque " Label1 " e " Label2 " em uma linha abaixo da caixa de listagem. Defina a "altura " e propriedade "Largura" de " Label1 " para 500 e 1800 . Defina a "altura " e " largura" de " Label2 " para 800 e 3250 . Desmarque as rubricas de " Label1 " e " Label2 " em sua seção "Propriedades" para que eles estão em branco.
3
Clique em " Exibir" e em seguida "Código" no nível superior Visual Basic menu. Digite o código a seguir exatamente como ele aparece .
Opção ExplicitPrivate Sub Form_Load () Label3.Caption = " Selecione o formato desejado para exibi-lo . " Label1.Caption = " Hoje é" & Format ( Now , " m /d /aaaa " ) Label2.Visible = TrueList1.AddItem " Full Data " List1.AddItem " abreviado data " List1.AddItem " " List1.AddItem " Dia /Mês Mês /Ano " List1.AddItem " Mês Data , Ano (Dia Semanal ) " List1.AddItem " Data abreviada mais dia, semana e trimestre do ano "End Sub
4
Digite as seguintes linhas de código abaixo daqueles em Passo 3:
Private Sub List1_Click () Select Case List1.ListIndexCase "0" Label2.Caption = Caso "1" Label2.Caption = Format ( Now , " m /d /aa Format ( Now , " dddd , mmmm dd, aaaa " ) ") Case " 2 " Label2.Caption = Format ( Now , " d- mmmm ") Case " 3 " Label2.Caption = Format ( Now , " mmmm -aa ") Case " 4 " Label2.Caption = Format ( Now , "mmm dd, aaaa (dddd ) ") Case "5" Label2.Caption = Format ( Now , "mm /dd /aa (\\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q) ") End Sub SelectEnd
5
Pressione" F5 " para executar o programa . Se não houver problemas, você pode clicar em " Arquivo" e depois "Faça Converter Date.exe " para criar uma versão executável . Se algo não parece correto, em seguida, pressione "F8" para percorrer as linhas de código e isolar onde um erro de digitação pode ter entrado as linhas de código . Ao examinar as instruções de formato no Passo 4, você vai entender como conversões de data são tratadas em Visual Basic.
