Accueil Codes Tutoriels Forums Emploi Livres Connexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 09 07 08:03:27
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 188 / 467
Auteur : JLB59 Site perso
Ecrire un message privé
Note :
5,2 / 10 - par 5 personnes
5,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 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 !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
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

Compter le nombre de mots dans une phrase sans split [ par hub ] Bonjour à tous, pouvais vous m'indiquer comment compter le nombre de mots dans une phrase sans utiliser split. (Je ne possède que vb4).Au passage si q compter le nombre d'un caractère dans une string [ par Jeronimo ] Je dois trouver le nombre d'un caractère dans une chaîne de caractèrestrCar=astrTexte =txtTexte.texttrouver le nombre de strCar dans strTexteJ'ai essa déclaration d'un retour chariot ??? [ par stenie ] afin de compter le nombre de caractère présents dans une textBox sans tenir compte des espaces il faut dans un premier temps compter le nombre ce cara Calculer le nombre de jours feries entre deux date [ par celesdane ] Salut à tousje voudrais calculer le nombre de jours feries entre deux sur VBA.merci d'avance comment compter le nombre de ligne d'un datagrid [ par olivier ] comment compter le nbr de ligne d'un datgrid et aussi comment savoir si une ligne est mis en sutbrillance Calculer le nombre de jours entre 2 dates [ par Billy ] Bonjour j aimerais avoir un exemple d'un codage pour calculer le nombre de jours restant entre la date d'aujourd'hui et une autre date. Comment calculer le nombre de jours féries entre deux dates [ par celesdane ] Bonjours à tous,je voudrai calculer le nombre de jours feries entre deux dates. j'ai commencé par mettre les jours fériés dans un tableauMerci d'avanc Compter le nombre de click de la souris... [ par MaTHieU ] Salut, je cherche à faire un petit programme qui calcul la distance parcourue par la souris et le nombre de click effectué par celle-ci dans l'environ au secours [ par vish ] salut quelle la fonction qui pemet de convertir une date en entier CAD ça me donne le nombre de joursexemple en windevdatetoint(24/01/1979)= un entier


Nos sponsors

Sondage...

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,70 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.