1. Trang chủ
  2. » Công Nghệ Thông Tin

Date and time (ngày và giờ) trong VBA excel

4 2,7K 11

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 4
Dung lượng 419,2 KB

Nội dung

DATE AND TIME TRONG VBA EXCEL Nếu bạn sử dụng Macro VBA trong Excel và gặp các vấn đề khi làm việc với Ngày và Giờ, thì bạn hãy đọc bài viết này để hiểu và sử dụng hiệu quả hơn. File bài tập đính kèm (Bạn tải về cùng nhé)! Tạo một command button trên worksheet của bạn, và paste đoạn code bên dưới, sau đó click vào button để thực hiện đoạn code. Year, Month, Day (Năm, Tháng, Ngày) của một ngày Macro sau sẽ xác định Năm của một ngày – dùng hàm Year. Code: Dim exampleDate As Date exampleDate = DateValue("Jun 19, 2010") MsgBox Year(exampleDate) Kết quả: Chú ý: Tương tự như Year, ta dùng hàm Month và Day để lấy Tháng và ngày của một ngày cụ thể. DateAdd Để cộng thêm một số lượng ngày vào một ngày cụ thể, ta dùng hàm DateAdd. Hàm này có ba tham số has three arguments. Để cộng thêm 3 ngày cho một ngày cụ thể (Jun 19, 2010): Điền “d” cho tham số thứ nhất để thêm ngày, điền 3 cho tham số thứ hai, có nghĩa là cộng thêm 3 ngày. Tham số thứ ba là ngày cụ thể, số ngày sẽ được cộng thêm vào ngày này. Code: Dim firstDate As Date, secondDate As Date firstDate = DateValue("Jun 19, 2010") secondDate = DateAdd("d", 3, firstDate) MsgBox secondDate Kết quả: Chú ý: Thay đổi “d” thành “m” để add thêm tháng vào ngày cụ thể đó. Thay đổi “d” thành “y” để add thêm năm cho ngày đó. Định dạng ngảy giò phụ thuộc vào màn hình setup regional của bạn. Current Date and Time: Ngày và Giờ hiện tại – Function Now Code: MsgBox Now Kết quả: Hour, Minute, Second: Giờ, Phút, Giây – Function Hour, Minute, Second Code: MsgBox Hour(Now) Kết quả: Dùng hàm Minute và Second để lấy Phút và Giây tương tự hàm Hour như trên. TimeValue Hàm TimeValue chuyển một chuỗi ký tự thành dạng dữ liệu thời gian. Code: MsgBox TimeValue("9:20:01 am") Kết quả: Dạng dữ liệu thời gian là một con số giữa 0 và 1. ví dụ, giữa trưa là 0.5. Để hiểu rõ hơn, sử dụng đoạn code sau: Dim y As Double y = TimeValue("09:20:01") MsgBox y Kết quả:

Ngày đăng: 27/08/2015, 00:10

TÀI LIỆU CÙNG NGƯỜI DÙNG

  • Đang cập nhật ...