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

Question

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

ucfoutu · Accepted Answer

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.

EnguerrandP · Answer

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.

EnguerrandP · Answer

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

ucfoutu · Answer

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.

EnguerrandP · Answer

Re bonjour ,
Merci pour ton aide.

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

5 réponses

Votre réponse