décompte de secondes

[krasi_j]

Bonjour à tous

Pouvez-vous m'indiquer comment afficher à l'écran sous access 97, un décompte en seconde par rapport à une date future ?

Pour être plus précis, sur un formulaire je voudrai voir s'égrainer les secondes pour atteindre la date du 01/04/2009.


D'avance Merci

[Lou Pitchoun]

Salut,

Intéresses toi à DateDiff().
Par contre essaie d'être plus précis sur ta question :
sur un formulaire, dans une requête, un décompte qui "se voit" (permanent, je ne sais pas si je suis clair )

[stigma]

Essaye un compteur avec le Timer sur un formulaire.

[argyronet]

Bonsoir,

Voilà un exemple avec l'événement Timer :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Compare Database
Option Explicit
 
Private m_dblSecondsRest As Double
 
Private Sub Form_Load()
  Me.TimerInterval = 1000
End Sub
 
Private Sub Form_Timer()
Const MAX_DATE    As Date = #1/4/2009#
Static dblSeconds As Double
 
  dblSeconds = dblSeconds + 1
  m_dblSecondsRest = ((CLng(MAX_DATE) - CLng(Now)) * 86400) - dblSeconds
  lblSecondsRest.Caption = Format(m_dblSecondsRest, "0,00") & " secondes"
  If dblSeconds >= m_dblSecondsRest Then
    dblSeconds = 0
    Me.TimerInterval = 0
    lblSecondsRest.Caption = "C'est fini !"
  End If
End Sub

A quoi cela va servir ?

Argy