Discussion :

[campana]

Bonjour

Pour finaliser un petit programme qui me calcule en temps reel le temps écoulé jusqu'a ce jour (DureeAttenteCeJour) d'un équipement expédié en réparation dont on attend toujours le retour depuis son depart (DateDepartNoria)
il resterait un détail à modifier
Le champs actuelle DureeAttenteCeJour du formulaire intégre à la fois les jours restants et l'horloge
J'aimerais 2 champs distincts

*un champs

DureeAttenteCeJour : jours heures minuttes (restants) ( donc heures minuttes en + )

*un autre champs par exemple

Horloge : horloge de l'ordinateur


Y-a-t'il une solution simple en modifiant la requête SQL si dessous

Code :

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

UPDATE Table1 SET Table1.DureeAttenteCeJour = Fix(DateDiff("n",[DateDepartNoria],Now())/1440) & "j " & Format$((DateDiff("n",[DateDepartNoria],Now())-(Fix(DateDiff("n",[DateDepartNoria],Now())/1440)*1440))/1440,"hh:nn:ss");

Table1 intégrant 3 champs
N° équipement
DateDepartNoria
DureeAttenteCeJour



Je vous remercie

[loufab]

Bonjour,

Tu peux créer une fonction VBA pour soulager les calculs de la requetes.

Voici comment j'ai procédé dans une application.

La requete :

Code :

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

SELECT Pannes.N_PANNES, Pannes.DateAppel, intervale2time(Now()-[DateAppel],"j") AS [Ouverte depuis],... FROM ....

La fonction :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'------------------------------------------------------------------
'  retourne la duree entre 2 dates
'  suivant le parametre 2 : j retourne j h m s
'                           h          h m s
'                           m          m s
'                           s          s
'  utilisez Now() au lieu de Date()
'  cette fonction permet la notation de l'intervale suivant :
'     #5/12/95 6:00:00AM# - #5/11/95 10:00:00PM#
'     -ou-
'     [End Time]-[Start Time]
'------------------------------------------------------------------
 
Function Intervale2time(Interval As Double, jmhs As String)
  Dim X As String
  Select Case UCase(jmhs)
      Case Is = "S"
          X = Int(CSng(Interval * 24 * 3600)) & "s"
      Case Is = "M"
          X = Int(CSng(Interval * 24 * 60)) & "m " & Format(Interval, "ss") & "s"
      Case Is = "H"
          X = Int(CSng(Interval * 24)) & "h " & Format(Interval, "nn") & "m " & Format(Interval, "ss") & "s"
      Case Is = "J"
          X = Int(CSng(Interval)) & "j " & Format(Interval, "hh") & "h " & Format(Interval, "nn") & "m " & Format(Interval, "ss") & "s"
  End Select
 
  Intervale2time = X
 
End Function

Cordialement,

[campana]

Je te remercie Loufab

Cala ne répond pas tout à fait à ma question concernant la RQ que j'avais mis en place mais je vais essayer de mettre en apllication ta methode.

Merci

[campana]

Bonjour

La requête présente une erreur de syntaxe , opérateur absent dans l'expression
'.....'

Pouvez-vous m'aider

Merci

[loufab]

oui si vous la postez... parcque j'ai cassé ma boule de cristal et le chien m'a bouffé mon dernier jeu de tarot de marseille.