Discussion :

[coccinelle_ange]

Bonjour,

J'ai une date jj/mm/aaaa stockée dans une variable Date1 et je souhaiterais que celle-ci se transforme en chiffre à l'aide d'une fonction.
Par exemple :
Date1 =12/02/2009
Date2 = fonction(Date1)
--> Date2 = 39856

Sauriez vous la fonction à utiliser pour avoir un tel résultat??

Merci d'avance,

[Kloun]

2 questions :
1/ pour quoi faire ?
2/ comment obtiens-tu 39856 ?

[coccinelle_ange]

Pour répondre à tes 2 questions :
1) En fait dans un formulaire j'ai un champ texte ou je saisis une date, par exemple le 12/02/2009 et j'appuie sur un bouton, ca doit m'ouvrir un autre formulaire avec tous les enregistrements dont la date est le 12/02/2009.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Commande51_Click()
    Date_Modif = (Forms!Frm_Accueil![zt_date_modif])
    DoCmd.OpenForm "Modif_Statut_Seance", acNormal, , "[Date_Formation]=" & Date_Modif
End Sub

ou Date_Formation est un champ texte de mon 2ème formulaire.

Le problème c'est que quand le 2ème formulaire s'ouvre, il ne trouve aucun enregistrement correspondant à la date là (alors qu'il y en a 2!)

2)Pour obtenir 39856, je suis passée par excel qui m'a donné le numéro de série de la date 12/02/2009. Et par exemple, si je mets comme commande de mon bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Commande51_Click()
    Date_Modif = (Forms!Frm_Accueil![zt_date_modif])
    DoCmd.OpenForm "Modif_Statut_Seance", acNormal, , "[Date_Formation]=39856"
End Sub

Lorsque le 2ème formulaire s'ouvre, il trouve bien les 2 enregistrements correspondants à la date du 12/02/2009.

Voilou, j'espère que c'est assez clair....

[ilank]

Bonjour,
je crois qu'il s'agît du nombre de jours écoulés depuis le 01/01/1900.
Soit tu fais le calcul:
365*(annee-1900)+int((annee - 1900)/4)+1+IndiceJourAnnee
Soit tu convertis la date : Date2=CLng(DateModif)

[coccinelle_ange]

oki merci ilank c'est tout bon!!

[Kloun]

Ca fonctionne peut-être, mais y'a une quand même une erreur de conception.
Sans transformer ta date, ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Commande51_Click()
dim Date_Modif as date
    Date_Modif = (Forms!Frm_Accueil![zt_date_modif])
    DoCmd.OpenForm "Modif_Statut_Seance", acNormal, , "[Date_Formation]=#" & format(Date_Modif, "MM/DD/YYYY") & "#"
End Sub

Ca sera quand même plus propre.

[helios77]

C'est clair que la solution de modifier en nombre est vraiment pas propre
Comme dis kloon, c'est un problème de format de date

Je m'explique, tu recherches 12/02/2008 dans ta table qui en contient
Le problème, dans la requêtes, access doit la transformer en 02/12/2008..


A mon avis, sans rien changer, si tu recherches 02/12/2008, il t'en sortira comme par hasard 2 qui seront en fait les 12/02/2008

[Oussko]

Bonjour,
je crois qu'il s'agît du nombre de jours écoulés depuis le 01/01/1900.
Soit tu fais le calcul:
365*(annee-1900)+int((annee - 1900)/4)+1+IndiceJourAnnee
Soit tu convertis la date : Date2=CLng(DateModif)