Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guy DETIENNE
Salut ;O)
Je te propose ceci:
Private Function NbrDayInMonth(pMonth As Byte, pYear As Long) As Byte
If pMonth = 12 Then NbrDayInMonth = 31 Else NbrDayInMonth = Left$(CDate("01/" & Format$(pMonth + 1, "00") & "/" & pYear) - 1, 2) End If
End Function
Utilisation:
MsgBox NbrDayInMonth(2, 2003) '1er paramètre est le mois, 2e est l'année
Le résultat obtenu est 28 jours pour le 2e mois de l'année 2003
Tchao
Guy
-- __________________________________ Tchao.net: L'informatique à votre dimension www.tchao.net Pour toute réponse, retirer le .nospam de l'adresse mail ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Olga PETROVA" a écrit dans le message de news:0db601c3aeac$90be89c0$ Salut, Est ce qu'il y a une foction Date qui définit par exemple le nombre de jours d'un mois ? Exemple: Fonction(Janvier-2003)1
Un vrai casse tete pour moi...
ce n'est pas DAY, Day() renvois le nbre de jours d'une date précise mais pas le mois de la date.
si qqu'un a une solution je suis preneuse....
Merci d'avance
OLGA
Salut ;O)
Je te propose ceci:
Private Function NbrDayInMonth(pMonth As Byte, pYear As Long) As Byte
If pMonth = 12 Then
NbrDayInMonth = 31
Else
NbrDayInMonth = Left$(CDate("01/" & Format$(pMonth + 1, "00") & "/"
& pYear) - 1, 2)
End If
End Function
Utilisation:
MsgBox NbrDayInMonth(2, 2003) '1er paramètre est le mois, 2e est l'année
Le résultat obtenu est 28 jours pour le 2e mois de l'année 2003
Tchao
Guy
--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Olga PETROVA" <olgapetrova@hotmail.com> a écrit dans le message de
news:0db601c3aeac$90be89c0$a401280a@phx.gbl...
Salut,
Est ce qu'il y a une foction Date qui définit par exemple
le nombre de jours d'un mois ?
Exemple:
Fonction(Janvier-2003)1
Un vrai casse tete pour moi...
ce n'est pas DAY, Day() renvois le nbre de jours d'une
date précise mais pas le mois de la date.
Private Function NbrDayInMonth(pMonth As Byte, pYear As Long) As Byte
If pMonth = 12 Then NbrDayInMonth = 31 Else NbrDayInMonth = Left$(CDate("01/" & Format$(pMonth + 1, "00") & "/" & pYear) - 1, 2) End If
End Function
Utilisation:
MsgBox NbrDayInMonth(2, 2003) '1er paramètre est le mois, 2e est l'année
Le résultat obtenu est 28 jours pour le 2e mois de l'année 2003
Tchao
Guy
-- __________________________________ Tchao.net: L'informatique à votre dimension www.tchao.net Pour toute réponse, retirer le .nospam de l'adresse mail ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Olga PETROVA" a écrit dans le message de news:0db601c3aeac$90be89c0$ Salut, Est ce qu'il y a une foction Date qui définit par exemple le nombre de jours d'un mois ? Exemple: Fonction(Janvier-2003)1
Un vrai casse tete pour moi...
ce n'est pas DAY, Day() renvois le nbre de jours d'une date précise mais pas le mois de la date.
si qqu'un a une solution je suis preneuse....
Merci d'avance
OLGA
Alain Cotterot
Salut
Datepart("d",dateserial(2004,3,0)) renvoie le nombre de jour du mois précédant celui indiqué dans le second argument de la fonction DateSerial (ici 3)
Alain Cotterot "Olga PETROVA" a écrit dans le message de news: 0db601c3aeac$90be89c0$ Salut, Est ce qu'il y a une foction Date qui définit par exemple le nombre de jours d'un mois ? Exemple: Fonction(Janvier-2003)1
Un vrai casse tete pour moi...
ce n'est pas DAY, Day() renvois le nbre de jours d'une date précise mais pas le mois de la date.
si qqu'un a une solution je suis preneuse....
Merci d'avance
OLGA
Salut
Datepart("d",dateserial(2004,3,0)) renvoie le nombre de jour du mois
précédant celui indiqué dans le second argument de la fonction DateSerial
(ici 3)
Alain Cotterot
"Olga PETROVA" <olgapetrova@hotmail.com> a écrit dans le message de news:
0db601c3aeac$90be89c0$a401280a@phx.gbl...
Salut,
Est ce qu'il y a une foction Date qui définit par exemple
le nombre de jours d'un mois ?
Exemple:
Fonction(Janvier-2003)1
Un vrai casse tete pour moi...
ce n'est pas DAY, Day() renvois le nbre de jours d'une
date précise mais pas le mois de la date.
Datepart("d",dateserial(2004,3,0)) renvoie le nombre de jour du mois précédant celui indiqué dans le second argument de la fonction DateSerial (ici 3)
Alain Cotterot "Olga PETROVA" a écrit dans le message de news: 0db601c3aeac$90be89c0$ Salut, Est ce qu'il y a une foction Date qui définit par exemple le nombre de jours d'un mois ? Exemple: Fonction(Janvier-2003)1
Un vrai casse tete pour moi...
ce n'est pas DAY, Day() renvois le nbre de jours d'une date précise mais pas le mois de la date.
