Hôm nay mình giới thiệu hàm TimeSerial, hàm này có giá trị trả về là giờ phút giây.
Cấu trúc code:
TimeSerial(giờ, phút, giây)
Giá trị trả về là kiểu Ngày tháng (Date)
Diễn giải:
Giờ: 0~23. Ngoài ra bạn ó thể chỉ định là số âm như -1 hoặc là 24 trở lên. 24 là quá nửa đêm, sang ngày mới trở thành 0 giờ.
Phút: 0~59. Ngoài ra bạn có thể chỉ định số âm như -1, hoặc là 60 trở lên. 60 là sau 1 giờ, phút sẽ là 0.
Giây: 0~59. Ngoài ra bạn có thể chỉ định số âm như -1, hoặc là 60 trở lên. 60 là sau 1 phút, giây sẽ là 0.
Thời gian khỏi tạo ban đầu của hàm là trả về giá trị 30/12/1899.
Cứ thể này thì khó hiểu nhỉ, cùng xem đoạn code dưới đây nhé:
Ta cũng có thể cỉ định thời gian bằng cách gán giá trị cho biến số.
Một bài viết như thế này chắc là mọi người không hài lòng rồi, nhưng phải có bài viết này để làm căn cứ cho bài viết sau, cùng chờ xem bài viết sau mình sẽ giới thiệu cho các bạn thứ gì hay ho nhé.
Nguon tham khao:
Cấu trúc code:
TimeSerial(giờ, phút, giây)
Giá trị trả về là kiểu Ngày tháng (Date)
Diễn giải:
Giờ: 0~23. Ngoài ra bạn ó thể chỉ định là số âm như -1 hoặc là 24 trở lên. 24 là quá nửa đêm, sang ngày mới trở thành 0 giờ.
Phút: 0~59. Ngoài ra bạn có thể chỉ định số âm như -1, hoặc là 60 trở lên. 60 là sau 1 giờ, phút sẽ là 0.
Giây: 0~59. Ngoài ra bạn có thể chỉ định số âm như -1, hoặc là 60 trở lên. 60 là sau 1 phút, giây sẽ là 0.
Thời gian khỏi tạo ban đầu của hàm là trả về giá trị 30/12/1899.
Cứ thể này thì khó hiểu nhỉ, cùng xem đoạn code dưới đây nhé:
Mã:
Dim t As Date
t = TimeSerial(1, 2, 3)
Debug.Print (t) ' 1:02:03
t = TimeSerial(24, 2, 3) ' Chỉ định giờ là 24
Debug.Print (t) '0:02:03 31/12/1899
t = TimeSerial(1, -1, 3) ' Chỉ định phút là -1
Debug.Print (t) ' 0:59:03
t = TimeSerial(1, 60, 3) ' Chỉ định phút là 60
Debug.Print (t) ' 2:00:03
t = TimeSerial(1, 2, -1) ' Chỉ định giây là -1
Debug.Print (t) ' 1:01:59
t = TimeSerial(1, 2, 60) ' Chỉ định giây là 60
Debug.Print (t) ' 1:03:00
Mã:
Dim t As Date
Dim hh As Integer
Dim nn As Integer
Dim ss As Integer
hh = 1
nn = 2
ss = 3
t = TimeSerial(hh, nn, ss)
Debug.Print (t) ' 1:02:03
Nguon tham khao:
Bạn cần đăng nhập để thấy link