calcul entre deux dates

Le
michelepin Hors ligne
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MULLER
Le #25409402
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
brouhaha.news
Le #25414192
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
Publicité
Poster une réponse
Anonyme