Visual Basic 6.0 comprend un certain nombre d'options de mise en forme qui permettent à l' utilisateur d'afficher et d'imprimer des dates différentes manières . En utilisant quelques commandes Visual Basic simples et des instructions conditionnelles , vous pouvez créer un petit programme qui va illustrer ces méthodes. Cet exemple actuel commence avec la date du jour et affiche différents formats pour la même date . Suivez les instructions de formatage pour insérer des moyens voulus pour afficher une date dans n'importe quel programme que vous écrivez. Instructions
1

Créez un nouveau projet Visual Basic (VB ) en utilisant le " EXE standard " modèle disponible lorsque vous cliquez sur "Fichier" puis "Nouveau projet" en VB . Cliquez sur "Fichier " puis " Enregistrer le projet sous . " Enregistrez le formulaire sous " ConvertDate " et le projet "Date Convertir" .
2

Double-cliquez sur le contrôle " ListBox " dans la boîte à outils sur la gauche de l'écran pour l'ajouter à la forme . Dans la liste " Propriétés" sur la droite de l'écran , réglez la forme "Hauteur " propriété de 2600 et la "largeur" ​​de 4500 . Faites glisser le " ListBox " sur le côté gauche de l'écran et réglez la "Hauteur " et les propriétés "width" pour 1425 et 4725 . Ajoutez trois "Labels" pour la forme en double-cliquant sur ​​la grande lettre "A" dans la boîte à outils à trois reprises. Disposez les étiquettes de sorte que " Label3 " est le point le plus élevé sur le formulaire. Mettez " Label1 " et " Label2 " dans une rangée au-dessous de la zone de liste . Réglez la "Hauteur " et "Largeur" ​​propriété de " Label1 " à 500 et 1800 . Réglez la "Hauteur " et " Largeur " de " Label2 " à 800 et 3250. Effacer les légendes des " Label1 " et " Label2 » dans leur section "Propriétés" de sorte qu'ils sont vides.
3

Cliquez sur "Affichage" puis "Code" dans le haut niveau Visual Basic menu. Tapez le code suivant exactement comme il apparaît .

Option ExplicitPrivate Sub Form_Load () Label3.Caption = " Sélectionnez le format désiré pour l'afficher. " Label1.Caption = " Aujourd'hui est" & Format (Now , "m /d /yyyy " ) = TrueList1.AddItem Label2.Visible " complet Date " List1.AddItem " Abbreviated date » List1.AddItem " jour /Mois » List1.AddItem " Mois /Année " List1.AddItem « date mois année (Jour de la semaine ) " List1.AddItem " abrégée date et plus Jour , Semaine, et trimestre de l'année "End Sub
4 Type de

les lignes de code ci-dessous ceux à l'étape 3 ci-dessous :
< p> Private Sub List1_Click () Select Case List1.ListIndexCase Label2.Caption "0" = Format (Now , "dddd , mmmm dd, yyyy" ) Case "1" Label2.Caption = Format (Now , "m /d /yy ») Case " " Label2.Caption = Format (Now ," 2 -d mmmm " ) Case " " Label2.Caption = Format (Now , " 3 mmmm - yy " ) Case " " Label2.Caption 4 = Format (Now , "mmm jj , aaaa ( dddd )") Case " 5" Label2.Caption = Format (Now , " jj /mm /aa (\\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q ) ") End Sub SelectEnd
5

Appuyez sur" F5 " pour exécuter le programme . Si il n'y a aucun problème , vous pouvez cliquer sur " Fichier" puis "Make Convertir Date.exe " pour créer une version exécutable . Si quelque chose ne semble pas correct, puis appuyez sur "F8" pour faire défiler les lignes de code et isoler où une faute de frappe peut avoir pénétré les lignes de code . En examinant les instructions de présentation de l'étape 4 , vous comprendrez comment conversions de date sont traitées dans Visual Basic.