OVH Cloud OVH Cloud

Champ date général

4 réponses
Avatar
ArthurAccroc
Je souhaite modifier la valeur d'un champ de type date général (24/02/2005
21:54:17).
Pour simplifier la saisie je cherche à séparer sur 2 contrôles la partie
date et la partie heure.
champ1 = 24/02/2005 21:54:17
champ2 = 24/02/2005 (issu de champ1)
champ3 = 21:54:17 (issu de champ1)

1) Comment aller rechercher la partie date et la partie heure (champ2 et
champ3)
j'ai essayé des trucs du genre Day(Heure_Deb) & "/" & Month(Heure_Deb) & "/"
& Year(Heure_Deb)] mais c'est pas top.
2) après avoir modifier le champ2 ou champ3 coùùent reconstituer la date
(format date général) du champ1

Merci pour votre aide.

4 réponses

Avatar
Raymond [mvp]
Bonjour.

tu peux faire entr'autre:
Dim champ1 As Date
Dim champ2 As Date
Dim champ3 As Date
champ1 = Now()
champ2 = CDate(Format(champ1, "dd/mm/yyyy"))
champ3 = CDate(Format(champ1, "hh:nn:ss"))
champ1 = CDate(champ2 + champ3)

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


"ArthurAccroc" a écrit dans le message de news:
4222430d$0$25058$
Je souhaite modifier la valeur d'un champ de type date général (24/02/2005
21:54:17).
Pour simplifier la saisie je cherche à séparer sur 2 contrôles la partie
date et la partie heure.
champ1 = 24/02/2005 21:54:17
champ2 = 24/02/2005 (issu de champ1)
champ3 = 21:54:17 (issu de champ1)

1) Comment aller rechercher la partie date et la partie heure (champ2 et
champ3)
j'ai essayé des trucs du genre Day(Heure_Deb) & "/" & Month(Heure_Deb) &
"/" & Year(Heure_Deb)] mais c'est pas top.
2) après avoir modifier le champ2 ou champ3 coùùent reconstituer la date
(format date général) du champ1

Merci pour votre aide.




Avatar
Patrice
Bonjour,

Champ2=format([champ1],"dd/mm/yyyy"
champ3=format([champ1],"HH:mm:ss"

Champ1=format([champ2],"dd/mm/yyyy" & format([champ3],"HH:mm:ss"



Je souhaite modifier la valeur d'un champ de type date général (24/02/2005
21:54:17).
Pour simplifier la saisie je cherche à séparer sur 2 contrôles la partie
date et la partie heure.
champ1 = 24/02/2005 21:54:17
champ2 = 24/02/2005 (issu de champ1)
champ3 = 21:54:17 (issu de champ1)

1) Comment aller rechercher la partie date et la partie heure (champ2 et
champ3)
j'ai essayé des trucs du genre Day(Heure_Deb) & "/" & Month(Heure_Deb) & "/"
& Year(Heure_Deb)] mais c'est pas top.
2) après avoir modifier le champ2 ou champ3 coùùent reconstituer la date
(format date général) du champ1

Merci pour votre aide.





Avatar
Raymond [mvp]
Bonjour.

quelques précisions sur les dates:
le format des minutes c'est nn et non mm (m pour mois)
Format retourne une valeur variant de type string ce qui va créer une erreur
avec champ1 qui est de type date. une date et une heure ne se concatènent
pas mais s'additionnent.

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


"Patrice" a écrit dans le message de
news:
Bonjour,

Champ2=format([champ1],"dd/mm/yyyy"
champ3=format([champ1],"HH:mm:ss"

Champ1=format([champ2],"dd/mm/yyyy" & format([champ3],"HH:mm:ss"




Avatar
ArthurAccroc
Merci pour les conseils, mission accomplie.
Pour info voici comment j'ai réalisé la chose :
champ1 : date de départ => 25/02/2005 15:30:12
champ2 : date de champ1 => 25/02/2005 CDate(Format(champ1, "dd/mm/yyyy"))
champ3 : heure de champ1 => 15:30:12 CDate(Format(champ1, "hh:nn:ss"))

champ4 : champ pour modifier l'heure
sur modification:
champ1 = DateAdd("n", DateDiff("n", 0, CDate(Format(champ4, "hh:nn:ss"))),
champ2)
nota : je ne récupère pas les secondes.

même principe pour la date.



"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

quelques précisions sur les dates:
le format des minutes c'est nn et non mm (m pour mois)
Format retourne une valeur variant de type string ce qui va créer une
erreur avec champ1 qui est de type date. une date et une heure ne se
concatènent pas mais s'additionnent.

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


"Patrice" a écrit dans le message de
news:
Bonjour,

Champ2=format([champ1],"dd/mm/yyyy"
champ3=format([champ1],"HH:mm:ss"

Champ1=format([champ2],"dd/mm/yyyy" & format([champ3],"HH:mm:ss"