Discussion :

[fsautejeau]

Bnojour a tous,

dans une table, j ai une reference avec la date et l heure (champs format) de production de cette reference.Seulement tous les produits qui ont ete produit avant 06:15:00 le 01.09.2006 par ex, je veux leur attribuer le 31.08.2006 comme date de production (1 jour avant).

Dans une requete, j ai crée une expression

Datum2:MAN_Arbeitstag(Timestamp)


J ai codé MAN_Arbeitstag en vba:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function MAN_Arbeitstag(Datum_Uhrzeit As Date) As Date
 
Dim Datum As Date
Dim Uhrzeit As Date
 
Datum = DateValue(Datum_Uhrzeit)
Uhrzeit = TimeValue(Datum_Uhrzeit)
 
If Uhrzeit < "06:15:00" Then
    Datum = Datum - 1
End If
 
 
MAN_Arbeitstag = FormatDateTime(Datum)
End Function

existe une fonction en sql aussi que je pourrai utiliser?

Mon probleme vient de la. C est a dire que maintenant je cherche tte les ref qui ont été produites a partir du 01.09.2006 (donc a partir de 06:15:00 ).

Donc dans ma requete je rajoute comme critere de Datum2 : >=#01.09.2006#


Qd je lance ma requete j ai un message d erreur qui me dit que le type de donnee du critere n est pas correct...

J ai jusqu ici pas mal essayé, comme de changer le format de date ds les propriéte, essayer les formats a l amrericaine, mais rien n y fait.

Qun a t il une idee?

Merci d avance

[ypicot]

les pb de format de date sont traités dans la FAQ.

[Mahefasoa]

Salut,
essayes de vérifier les paramètres régionaux dans Windows (accessible à partir du panneau de configuration)

Bon courage.

[fsautejeau]

non ca n a rien a voir avec les parametre regionaux de windows. C est comme si il ne reconnaissait pas un format date pour l expression Datum2. Je dois avoue ne pas savoir trop quoi faire. C est vraiment mal foutu tous ce qui touche aux dates et heures.....

[random]

select madate-(6.25/24) as jour

[fsautejeau]

J ai essayé et ca me donne 38747,367361111133333333333333 pour madate=30.01.2006 15:04:00.

[ypicot]

Donc dans ma requete je rajoute comme critere de Datum2 : >=#01.09.2006#

Ta fonction VBA est correcte.
Comment apparaissent les dates dans tes tables ? SI tu est en France, il faut faire

Code :

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

>=#01/09/2006#

Yvan

[random]

select cdate(int(madate)-(6.25/24))

[fsautejeau]

en fait j ai essayé en minute et ca marche

madate-375/1440

[fsautejeau]

resalut,

en fait c pas resolu car en gros j ai ecris Datevalue([madate]-375/1440), ce qui me donne bien ce que je veux. Mais par contre qd je chrche des ref superieur a une date, par ex ds critere >=#07.09.2006# (le format est bon),

il mr met tjs que le critere ne supporte pas le type de donnee, comme si c etait pas une date.

je comprend plus rien

[cafeine]

Heu, tu as essayé la proposition de Random ?

[fsautejeau]

oui oui je l ai essayé et j ai le meme probleme...

[random]

select Datum_Uhrzeit -(6.25/24) te renvoie nécessairement une date c'est à dire un réel simple en avancant tout le temps de 6 heures 1 quart

int(Datum_Uhrzeit -(6.25/24)) se place à 0 heures ce jour là

cdate(int(Datum_Uhrzeit -(6.25/24)) ) assure que le résultat sera au format date

aussi suis je un peu surpris

[fsautejeau]

je suis bien d accord avec toi,ca parait assez impossible que ca ne marche pas, et pourtant...mais j ai maintenant trouve une solution:

CDate(Wenn(Int([Timestamp]-6,25/24) Ist Null;0;Int([Timestamp]-6,25/24)))

Wenn =if
Ist=is
Null=0

et la ca marche.

[fsautejeau]

Merci pour votre aide