Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Συνάρτηση Timer

Επιστρέφει μια τιμή που καθορίζει τον αριθμό των δευτερολέπτων που πέρασαν από τα μεσάνυχτα.

Πρώτα πρέπει να δηλώσετε μια μεταβλητή που καλεί τη συνάρτηση Timer και της αποδίδει τον τύπο δεδομένων "μεγάλος ακέραιος", αλλιώς επιστρέφεται μια τιμή ημερομηνίας.

## Σύνταξη:

    Timer

## Τιμή επιστροφής:

Ημερομηνία

## Παράδειγμα:

    Sub ExampleTimer

    Dim lSec As Long,lMin As Long,lHour As Long

        lSec = Timer

        MsgBox lSec,0,"Δευτερόλεπτα από τα μεσάνυχτα"

        lMin = lSec / 60

        lSec = lSec Mod 60

        lHour = lMin / 60

        lMin = lMin Mod 60

        MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"Η ώρα είναι"

    End Sub