Bonjour =E0 tous :)
Aujourd'hui j'ai r=E9cup=E9r=E9 une base ACCESS avec une table=20
qui comporte une cellule texte. Dans cette cellule est=20
rempli une date sous la forme "1 2004 Jeudi". "1" =E9tant la=20
semaine, "2004" l'ann=E9e et "Lundi" le jour ;) . Donc je me=20
demande aujourd'hui comment transformer au moins=20
visuellement =E0 partir d'une requ=EAte ce champ 'DATE' en=20
vrai date ? Pour qu'au final, "1 2004 Jeudi" me=20
donne "01/01/2004".
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
RaphK34
la F° Cdate() associé à la F° Format() devraient te convenir
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Kiwix" a écrit dans le message de news:044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
la F° Cdate() associé à la F° Format() devraient te convenir
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
"Kiwix" <anonymous@discussions.microsoft.com> a écrit dans le message de news:044c01c4b122$47bdec10$a401280a@phx.gbl...
Bonjour à tous :)
Aujourd'hui j'ai récupéré une base ACCESS avec une table
qui comporte une cellule texte. Dans cette cellule est
rempli une date sous la forme "1 2004 Jeudi". "1" étant la
semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me
demande aujourd'hui comment transformer au moins
visuellement à partir d'une requête ce champ 'DATE' en
vrai date ? Pour qu'au final, "1 2004 Jeudi" me
donne "01/01/2004".
la F° Cdate() associé à la F° Format() devraient te convenir
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Kiwix" a écrit dans le message de news:044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
Gafish
Bonjour,
Pour compléter, je rajouterai aussi la fonction WeekDay car vu le format de ta date tu vas devoir "deviner" le numéro du jour étant donné que tu n'as apparemment que le numéro de la semaine et le libellé du jour de cette dite semaine.
Arnaud
"RaphK34" a écrit dans le message de news:
la F° Cdate() associé à la F° Format() devraient te convenir
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Kiwix" a écrit dans le message de news:044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
Bonjour,
Pour compléter, je rajouterai aussi la fonction WeekDay car vu le format de
ta date tu vas devoir "deviner" le numéro du jour étant donné que tu n'as
apparemment que le numéro de la semaine et le libellé du jour de cette dite
semaine.
Arnaud
"RaphK34" <nospampizza.mpl@tiscali.fr> a écrit dans le message de news:
uhhi3YSsEHA.3136@TK2MSFTNGP11.phx.gbl...
la F° Cdate() associé à la F° Format() devraient te convenir
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
"Kiwix" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:044c01c4b122$47bdec10$a401280a@phx.gbl...
Bonjour à tous :)
Aujourd'hui j'ai récupéré une base ACCESS avec une table
qui comporte une cellule texte. Dans cette cellule est
rempli une date sous la forme "1 2004 Jeudi". "1" étant la
semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me
demande aujourd'hui comment transformer au moins
visuellement à partir d'une requête ce champ 'DATE' en
vrai date ? Pour qu'au final, "1 2004 Jeudi" me
donne "01/01/2004".
Pour compléter, je rajouterai aussi la fonction WeekDay car vu le format de ta date tu vas devoir "deviner" le numéro du jour étant donné que tu n'as apparemment que le numéro de la semaine et le libellé du jour de cette dite semaine.
Arnaud
"RaphK34" a écrit dans le message de news:
la F° Cdate() associé à la F° Format() devraient te convenir
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Kiwix" a écrit dans le message de news:044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
RaphK34
En effet, merci du complément !
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Gafish" a écrit dans le message de news:%23$
Bonjour,
Pour compléter, je rajouterai aussi la fonction WeekDay car vu le format de ta date tu vas devoir "deviner" le numéro du jour étant donné que tu n'as apparemment que le numéro de la semaine et le libellé du jour de cette dite semaine.
Arnaud
"RaphK34" a écrit dans le message de news:
la F° Cdate() associé à la F° Format() devraient te convenir
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Kiwix" a écrit dans le message de news:044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
En effet, merci du complément !
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:%23$98BcSsEHA.3412@TK2MSFTNGP14.phx.gbl...
Bonjour,
Pour compléter, je rajouterai aussi la fonction WeekDay car vu le format de
ta date tu vas devoir "deviner" le numéro du jour étant donné que tu n'as
apparemment que le numéro de la semaine et le libellé du jour de cette dite
semaine.
Arnaud
"RaphK34" <nospampizza.mpl@tiscali.fr> a écrit dans le message de news:
uhhi3YSsEHA.3136@TK2MSFTNGP11.phx.gbl...
la F° Cdate() associé à la F° Format() devraient te convenir
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
"Kiwix" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:044c01c4b122$47bdec10$a401280a@phx.gbl...
Bonjour à tous :)
Aujourd'hui j'ai récupéré une base ACCESS avec une table
qui comporte une cellule texte. Dans cette cellule est
rempli une date sous la forme "1 2004 Jeudi". "1" étant la
semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me
demande aujourd'hui comment transformer au moins
visuellement à partir d'une requête ce champ 'DATE' en
vrai date ? Pour qu'au final, "1 2004 Jeudi" me
donne "01/01/2004".
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Gafish" a écrit dans le message de news:%23$
Bonjour,
Pour compléter, je rajouterai aussi la fonction WeekDay car vu le format de ta date tu vas devoir "deviner" le numéro du jour étant donné que tu n'as apparemment que le numéro de la semaine et le libellé du jour de cette dite semaine.
Arnaud
"RaphK34" a écrit dans le message de news:
la F° Cdate() associé à la F° Format() devraient te convenir
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Kiwix" a écrit dans le message de news:044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
Kiwix
Je suis désolé car là vous me parlez de fonction que je ne connais pas. Pouvez vous me faire un exemple, se serait super :) merci.
Je suis désolé car là vous me parlez de fonction que je ne
connais pas. Pouvez vous me faire un exemple, se serait
super :) merci.
Je suis désolé car là vous me parlez de fonction que je ne connais pas. Pouvez vous me faire un exemple, se serait super :) merci.
Jessy Sempere [MVP]
Bonjour
Utilises le code qui suit, tu le copis dans un module de la base ensuite tu fais appelles à cette fonction comme n'importe quelle fonction d'Access dans ta requête :
************************************************** Function ConvertDate(strDate As String) As Date
Dim intWeek As Integer Dim strDay As String Dim intDay As Integer Dim intYear As Integer Dim dt As Date Dim dblDt As Double
intYear = right(strDate, 4) intWeek = left(strDate, InStr(strDate, " ") - 1) strDay = Mid(strDate, Len(intWeek) + 1, _ Len(strDate) - Len(intWeek) - 5) Select Case strDay Case "Dimanche" intDay = 1 Case "Lundi" intDay = 2 Case "Mardi" intDay = 3 Case "Mercredi" intDay = 4 Case "Jeudi" intDay = 5 Case "Vendredi" intDay = 6 Case "Samedi" intDay = 7 End Select dt = DateSerial(intYear, 1, 1) dblDt = CDbl(dt) ConvertDate = CDate(dblDt + ((intWeek - 1) * 7) - _ DatePart("w", dt, vbSunday) + intDay)
End Function **************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Kiwix" a écrit dans le message news: 044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
Bonjour
Utilises le code qui suit, tu le copis dans un module de la base ensuite
tu fais appelles à cette fonction comme n'importe quelle fonction d'Access
dans ta requête :
**************************************************
Function ConvertDate(strDate As String) As Date
Dim intWeek As Integer
Dim strDay As String
Dim intDay As Integer
Dim intYear As Integer
Dim dt As Date
Dim dblDt As Double
intYear = right(strDate, 4)
intWeek = left(strDate, InStr(strDate, " ") - 1)
strDay = Mid(strDate, Len(intWeek) + 1, _
Len(strDate) - Len(intWeek) - 5)
Select Case strDay
Case "Dimanche"
intDay = 1
Case "Lundi"
intDay = 2
Case "Mardi"
intDay = 3
Case "Mercredi"
intDay = 4
Case "Jeudi"
intDay = 5
Case "Vendredi"
intDay = 6
Case "Samedi"
intDay = 7
End Select
dt = DateSerial(intYear, 1, 1)
dblDt = CDbl(dt)
ConvertDate = CDate(dblDt + ((intWeek - 1) * 7) - _
DatePart("w", dt, vbSunday) + intDay)
End Function
**************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Kiwix" <anonymous@discussions.microsoft.com> a écrit dans le message news:
044c01c4b122$47bdec10$a401280a@phx.gbl...
Bonjour à tous :)
Aujourd'hui j'ai récupéré une base ACCESS avec une table
qui comporte une cellule texte. Dans cette cellule est
rempli une date sous la forme "1 2004 Jeudi". "1" étant la
semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me
demande aujourd'hui comment transformer au moins
visuellement à partir d'une requête ce champ 'DATE' en
vrai date ? Pour qu'au final, "1 2004 Jeudi" me
donne "01/01/2004".
Utilises le code qui suit, tu le copis dans un module de la base ensuite tu fais appelles à cette fonction comme n'importe quelle fonction d'Access dans ta requête :
************************************************** Function ConvertDate(strDate As String) As Date
Dim intWeek As Integer Dim strDay As String Dim intDay As Integer Dim intYear As Integer Dim dt As Date Dim dblDt As Double
intYear = right(strDate, 4) intWeek = left(strDate, InStr(strDate, " ") - 1) strDay = Mid(strDate, Len(intWeek) + 1, _ Len(strDate) - Len(intWeek) - 5) Select Case strDay Case "Dimanche" intDay = 1 Case "Lundi" intDay = 2 Case "Mardi" intDay = 3 Case "Mercredi" intDay = 4 Case "Jeudi" intDay = 5 Case "Vendredi" intDay = 6 Case "Samedi" intDay = 7 End Select dt = DateSerial(intYear, 1, 1) dblDt = CDbl(dt) ConvertDate = CDate(dblDt + ((intWeek - 1) * 7) - _ DatePart("w", dt, vbSunday) + intDay)
End Function **************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Kiwix" a écrit dans le message news: 044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
RaphK34
Un maitre à parler ...
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Jessy Sempere [MVP]" a écrit dans le message de news:ckjglk$gnb$
Bonjour
Utilises le code qui suit, tu le copis dans un module de la base ensuite tu fais appelles à cette fonction comme n'importe quelle fonction d'Access dans ta requête :
************************************************** Function ConvertDate(strDate As String) As Date
Dim intWeek As Integer Dim strDay As String Dim intDay As Integer Dim intYear As Integer Dim dt As Date Dim dblDt As Double
intYear = right(strDate, 4) intWeek = left(strDate, InStr(strDate, " ") - 1) strDay = Mid(strDate, Len(intWeek) + 1, _ Len(strDate) - Len(intWeek) - 5) Select Case strDay Case "Dimanche" intDay = 1 Case "Lundi" intDay = 2 Case "Mardi" intDay = 3 Case "Mercredi" intDay = 4 Case "Jeudi" intDay = 5 Case "Vendredi" intDay = 6 Case "Samedi" intDay = 7 End Select dt = DateSerial(intYear, 1, 1) dblDt = CDbl(dt) ConvertDate = CDate(dblDt + ((intWeek - 1) * 7) - _ DatePart("w", dt, vbSunday) + intDay)
End Function **************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Kiwix" a écrit dans le message news: 044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".
Un maitre à parler ...
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message de news:ckjglk$gnb$1@muguet.sncf.fr...
Bonjour
Utilises le code qui suit, tu le copis dans un module de la base ensuite
tu fais appelles à cette fonction comme n'importe quelle fonction d'Access
dans ta requête :
**************************************************
Function ConvertDate(strDate As String) As Date
Dim intWeek As Integer
Dim strDay As String
Dim intDay As Integer
Dim intYear As Integer
Dim dt As Date
Dim dblDt As Double
intYear = right(strDate, 4)
intWeek = left(strDate, InStr(strDate, " ") - 1)
strDay = Mid(strDate, Len(intWeek) + 1, _
Len(strDate) - Len(intWeek) - 5)
Select Case strDay
Case "Dimanche"
intDay = 1
Case "Lundi"
intDay = 2
Case "Mardi"
intDay = 3
Case "Mercredi"
intDay = 4
Case "Jeudi"
intDay = 5
Case "Vendredi"
intDay = 6
Case "Samedi"
intDay = 7
End Select
dt = DateSerial(intYear, 1, 1)
dblDt = CDbl(dt)
ConvertDate = CDate(dblDt + ((intWeek - 1) * 7) - _
DatePart("w", dt, vbSunday) + intDay)
End Function
**************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Kiwix" <anonymous@discussions.microsoft.com> a écrit dans le message news:
044c01c4b122$47bdec10$a401280a@phx.gbl...
Bonjour à tous :)
Aujourd'hui j'ai récupéré une base ACCESS avec une table
qui comporte une cellule texte. Dans cette cellule est
rempli une date sous la forme "1 2004 Jeudi". "1" étant la
semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me
demande aujourd'hui comment transformer au moins
visuellement à partir d'une requête ce champ 'DATE' en
vrai date ? Pour qu'au final, "1 2004 Jeudi" me
donne "01/01/2004".
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam.
"Jessy Sempere [MVP]" a écrit dans le message de news:ckjglk$gnb$
Bonjour
Utilises le code qui suit, tu le copis dans un module de la base ensuite tu fais appelles à cette fonction comme n'importe quelle fonction d'Access dans ta requête :
************************************************** Function ConvertDate(strDate As String) As Date
Dim intWeek As Integer Dim strDay As String Dim intDay As Integer Dim intYear As Integer Dim dt As Date Dim dblDt As Double
intYear = right(strDate, 4) intWeek = left(strDate, InStr(strDate, " ") - 1) strDay = Mid(strDate, Len(intWeek) + 1, _ Len(strDate) - Len(intWeek) - 5) Select Case strDay Case "Dimanche" intDay = 1 Case "Lundi" intDay = 2 Case "Mardi" intDay = 3 Case "Mercredi" intDay = 4 Case "Jeudi" intDay = 5 Case "Vendredi" intDay = 6 Case "Samedi" intDay = 7 End Select dt = DateSerial(intYear, 1, 1) dblDt = CDbl(dt) ConvertDate = CDate(dblDt + ((intWeek - 1) * 7) - _ DatePart("w", dt, vbSunday) + intDay)
End Function **************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Kiwix" a écrit dans le message news: 044c01c4b122$47bdec10$ Bonjour à tous :) Aujourd'hui j'ai récupéré une base ACCESS avec une table qui comporte une cellule texte. Dans cette cellule est rempli une date sous la forme "1 2004 Jeudi". "1" étant la semaine, "2004" l'année et "Lundi" le jour ;) . Donc je me demande aujourd'hui comment transformer au moins visuellement à partir d'une requête ce champ 'DATE' en vrai date ? Pour qu'au final, "1 2004 Jeudi" me donne "01/01/2004".