How do display a countdown timer

[jagnval]

I am creating an auction database to help in the removal of unused items at
my work place and need to display a countdown timer of how much longer items
are open for bidding, any help will be greatly appreciated.

 

[Steve]

In your auction item table you need a field for auction close date and time.
Then you can use the Now(0 function and that field in the DateDiff method to
express how much longer an item is open for bidding.

Steve
(e-mail address removed)

 

[Tom van Stiphout]

On Tue, 10 Mar 2009 08:32:17 -0700, jagnval

I am assuming you already have a field in your Items table to record
the EndOfBidding date/time.
In your form (I am assuming bound to the Items table) create a new
label, say lblCountdown.
Set the form's TimerInterval to for example 5000 so the timer ticks
every 5 seconds.
In the Form_Timer event write:
Me.lblCountdown.Caption = datediff("s", Now, Me.EndOfBidding)

This would give you the number of seconds until EoB. Use the Format
function if you want to format this value differently.

-Tom.
Microsoft Access MVP

 

[jagnval]

Tom,

First off thank you for your help. I have the run the DateDiff and I have
the seconds until the ending bid date on a timer interval of 1 second, but I
can't get it reformatted into the format I want of hh:mm:ss. may be even
days, I would like for it to be like a countdown clock when the seconds
start at 60 and countdown to 0 and that would take off 1 min and so on.

 

[Tom van Stiphout]

On Wed, 11 Mar 2009 06:47:01 -0700, jagnval

Do some simple math. First calculate the hours by doing an integer
division:
dim secs as long
secs = datediff(...)
dim h as integer
h = secs \ (60*60)

Get the remainder:
secs = secs - h * 60*60

Repeat this for minutes and seconds. Format as a string.

-Tom.
Microsoft Access MVP

 

[Tom van Stiphout]

On Wed, 11 Mar 2009 06:47:01 -0700, jagnval

The basic idea is that if you divide by 60*60 you get the number of
hours. Use the \ to get an integer division:
secs = datediff(...)
dim h as integer
h = secs\(60*60)

Then subtract those seconds from secs and you are left with the
remainder:
dim remainder as long
remainder = secs - (h*60*60)

Then do the same for minutes, etc.

-Tom.
Microsoft Access MVP