VBA Ngày là số nguyên

Question

có cách nào để lấy số nguyên cơ bản cho hàm Date trong VBA không? Tôi đang đề cập đến các số nguyên được lưu trữ bởi Excel để mô tả ngày trong bộ nhớ về số ngày (khi thời gian được bao gồm nó có thể là một phao sau đó tôi đoán). Tôi chỉ quan tâm đến phần nguyên mặc dù. Có một chức năng khác cho điều đó không?

Ví dụ, cho ngày hôm nay() Tôi muốn để có thể lấy lại 40.877 ..

Cảm ơn các bạn;)

Answer 1

ngày không phải là một Integer trong VB (A), đó là một đôi.

Bạn có thể nhận được giá trị của Ngày bằng cách chuyển nó đến CDbl().

CDbl(Now())  ' 40877.8052662037 

Để có được một phần số nguyên, sử dụng

Int(CDbl(Now())) ' 40877 

mà sẽ trả về một dài đôi với không chữ số thập phân (tức là Floor() sẽ làm gì trong các ngôn ngữ khác).

Sử dụng CLng() hoặc Round() sẽ cho kết quả làm tròn, sẽ trả về "ngày trong tương lai" khi được gọi sau 12:00 trưa, vì vậy đừng làm vậy.

Answer 2

Chỉ cần sử dụng CLng(Date).

Lưu ý rằng bạn cần phải sử dụng Long không Integer cho điều này làm giá trị cho ngày hiện tại là> 32767

Answer 3

Public SUB test() 
    Dim mdate As Date 
    mdate = now() 
    MsgBox (Round(CDbl(mdate), 0)) 
End SUB 

Answer 4

Bạn có thể sử dụng dưới dụ mã cho chuỗi ngày như mdate và Now() như ngày hôm nay, bạn cũng có thể tính toán sự tôn kính giữa hai ngày như lão hóa

Public Sub test(mdate As String) 
    Dim toDay As String 
    mdate = Round(CDbl(CDate(mdate)), 0) 
    toDay = Round(CDbl(Now()), 0) 
    Dim Aging as String 
    Aging = toDay - mdate 
    MsgBox ("So aging is -" & Aging & vbCr & "from the date - " & _ 
    Format(mdate, "dd-mm-yyyy")) & " to " & Format(toDay, "dd-mm-yyyy")) 
End Sub 

NB: Được sử dụng CDate cho chuyển đổi ngày String để ngày hợp lệ

Tôi đang sử dụng tính năng này trong Office 2007 :)