VBA Date entier

est-il un moyen pour obtenir le sous-jacent entier pour Date fonction en VBA ? Je fais référence à l'entier stocké par Excel pour décrire les dates dans la mémoire en termes de nombre de jours (quand le temps est inclus, il peut être un flotteur alors je suppose). Je suis le seul intérêt de la partie entière. Est-il juste une autre fonction pour ça ?

Par exemple, pour aujourd'hui (), je voudrais être en mesure de revenir 40877..

Merci les gars 😉

OriginalL'auteur Jerome | 2011-11-30

  1. 27

    Date n'est pas un Entier en VB(A), c'est un Double.

    Vous pouvez obtenir une Date de valeur en la passant à CDbl().

    CDbl(Now())      ' 40877.8052662037

    Pour obtenir la partie entière, utilisez

    Int(CDbl(Now())) ' 40877

    qui permettrait le retour d'un LongDouble sans décimale (c'est à dire ce que Floor() le ferait dans d'autres langues).

    À l'aide de CLng() ou Round() aurait pour résultat arrondi, qui sera de retour un jour dans l'avenir" lorsqu'il est appelé à après 12:00 midi, afin de ne pas le faire.

    Int(CDbl(Maintenant())) ne retourne pas longtemps, elle renvoie un double. Le double de la valeur arrive juste à représenter un nombre entier, mais c'est le type de données est toujours double.
    sur mon système
    bien sûr, parce que VarType(Int(CDbl(Now()))) renvoie 5, qui est la valeur de vbDouble, mais est lui-même un Long. Essayez TypeName(Int(CDbl(Now()))).
    Si vous utilisez Date au lieu de Now tous les jours des problèmes d'aller plus loin - Date (la fonction n'est pas le type de données) renvoie le jour avec des pas de temps de la composante.
    ne pas oublier que l'OP a une question sur la fonction Date en premier lieu, non pas la fonction Maintenant.

    OriginalL'auteur Tomalak

  2. 10

    Suffit d'utiliser CLng(Date).

    Notez que vous devez utiliser Long pas Integer pour ce que la valeur de la date courante est > 32767

    En effet, je ne pense pas que de le Long/Integer question ! Merci !
    CLng arrondir les après-midi des valeurs jusqu'à la prochaine journée.
    J'ai utilisé Date pas Now. Date n'a pas le temps de composants, donc CLng est très bien et en sécurité.
    bien sûr. J'ai négligé. Je n'ai pas jeté le downvote, donc je ne peux pas le supprimer 🙁 j'ai ajouté un upvote, cependant 🙂
    pas de soucis, qui me fait net +8!

    OriginalL'auteur Jon Egerton

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

    OriginalL'auteur xQbert

  4. 1

    Vous pouvez utiliser soufflet exemple de code pour la chaîne de date comme mdate et Maintenant() comme aujourd'hui, vous pouvez également calculer la déférence entre les deux date comme le Vieillissement de la

    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: Utilisé CDate pour convertir la Chaîne de Date à Date Valide

    Je suis en utilisant ce dans Office 2007 🙂

    OriginalL'auteur SftAps