VBA Data jako liczba całkowita

Question

Czy istnieje sposób uzyskania podstawowej liczby całkowitej dla funkcji Date w języku VBA? Odnoszę się do liczby całkowitej zapisanej w Excelu, aby opisać daty w pamięci pod względem liczby dni (kiedy czas jest włączony, może to być spławik, jak sądzę). Jestem jednak zainteresowany tylko częścią całkowitą. Czy istnieje tylko inna funkcja?

Na przykład dzisiaj() Chciałbym móc wrócić 40877 ..

Dziękuję chłopaki;)

Answer 1

Data nie jest liczbą całkowitą w VB (A), jest to dwukrotnie. Można uzyskać wartość daty, przekazując ją do CDbl().

CDbl(Now())  ' 40877.8052662037 

Aby uzyskać część całkowitą, użyj

Int(CDbl(Now())) ' 40877 

który zwróci Długi Dwuosobowy bez miejsc po przecinku (to co Floor() zrobi w innych językach).

Używanie CLng() lub Round() spowoduje zaokrąglenie, które zwróci "dzień w przyszłości", gdy zostanie wywołane po godzinie 12:00, więc nie rób tego.

Answer 2

Wystarczy użyć CLng(Date).

Należy pamiętać, że trzeba użyć Long nie Integer za to jako wartość dla bieżącej daty jest> 32767

Answer 3

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

Answer 4

Można użyć miech przykład kodu dla data ciąg jak mdate a teraz() jak dziś, można również obliczyć szacunek między obu daty jak Aging

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: Używany CDate do konwersji Data ciąg na poprawną datę

Używam tego w Office 2007 :)