VBA Data come intero

Question

esiste un modo per ottenere il numero intero sottostante per la funzione Date in VBA? Mi riferisco al numero intero memorizzato da Excel per descrivere le date in memoria in termini di numero di giorni (quando il tempo è incluso può essere un float, suppongo). Tuttavia, mi interessa solo la parte intera. C'è solo un'altra funzione per questo?

Ad esempio, per oggi() Mi piacerebbe essere in grado di tornare 40877 ..

Grazie ragazzi;)

Answer 1

data non è un numero intero in VB (A), si tratta di un doppio.

È possibile ottenere il valore di una data passandolo a CDbl().

CDbl(Now())  ' 40877.8052662037 

Per ottenere la parte intera, utilizzare

Int(CDbl(Now())) ' 40877 

che restituirà un lungo Doppia senza decimali (vale a dire che cosa Floor() avrebbe fatto in altre lingue).

Utilizzare CLng() o Round() risulterebbe in un arrotondamento, che restituirà un "giorno nel futuro" quando chiamato dopo mezzogiorno, quindi non farlo.

Answer 2

Basta usare CLng(Date).

Si noti che è necessario utilizzare Long non Integer per questo come valore per la data corrente è> 32767

Answer 3

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

Answer 4

È possibile utilizzare il codice di esempio muggito per stringa di data come mdate and Now() come oggi, è anche possibile calcolare la deferenza tra i due data come invecchiamento

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: Macchine CDate per convertire la stringa di data a data valida

Sto usando questo in Office 2007 :)