Code année jour semaine
barbd
Messages postés
1
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
débutante en excel, je cherche à traduire la date du jour en un code dont voici la structure:
Code: 0WXYZ
0W 2 derniers chiffres de l'année
X jour de la semaine 1 lundi, 2 mardi
YZ numéro de la semaine
Exemple: jeudi 17/07/2008 devient 08429
Merci d'avance!
débutante en excel, je cherche à traduire la date du jour en un code dont voici la structure:
Code: 0WXYZ
0W 2 derniers chiffres de l'année
X jour de la semaine 1 lundi, 2 mardi
YZ numéro de la semaine
Exemple: jeudi 17/07/2008 devient 08429
Merci d'avance!
A voir également:
- Code année jour semaine
- Code ascii - Guide
- Code puk bloqué - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
2 réponses
slt c leila
bon tu va saisir la date dans une zone par exemple 12/02/2007 et puis tu clique par le bouton droit sur cette zone et tu va à format de cellule puis nombre puis sur la liste catégorie tu clique sur nombre aussi et ok.
c tt
a+
bon tu va saisir la date dans une zone par exemple 12/02/2007 et puis tu clique par le bouton droit sur cette zone et tu va à format de cellule puis nombre puis sur la liste catégorie tu clique sur nombre aussi et ok.
c tt
a+
bonjour,
tu cole le code ci-dessous dans un module général (par exemple Module1)
Function Transcode()
Dim Lig As Long
Dim Col As Long
Dim NoDate1 As Long, Nodate2 As Long, e As Integer
Dim Code As String, Aj As Integer, V As String
Dim DT As Date
Application.Volatile
Lig = Application.Caller.Row
Col = Application.Caller.Column
If Col < 2 Then Exit Function
DT = Cells(Lig, Col - 1)
If Not IsDate(DT) Then Exit Function
Code = Right(Year(DT), 2) & Weekday(DT)
NoDate1 = DateSerial(Year(DT), 1, 1)
Nodate2 = DateSerial(Year(DT), Month(DT), Day(DT))
e = Weekday(NoDate1)
If e > 4 Then Aj = 1 Else Aj = 0
V = "0" & Int((Nodate2 - NoDate1) / 7) - e
Transcode = Code & Right(V, 2)
End Function
pour le test tu met dans cellule B1 =Transcode()
dans le cellule A1 tu tape une date..
Tu dit...
A+
tu cole le code ci-dessous dans un module général (par exemple Module1)
Function Transcode()
Dim Lig As Long
Dim Col As Long
Dim NoDate1 As Long, Nodate2 As Long, e As Integer
Dim Code As String, Aj As Integer, V As String
Dim DT As Date
Application.Volatile
Lig = Application.Caller.Row
Col = Application.Caller.Column
If Col < 2 Then Exit Function
DT = Cells(Lig, Col - 1)
If Not IsDate(DT) Then Exit Function
Code = Right(Year(DT), 2) & Weekday(DT)
NoDate1 = DateSerial(Year(DT), 1, 1)
Nodate2 = DateSerial(Year(DT), Month(DT), Day(DT))
e = Weekday(NoDate1)
If e > 4 Then Aj = 1 Else Aj = 0
V = "0" & Int((Nodate2 - NoDate1) / 7) - e
Transcode = Code & Right(V, 2)
End Function
pour le test tu met dans cellule B1 =Transcode()
dans le cellule A1 tu tape une date..
Tu dit...
A+
a+