Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:27:27

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par PCPT

RE : VB 2005 ET INTERNET EXPLORER par PCPT

PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

NOMBRE DE JOURS

Information sur la source

Catégorie :Control Classé sous : datediff, nombre, jours, compter Niveau : Débutant Date de création : 21/09/2000 Vu / téléchargé: 5 893 / 506

Auteur : JLB59

Site perso

Ecrire un message privé

Note :

5,20 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Il suffit de saisir une date de fin dans un Inputbox pour que le temps en jours d'écart s'affiche.

Source

Private Sub Form_Load()
Dim LaDate As Date ' Déclare les variables.
Dim Msg, NL
NL = vbCrLf
LaDate = InputBox("Entrez la date de fin : ")
Msg = "du " & Date & " au " & LaDate & NL & NL
Msg = Msg & "Nombre de jours = " & DateDiff("d", Now, LaDate)
MsgBox Msg
End
End Sub

Private Sub Form_Load()
Dim LaDate As Date  ' Déclare les variables.
Dim Msg, NL
NL = vbCrLf

LaDate = InputBox("Entrez la date de fin : ")
Msg = "du " & Date & " au " & LaDate & NL & NL
Msg = Msg & "Nombre de jours =  " & DateDiff("d", Now, LaDate)
MsgBox Msg
End

End Sub

Conclusion

Calcule automatiquement, à partir dune fonction VB, le nombre de jours qui vont s'écouler depuis la date du jour

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

DateDiff.Frm 772 octets
DateDiff.txt 135 octets
DateDiff.Vbp 281 octets

Télécharger le zip

Sources du même auteur

AUTRE PETITE FAQ

INDEXER LE TEXTE D'UN LISTBOX (POUR UNE FAQ PAR EXEMPLE)

DÉSACTIVE LES OPTIONS DE LA CASE SYSTEM

PROGRESSBAR

TEMPSECOULE (TIMEPROGRESS)

Toutes les sources de JLB59

Sources de la même categorie

LABEL ET IMAGE DANS TEXTBOX par gillardg

GRADIENTDIALOG - SÉLECTION DE DÉGRADÉS LINÉAIRES par Mayzz

EXLISTVIEW- LISTVIEW PERSONNALISÉ par Mayzz

VB6-INNO-WIZARD par cdbi

BOUTON SOUS PLUSIEURS FORME par noah56

Toutes les sources de la catégorie Control

Sources en rapport avec celle ci

VACHE TAUREAU /CHIHAOUI_MED@HOTMAIL.COM/ par 2mohamed2

CHIFFRE EN LETTRE FONCTION par ElDoktor

DETERMINE LE NOMBRE DE JOURS DANS UN MOIS par Mr X

COMPTER LES MOTS DANS UNE PHRASE: VERSION EXOTIQUE par FlyKiller

LE NOMBRE DE LIGNE DANS UN FICHIER TEXTE par Nix

Commentaires et avis

Commentaire de Renfield le 24/01/2006 10:06:34 administrateur CS

quel est l'interet de la variable 'NL' ?

pourquoi tantot utiliser 'Date', tantot 'Now'

aucune verification n'est ici faite sur la saisie : est-ce une date bien formatée qui a été entrée ?

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Comment compter le nombre de jours écoulés depuis une certaine date ? [ par NexoZ ] bonjour à tous et à toutes,je voudrais réaliser un programme pour faire une sorte de comptage.je voudrais fixer une date de début, exemple le : 2 octo Horaire cellul [ par MissThia ] J'aimerai calculer par tranche d'1heure, le nombre d'heure en départ et arrivé. Et savoir aussi gérer pour 2 jours, 3 jours etc. C'est a dire qu'il fa boucle occurence [ par renaud97434 ] bonjour, suite à un post sans réponse je vous retransmet ma demande:je suis dans une macro qui compte le nombre de ligne d'une colonne.sub lignesdim i Convertir nombre de jours en année, mois et jours [ par mehdiyou ] salut tout le monde y'aurai t il quelqu'un qui pourrait me donner une fonction qui permet de convertir un nombre de jours en année,mois et jour.(Exp: compter le nombre d'enregistrement [ par mannanaesc ] bj. svp je veux avoir le nombre d'enregistrement dans une base de donnée access pour l'utiliser avec vb6.g essayé ce bloc mé il maffiche tjs la meme v VB.Net Compter le nombre de Fichier (Fonction File) [ par MagDix ] Salut. Je cherche un moyen de compter le nombre de fichier que le nom de fichier commence par une valeur défini. Exemple je cherche à savoir combi compter [ par renaud97434 ] bonjour, je viens de m'inscrire sur le forum et débute la programmation en VBA.je recois un message d'erreur quand je tape le code suivant.ce code ser comptage ligne [ par renaud97434 ] bonjour, mon mail fait suite à un précédent intitulé compter.voici le code:Sub nblignesdansextract2()Dim i As Integer 'nombre d'enregistrements de l compter nb occurences [ par renaud97434 ] bonjour, suite à compter j'ai deux autres questions:tout d'abord le code suivant ne marche pas, je souhaite compter le nombre de lignes ou la valeur Compter les lettres [ par mistersaku ] Bonjour a tous,Je cherche a compter le nombre de fois ou la lettre "S" apparait dans la colonne "A" et reporter ce nombre dans la cellule A1. Si qqun