Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access retranscription date

retranscription date

5 réponses
Avatar
Sky
Bonjour à tous,

Voici mon problème, dans une appli j'ai un champ NumSemaine et un champ
millésime.
Je voudrais par une requête relier ces 2 champs pour reconstituer une date
Je suis passé par une propriété format mais sans succès

Merci pour votre aide
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
numsemaine c'est quoi ?
si tu as le jour le mois et l'année utilise
Madate : SérieDate («Année»; «Mois»; «Jour»)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Sky" a écrit dans le message de news: d4levl$2md$
Bonjour à tous,

Voici mon problème, dans une appli j'ai un champ NumSemaine et un champ
millésime.
Je voudrais par une requête relier ces 2 champs pour reconstituer une date
Je suis passé par une propriété format mais sans succès

Merci pour votre aide




Avatar
Sky
Bonjour pierre,

En fait NumSemaine est un champ numérique compris entre 1 et 53
Je voudrais donc effectuer une sorte de concaténation NumSemaine/Millésime
=> JJ/MM/AAAA

merci pour tes suggestions
"Sky" a écrit dans le message de news:
d4levl$2md$
Bonjour à tous,

Voici mon problème, dans une appli j'ai un champ NumSemaine et un champ
millésime.
Je voudrais par une requête relier ces 2 champs pour reconstituer une date
Je suis passé par une propriété format mais sans succès

Merci pour votre aide




Avatar
Pierre CFI [mvp]
.../...
un peu tiré par les cheveux
Expr1: AjDate("j";[numsemaine] * 7;"01/01/" & [millésim])
à [numsemaine] * 7 il faudra aprés test mettre ;([numsemaine] * 7) -1;
ou + 1
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Sky" a écrit dans le message de news: d4lh4i$49o$
Bonjour pierre,

En fait NumSemaine est un champ numérique compris entre 1 et 53
Je voudrais donc effectuer une sorte de concaténation NumSemaine/Millésime
=> JJ/MM/AAAA

merci pour tes suggestions
"Sky" a écrit dans le message de news: d4levl$2md$
Bonjour à tous,

Voici mon problème, dans une appli j'ai un champ NumSemaine et un champ
millésime.
Je voudrais par une requête relier ces 2 champs pour reconstituer une date
Je suis passé par une propriété format mais sans succès

Merci pour votre aide








Avatar
Pierre CFI [mvp]
sinon une fonction d'un de nos amis walter, mais c'est du code
Function LundiSemaineAnnéeQuelconque(Semaine As Integer, Optional An As Integer = 0) As Date
' Objectif: Convertir un no de semaine en une date correspondant au lundi de cette semaine
' ***************************************************************************************************************
On Error GoTo TraitementErreur
'Teste si le numéro de semaine est correct et si l'année est spécifiée.
If IsNull(Semaine) Or Semaine <= 0 Or Semaine > 52 Then
MsgBox "Le numéro de semaine est incorrect, veuillez corriger", vbCritical, "Erreur de saisie"
Exit Function
ElseIf An = 0 Then
An = Year(Date)
End If
Dim Datetemp As Date
' On calcule à partir du 1er janvier de l'année spécifiée
Datetemp = DateSerial(An, 1, 1) + (Semaine - 1) * 7
LundiSemaineAnnéeQuelconque = Datetemp - (WeekDay(Datetemp) - vbMonday)
Exit Function
TraitementErreur:
MsgBox "No Erreur: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End Function
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Pierre CFI [mvp]" a écrit dans le message de news:
.../...
un peu tiré par les cheveux
Expr1: AjDate("j";[numsemaine] * 7;"01/01/" & [millésim])
à [numsemaine] * 7 il faudra aprés test mettre ;([numsemaine] * 7) -1;
ou + 1
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Sky" a écrit dans le message de news: d4lh4i$49o$
Bonjour pierre,

En fait NumSemaine est un champ numérique compris entre 1 et 53
Je voudrais donc effectuer une sorte de concaténation NumSemaine/Millésime
=> JJ/MM/AAAA

merci pour tes suggestions
"Sky" a écrit dans le message de news: d4levl$2md$
Bonjour à tous,

Voici mon problème, dans une appli j'ai un champ NumSemaine et un champ
millésime.
Je voudrais par une requête relier ces 2 champs pour reconstituer une date
Je suis passé par une propriété format mais sans succès

Merci pour votre aide












Avatar
Sky
Merci pierre du coup de pouce,

Je pense avoir trouvé une solution alternative : en fait la base n'étant
actuellement pas énorme, je vais reprendre pour chaque semaine la date de
début que je saisirais au fur et à mesure.

encore merci

a+

"Pierre CFI [mvp]" a écrit dans le message de
news:
sinon une fonction d'un de nos amis walter, mais c'est du code
Function LundiSemaineAnnéeQuelconque(Semaine As Integer, Optional An As
Integer = 0) As Date
' Objectif: Convertir un no de semaine en une date correspondant au lundi
de cette semaine
'
***************************************************************************************************************
On Error GoTo TraitementErreur
'Teste si le numéro de semaine est correct et si l'année est spécifiée.
If IsNull(Semaine) Or Semaine <= 0 Or Semaine > 52 Then
MsgBox "Le numéro de semaine est incorrect, veuillez corriger",
vbCritical, "Erreur de saisie"
Exit Function
ElseIf An = 0 Then
An = Year(Date)
End If
Dim Datetemp As Date
' On calcule à partir du 1er janvier de l'année spécifiée
Datetemp = DateSerial(An, 1, 1) + (Semaine - 1) * 7
LundiSemaineAnnéeQuelconque = Datetemp - (WeekDay(Datetemp) - vbMonday)
Exit Function
TraitementErreur:
MsgBox "No Erreur: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End Function
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
un peu tiré par les cheveux
Expr1: AjDate("j";[numsemaine] * 7;"01/01/" & [millésim])
à [numsemaine] * 7 il faudra aprés test mettre ;([numsemaine] * 7) -1;
ou + 1
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Sky" a écrit dans le message de news:
d4lh4i$49o$
Bonjour pierre,

En fait NumSemaine est un champ numérique compris entre 1 et 53
Je voudrais donc effectuer une sorte de concaténation
NumSemaine/Millésime
=> JJ/MM/AAAA

merci pour tes suggestions
"Sky" a écrit dans le message de news:
d4levl$2md$
Bonjour à tous,

Voici mon problème, dans une appli j'ai un champ NumSemaine et un champ
millésime.
Je voudrais par une requête relier ces 2 champs pour reconstituer une
date
Je suis passé par une propriété format mais sans succès

Merci pour votre aide