Contents
Index 🔎︎

# Timer Function

Trả về một giá trị mà ghi rõ số giây đã qua kể từ nửa đêm.

Trước tiên bạn cần phải khai báo một biến để gọi hàm Timer và gán cho nó kiểu dữ liệu « Long » (dài), không thì trả về một giá trị Ngày.

## Cú pháp:

    Timer

## GIá trị trả về:

Ngày

## Thí dụ :

    Sub ExampleTimer
    Dim lSec As Long,lMin As Long,lHour As Long
        lSec = Timer
        MsgBox lSec,0,"Giây kể từ nửa đêm"
        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,"Bây giờ có"
    End Sub