Giá trị thời gian trong VBA là một hàm có sẵn cũng được phân loại theo hàm ngày và giờ trong VBA, hàm này như tên gợi ý cho chúng ta giá trị số của ngày được cung cấp làm đối số, nó nhận một đối số duy nhất là ngày và trả về giá trị số từ đối số.
Chức năng giá trị thời gian làm gì trong VBA?
Hàm giá trị thời gian trong VBA Excel trả về phần giá trị thời gian từ ngày và giờ đầy đủ. Ngày và giờ được lưu trữ dưới dạng số sê-ri trong excel. Số sê-ri đại diện cho NGÀY và số thập phân đại diện cho thời gian. Sử dụng hàm TimeValue, chúng ta chỉ có thể lấy số sê-ri thời gian, tức là số thập phân.
Cú pháp của hàm VBA TimeValue
Cú pháp của hàm VBA TimeValue như sau.
Như chúng ta đã nói, hàm TimeValue trả về phần số sê-ri của ngày đã cho, được lưu trữ dưới dạng giá trị văn bản. Thời gian không là gì ngoài thời gian thực tế mà chúng ta đang tìm kiếm để lấy số thứ tự. Hãy nhớ rằng, Giá trị thời gian chỉ có thể lấy số sê-ri từ thời gian, số này được lưu trữ dưới dạng văn bản, không phải dưới dạng TIME.
Ví dụ về hàm TimeValue với Excel VBA
Dưới đây là các ví dụ về Hàm VBA TimeValue.
VBA TimeValue Ví dụ # 1
Bây giờ, hãy xem ví dụ đơn giản về hàm VBA TimeValue.
Mã:
Sub TIMEVALUE_Function_Example1 () 'Chuyển chuỗi nhập đã cho thành thời gian hợp lệ và hiển thị trên màn hình' Khai báo biến Dim MyTime As Date 'Gán thời gian cho một biến MyTime = TimeValue ("28-05-2019 16:50:45")' Hiển thị đầu ra trên màn hình MsgBox "Hiện tại là:" & MyTime, vbInformation, "Hàm VBA TIMEVALUE" End Sub
Điều đầu tiên, tôi đã khai báo biến “MyTime” là Ngày.
Giảm thời gian MyTime như ngày
Sau đó, tôi đã gán giá trị cho biến bằng cách áp dụng TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Sau đó, trong hộp thông báo, tôi đã gán kết quả biến.
MsgBox "Thời gian được cung cấp là:" & MyTime, vbInformation, "Hàm TIMEVALUE".
Nếu tôi chạy mã bằng phím F5 hoặc thủ công, thì chúng tôi sẽ nhận được kết quả như sau.
VBA TimeValue Ví dụ # 2
Đối với cùng một đoạn mã, tôi sẽ khai báo biến VBA là “Double”.
Mã:
Sub TIMEVALUE_Function_Example1 () 'Chuyển chuỗi nhập đã cho thành thời gian hợp lệ và hiển thị trên màn hình' Khai báo biến Dim MyTime As Double 'Gán thời gian cho một biến MyTime = TimeValue ("28-05-2019 16:50:45")' Hiển thị đầu ra trên màn hình MsgBox "Giờ hiện tại là:" & MyTime, vbInformation, "Hàm VBA TIMEVALUE" End Sub
Bây giờ, nếu tôi chạy mã VBA theo cách thủ công hoặc bằng cách nhấn phím F5, nó sẽ hiển thị phần số sê-ri của thời gian 16:50:45.
Để bạn hiểu rõ hơn, trước tiên tôi sẽ nhập các số được đưa ra bởi hộp thông báo VBA vào một trong các ô.
Bây giờ tôi sẽ áp dụng định dạng thời gian để kiểm tra kết quả chính xác.
Khi bạn chuyển đổi nó thành một định dạng thời gian, bạn có thể xem thời gian chính xác.
VBA TimeValue Ví dụ # 3
Bây giờ, hãy xem dữ liệu dưới đây.
Chúng tôi có dữ liệu và thời gian cùng nhau từ các ô A1 đến A14. Đối với cột thứ hai, chúng ta chỉ cần trích xuất giá trị thời gian. Vì chúng ta có nhiều ô cần xử lý, nên chúng ta cần sử dụng các vòng lặp để thực hiện cùng một nhóm tác vụ cho tất cả các ô.
Chúng tôi có dữ liệu từ ô thứ 1 đến ô thứ 14 , vì vậy vòng lặp của chúng tôi sẽ chạy trong 14 lần. Chúng ta cần sử dụng vòng lặp FOR NEXT trong VBA để đề cập đến giới hạn dưới và giới hạn trên. Mã Dưới đây là mã đã được viết sẵn để trích xuất giá trị thời gian từ sự kết hợp ngày và giờ.
Mã:
Sub TimeValue_Example3 () Dim k As Integer Cho k = 1 đến 14 Cell (k, 2) .Value = TimeValue (Cells (k, 1) .Value) Next k End Sub
Khi chúng ta chạy mã, chúng ta sẽ nhận được các giá trị như bên dưới.
Nếu bạn muốn xem giờ, hãy áp dụng định dạng TIME cho nó.
Vì vậy, đây là cách hàm GIÁ TRỊ THỜI GIAN hoạt động trong VBA & Excel.
