Le langage de programmation Visual Basic contient un éventail complet de fonctions de gestion de date et heure . Les valeurs de date et l'heure sont récupérés et manipulés à partir de deux sources dans l'environnement informatique . L'un est l'horloge système de l'ordinateur, qui maintient une valeur interne représentant la date /heure valeur actuelle comme une accumulation de secondes depuis un point fixe dans le temps. L'autre source de données date /heure sont stockées dans des fichiers utilisés par un programme. Visual Basic prend en charge . Instructions Date de fermeture Manipulation 
 1 
 déclarer une variable de type Date . La date de Visual Basic est enregistré comme le nombre de jours depuis le 30 Décembre 1899. L'exemple qui suit crée une variable appelée dt_test : 
 
 dt_test As Date de 
 2 
 Attribuer une valeur de date à la variable. L' instruction suivante affecte la date actuelle du système de l'échantillon variable: 
 
 dt_test = Maintenant 
 3 
 Utiliser la variable que nécessaire dans votre programme. Pour écrire la valeur de la console, utilisez l'exemple suivant: 
 
 System.Console.Write ( dt_test ) 
 
 Vous pouvez également affecter la valeur d' une zone de texte avec cette déclaration: 
 < p> textBox1.Text = dt_test 
 temps de manipulation 
 4 
 déclarer une variable de type Date . La composante temporelle d'une variable date est stockée en tant que partie fractionnaire de 24 heures. 
 5 
 Attribuer la partie heure de la valeur maintenant ( la date et l'heure en fonction de l'horloge système ) à la variable . Afin de limiter la valeur de temps seulement , utilisez la fonction TimeValue comme le montre ce qui suit: 
 
 dt_test = TimeValue ( maintenant) 
 6 
 utiliser la variable selon les besoins de votre programme. Le temps peut être divisé en parties distinctes pour utilisation dans le programme , écrites à la console dans cet exemple : 
 
 System.Console.WriteLine ( "Heure :" & dt_test.Hour ) 
 
 System.Console.WriteLine ( "Heure :" & dt_test.Minute ) 
 
 System.Console.WriteLine ( "Heure :" & dt_test.Second ) 
 < br >