calcul entre deux dates

Le 15/05/2013 15:44, michelepin a écrit :

Bonjour,
je souhaite réaliser une requete pour un tableau de maladie, je dois connaitre
le nbre de jours entre deux dates et ajouter une alerte si total date supérieur
à 31 jours.
je peine a créer ma requête
en vous remerciant

cordialement

Dans mon cas je dois imprimer la liste des personnes qui quittent ce mois.
1- En sql , les dates sont dans le format USA
2- Je crée une nouvelle table (temporaire) avec le resultat de la requête
3- je l'imprime
4- je vide la table temporaire

Voila une idée pour la suite ................




Private Sub Commande77_Click()
'------------------------------
' Liste FinValidite
'------------------------------

Dim MyDate1 As Date
Dim MyDate2 As Date

Dim usDate1 As Date
Dim usDate2 As Date

Dim SQL_Text As String


MyDate1 = Date
MyDate2 = DateAdd("m", 1, MyDate1)

' MsgBox MyDate1
' MsgBox MyDate2

usDate1 = Format(MyDate1, "mm/dd/yyyy")
usDate2 = Format(MyDate2, "mm/dd/yyyy")

' MsgBox usDate1
' MsgBox usDate2

'1 creer une action et mettre le résultat dans le fichier temporaire
' les dates doivent etre en mode usa pour les sql

' creer une table temporaire avec le resultat du sql

SQL_Text = "INSERT INTO [FICHIERTMP] " _
& "SELECT * " _
& "FROM [FICHIER SOCIAL] " _
& "WHERE AU BETWEEN " & "#" & usDate1 & "# AND #" &
usDate2 & "# ;"


DoCmd.RunSQL SQL_Text, True

' 2 action sur le fichier temporaire

Dim stDocName As String

stDocName = "Liste FinValidite"
DoCmd.OpenReport stDocName, acPreview


' 3 vider le fichier temporaire
SQL_Text = "DELETE * " _
& "FROM [FICHIERTMP]"

DoCmd.RunSQL SQL_Text


End Sub

Le 15/05/2013 14:44, michelepin a écrit :

Bonjour,
je souhaite réaliser une requete pour un tableau de maladie, je dois connaitre
le nbre de jours entre deux dates et ajouter une alerte si total date supérieur
à 31 jours.
je peine a créer ma requête
en vous remerciant

cordialement

trouvé dans l'aide de access 2007 :
DateDiff, fonction, exemple
Cet exemple utilise la fonction DateDiff pour afficher le nombre de
jours entre une date donnée et la date d'aujourd'hui.

Dim TheDate As Date ' Déclare les variables.
Dim Msg
TheDate = InputBox("Entrez une date")
Msg = "Jours à compter d'aujourd'hui: " & DateDiff("j", Now, TheDate)
MsgBox Msg


si cela peut aider