1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Comment définir une variable date (Entreprise : 1er juillet au 30 juin suivant) [Résolu]

Signaler
-
 EnguerrandP -
Bonjour ,
Je voudrait céer une variable
1)Exemple :
Si on est le 29/06/2013 la variable "Année" ="2012_2013" est a partir du 31/06/2013 "Année" = "2013_2014".

pour l'instant j'ai sa sa ne marche pas,mais jevois pas trop comment faire. 

date1.Value = Date
Dim Année As String
If (date1.Value > 30 / 6 / (Year(Date))) Then
    date2.Value = (Year(Date)) & "_" & (Year(Date)) + 1
    Année = date2.Value
End If


merci de votre attention
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 229
Bonjour,
a partir du 31/06/2013

de quel espèce de calendrier ? Hmmm ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Réponse 2 / 5
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 229
Soyons sérieux.

Avant de te précipiter vers ce forum pour un oui et pour un non, pour chaque petit bobo, EnguerrandP, tu devrais consulter ton aide VBA. En frappant seulement le mot Date, tu y découvrirais des tas de choses intéressantes, d'une rubrique à l'autre !
Il te faut systématiquement avoir ce réflexe-là, le plus tôt possible.

Regarde : en 2 coups de cuillères à pot, deux manières que je viens d'écrire. Je pourrais en écrire plusieurs autres !!! 


Dim toto As Date, an As Integer, dateref As Date
toto = CDate("30/05/2013")
an = Year(toto)
dateref = DateSerial(Year(toto), 6, 30)
MsgBox IIf(toto > dateref, "année " & an & "-" & an + 1, "année " & an - 1 & "-" & an)



Dim coucou As Date, trimestre As Integer
coucou = CDate("02/07/2013")
trimestre = DatePart("q", coucou)
an = Year(coucou)
MsgBox IIf(trimestre > 2, "année " & an & "-" & an + 1, "année " & an - 1 & "-" & an)


Regarde chacun des mots qui te semblent inconnus dans ces deux codes. Ouvre ton aide VBA sur chacun d'eux. Et lis avidement.




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Réponse 3 / 5

Re bonjour ,

voila se que j'ai fait pour l'instant : 

XXxx = (Year(Date))
date1.Value = Date
Dim Année As String
If (date1.Value > 30 / 6 / XXxx) Then
    date2.Value = (Year(Date)) & "_" & (Year(Date)) + 1
    Année = date2.Value

 ElseIf (date1.Value < 30 / 6 / XXxx) Then
    date2.Value = (Year(Date)) - 1 & "_" & (Year(Date))
    Année = date2.Value
    
 End If


je défini "XXxx" comme étant équivalent a l'année actuel
Si la date du jour et supérieur à 30/06/de l'année ,alor "Année" = XXxx_XXxx+1
Sinon si la date est inférieur au 30/06/ de l'année ,alor "Année" = XXxx-1_XXxx

Je ne comprend pas pourquoi sa ne marche pas.
Réponse 4 / 5

Re bonjour,
Pour l'entreprise ou je suis en stage l'année commence le 1er juillet et se fini le 30 juin de l'année suivante.

donc mon dossier Année pour l'archivage doit s'apeller exemple:
pour cette année "Année " = 2012_2013
et a partir du 30 juin prochain "Année " = 2013_2014

merci d'avoir pris le temp de me lire
Réponse 5 / 5

Re bonjour ,
Merci pour ton aide.
Répondre Posez votre question