Szukam kodu zegara liczacego w tyl

Moze byc obojetnie w jakim jezyku.Chodzi o to aby odliczal np. od 20 minut.Musze to potem wstawic jakos do accessa(do formularza w accessie).

V-tec's programing language:

docelowy_czas = aktualny_czas+czas_do_odliczenia
do {
czas = docelowy_czas-aktualny_czas
print czas
} while (docelowy_czas > aktualny_czas)
print "0.0!"

Pozdrawiam

Czy to sie da wstawic do accessa ??

poszukaj VBScript

Zrób formularz w accessie, stwórz pole o nazwie "timer"
wstaw przycisk, dla zdarzenia OnClick wstaw kod:

Dim start As Date
Dim teraz As Date
Dim roznica As Integer
'ustawienie daty poczatkowej
start = Now

'wejscie w petle wykonywana prze 1200 sekund = 20 minut

Do Until roznica = 1200
' pobranie aktualnergo czasu
    teraz = Now
'przypisanie do zmiennej roznica - różnicy czasów w sekundach
    roznica = DateDiff("s", start, teraz)
' wpisanie odliczonego czasu do pola tekstowego "timer"
    <b>Me.timer = roznica</b>
' Ponowne odrysowanie formularza, bo przy pętlach użytkownik nie widzi zmian...
    Me.Repaint
Loop

Pogrubiona linijke poprawilem bo był błąd...

Oki działa ale liczy do przodu tzn. od zera do 1200