Public fonction

4 réponses

23/01/2004 à 07:37

Bonjour à tous

J'expose mon soucis

j'ai une date au format numerique 20031105 et je voudrai créer une fonction
qui la mette au format 05/11/2003 (je voudrais que cette fonction soit
ensuite dans le générateur d'expressions

Merci

4 réponses

hm15

23/01/2004 à 08:00

Bonjour HA,

il me semble que tu as déjà eu la réponse le 20 janvier. Je copie/colle
l'extrait de la réponse de Raymond :
_____________________________
supposons que 20031205 soit dans un champ ou contrôle texte:
en vba:
Dim Origine As String
Origine = "20031205"
MsgBox Format(DateSerial(Left(Origine, 4), Mid(Origine, 5, 2), Mid(Origine,
7, 2)), "dddd dd/mm/yyyy")
________________________________

Tu peux enlever dddd si tu ne veux plus le nom du jour.
Cela ne fonctionne pas ?

Annette
---------------------------------------------------------------------------
www.horizon-micro.com

"HA" a écrit dans le message de news:
#

Bonjour à tous

J'expose mon soucis

j'ai une date au format numerique 20031105 et je voudrai créer une
fonction

qui la mette au format 05/11/2003 (je voudrais que cette fonction soit
ensuite dans le générateur d'expressions

Merci

23/01/2004 à 08:17

non cela ne fonctionne pas j'ai un bug au début de msgbox

"hm15" a écrit dans le message de news:

Bonjour HA,

il me semble que tu as déjà eu la réponse le 20 janvier. Je copie/colle
l'extrait de la réponse de Raymond :
_____________________________
supposons que 20031205 soit dans un champ ou contrôle texte:
en vba:
Dim Origine As String
Origine = "20031205"
MsgBox Format(DateSerial(Left(Origine, 4), Mid(Origine, 5, 2),
Mid(Origine,

7, 2)), "dddd dd/mm/yyyy")
________________________________

Tu peux enlever dddd si tu ne veux plus le nom du jour.
Cela ne fonctionne pas ?

Annette
--------------------------------------------------------------------------
-

www.horizon-micro.com

"HA" a écrit dans le message de news:
#
Bonjour à tous

J'expose mon soucis

j'ai une date au format numerique 20031105 et je voudrai créer une
fonction

qui la mette au format 05/11/2003 (je voudrais que cette fonction soit
ensuite dans le générateur d'expressions

Merci

23/01/2004 à 08:20

ça y est cela fonctionne mais je ne veux pas valider chaque ligne par la msg
box

"hm15" a écrit dans le message de news:

Bonjour HA,

il me semble que tu as déjà eu la réponse le 20 janvier. Je copie/colle
l'extrait de la réponse de Raymond :
_____________________________
supposons que 20031205 soit dans un champ ou contrôle texte:
en vba:
Dim Origine As String
Origine = "20031205"
MsgBox Format(DateSerial(Left(Origine, 4), Mid(Origine, 5, 2),
Mid(Origine,

7, 2)), "dddd dd/mm/yyyy")
________________________________

Tu peux enlever dddd si tu ne veux plus le nom du jour.
Cela ne fonctionne pas ?

Annette
--------------------------------------------------------------------------
-

www.horizon-micro.com

"HA" a écrit dans le message de news:
#
Bonjour à tous

J'expose mon soucis

j'ai une date au format numerique 20031105 et je voudrai créer une
fonction

qui la mette au format 05/11/2003 (je voudrais que cette fonction soit
ensuite dans le générateur d'expressions

Merci

Raymond [mvp]

23/01/2004 à 09:20

S'il te plait, pourrais-tu ne pas changer tout le temps de conversation en
posant la même question ? les habitués de ce groupe suivent les
conversations et on arrive à répondre partout. je te remets ma réponse:
Tu indiques comme ceci:
Monchamp = Format(DateSerial(Left(Origine, 4), Mid(Origine, 5, 2),
Mid(Origine, 7, 2)), "dddd dd/mm/yyyy")

petite précision: dans excel c'est une cellule, dans access c'est un champ
de table et un contrôle de formulaire.
Tu es sûr que tu travailles sur access et non sur excel ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"HA" a écrit dans le message de
news:

ça y est cela fonctionne mais je ne veux pas valider chaque ligne par la
msg

box

Public fonction

4 réponses

Veuillez sélectionner un problème