seychellesartprojects.org

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 Time Value 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 cụ thể đượ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ớ Giá trị thời gian chỉ có thể lấy số sê-ri từ thời gian được lưu trữ dưới dạng văn bản, không phải là TIME.

Ví dụ về Hàm TimeValue với Excel VBA

Dưới đây là các ví dụ về Hàm VBA TimeValue.

Bạn có thể tải xuống Mẫu hàm VBA TimeValue này tại đây - Mẫu 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 "Giờ 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 của tôi 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 sau đó thủ công, 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 tôi 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ứ nhất đế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ạy đoạn 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ờ thì hãy áp dụng định dạng TIME cho nó.

Vì vậy, đây là cách hàm TIME VALUE hoạt động trong VBA & Excel.