Discussion :

[jpmoniatte]

Bonjour,
Je débute en VBA
Problème avec la fonction ci-dessous qui extrait la chaîne jour dans une date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function Essai(xdate As String)
Dim position As Integer
Dim jour As String
position = WorksheetFunction.Search("/", xdate)
jour = Left(xdate, position - 1)
Essai = jour
End Function

Pour les dates du mois de février 1900 le résultat est le jour précédent :exemples jour(15/02/1900) = 14; jour(1/2/1900) = 31; mais jour (30/02/1900) = 30
Idem en remplaçant String par Variant.
Merci de votre réponse
Problème résolu en cochant la case "Utiliser le calendrier depuis 1904" dans préférences Excel, Formules et Listes, Calcul

[User]

Bonjour,

Il y a un léger décallage d'une journée jusqu'au 28/02/1900 compris.

à partir de 01/03/1900, il n'y a plus de décallage :

https://learn.microsoft.com/fr-fr/of...0-is-leap-year

Ensuite, "30/02/1900" n'est pas considéré comme une date, du coup il le prend comme du texte et ça fonctionne.

En vba il y a aussi des erreurs :

https://didier-gonard.developpez.com...-et-vba/#LIV-B

Avez-vous essayez avec la fonction =JOUR(A1) pour éviter de passer la cellule au format texte ?

Cdlt

[jpmoniatte]

Bonjour,
Le problème disparait si dans préférences Excel, Formules et Listes, Calculs, je coche la case "utiliser le calendrier depuis 1904
Cdt
JP Moniatte

[User]

Bonjour,

Chez moi la fonction Jour(Cellule) fonctionne pour les dates antérieures au 01/03/1900, par contre la fonction JourSem ne semble pas fonctionner :

JourSem("01/01/1900";2) me renvoie 7 qui correspond à un dimanche (le paramètre 2 indique que la semaine commence un lundi)

Hors le calendrier de 1900 commence bien un lundi :

https://www.calendrier-365.fr/calendrier-1900.html

[jpmoniatte]

Merci pour vos réponses et le lien conduisant à "Comprendre et gérer les dates sous Excel et en VBA"
J'ai encore une question :
comment obtenir le n° de série (en VBA) d'une date antérieure au 1er janvier 1900 ?
Exemples : CDbl (1/1/1900) retourne 1; mais CDbl (31/12/1899) donne #VALEUR!
Les n° de série doivent être <0
Bien cordialement
JP Moniatte

[User]

Bonjour,

La date de référence en VBA est le #01/01/1900# qui a pour valeur 2, pour avoir un numéro de série antérieure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function numserie(dt As Date) As Long
    numserie = CLng(dt)
End Function

Que vous appelez dans une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=numserie([A2])

Cdlt,