Message en plusieurs parties au format MIME
--=_alternative 00327029C1256E3E_=
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Bonjour,
Y-a-t-il un moyen de conna=EEtre le dernier jour d'un mois et d'une ann=E9e=
=20
donn=E9e.
Exemple : F=E9vrier 2004 =3D> 29
<br><font size=3D1 face=3D"sans-serif">Bonjour,</font>
<br>
<br><font size=3D1 face=3D"sans-serif">Y-a-t-il un moyen de conna=EEtre le =
dernier jour d'un mois et d'une ann=E9e donn=E9e.</font>
<br><font size=3D1 face=3D"sans-serif">Exemple : F=E9vrier 2004 =3D> 29<=
/font>
<br>
<br><font size=3D1 face=3D"sans-serif">Merci</font>
--=_alternative 00327029C1256E3E_=--
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
Pmp
Ce qui donne en tout fait :
Public Function NombreDeJours(TestDate as date) as integer Select Case Month(TestDate) Case Is = 1, 3, 5, 7, 9, 11 Nbj = 31 Case Is = 2 If ((Year(TestDate) Mod 4 = 0) And (Year(TestDate) Mod 100 = 0)) Or (Year(TestDate) Mod 400 = 0) Then Nbj = 29 Else Nbj = 28 End If Case Else Nbj = 30 End Select NombreDeJours=Nbj End Function
-- --------------------------------- Pmp
Enlevez ANTIPUB de l'adresse en cas de Reply-to (Saleté de SPAM !!!) --------------------------------- "le_troll" a écrit dans le message de news: # Bonjour,
Ben c'est toujours les mêmes à 2 exceptions près: l'année est ou n'est pas bissextile si B... février) année = 366 si <> février = 28 année = 365
Pour déterminer si l'année est bissextile: si <> séculaire = A / 4, reste 0 si séculaire (A / 4, reste 0) + (A / 400, reste 0) Les séculaires bissextiles peuvent se rentrer en dur (400, 800, 1200, 1600, 2000, 2400)... Est-ce là ta question ? -- Avec une hache, celui qui tient le manche a toujours raison.
a écrit dans le message de news: c0va58$llc$
Bonjour,
Y-a-t-il un moyen de connaître le dernier jour d'un mois et d'une année donnée. Exemple : Février 2004 => 29
Merci
Ce qui donne en tout fait :
Public Function NombreDeJours(TestDate as date) as integer
Select Case Month(TestDate)
Case Is = 1, 3, 5, 7, 9, 11
Nbj = 31
Case Is = 2
If ((Year(TestDate) Mod 4 = 0) And (Year(TestDate) Mod 100 = 0)) Or
(Year(TestDate) Mod 400 = 0) Then
Nbj = 29
Else
Nbj = 28
End If
Case Else
Nbj = 30
End Select
NombreDeJours=Nbj
End Function
--
---------------------------------
Pmp
pmnews@advalvas.be
Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"le_troll" <le_trol@paris.fr> a écrit dans le message de news:
#FZYWDg9DHA.440@TK2MSFTNGP10.phx.gbl...
Bonjour,
Ben c'est toujours les mêmes à 2 exceptions près:
l'année est ou n'est pas bissextile
si B...
février)
année = 366
si <>
février = 28
année = 365
Pour déterminer si l'année est bissextile:
si <> séculaire = A / 4, reste 0
si séculaire (A / 4, reste 0) + (A / 400, reste 0)
Les séculaires bissextiles peuvent se rentrer en dur (400, 800, 1200, 1600,
2000, 2400)...
Est-ce là ta question ?
--
Avec une hache, celui qui tient le manche a toujours raison.
ng75@noos.fr
<jean-paul.tauziede@parthena.com> a écrit dans le message de news:
c0va58$llc$1@s1.read.news.oleane.net...
Bonjour,
Y-a-t-il un moyen de connaître le dernier jour d'un mois et d'une année
donnée.
Exemple : Février 2004 => 29
Public Function NombreDeJours(TestDate as date) as integer Select Case Month(TestDate) Case Is = 1, 3, 5, 7, 9, 11 Nbj = 31 Case Is = 2 If ((Year(TestDate) Mod 4 = 0) And (Year(TestDate) Mod 100 = 0)) Or (Year(TestDate) Mod 400 = 0) Then Nbj = 29 Else Nbj = 28 End If Case Else Nbj = 30 End Select NombreDeJours=Nbj End Function
-- --------------------------------- Pmp
Enlevez ANTIPUB de l'adresse en cas de Reply-to (Saleté de SPAM !!!) --------------------------------- "le_troll" a écrit dans le message de news: # Bonjour,
Ben c'est toujours les mêmes à 2 exceptions près: l'année est ou n'est pas bissextile si B... février) année = 366 si <> février = 28 année = 365
Pour déterminer si l'année est bissextile: si <> séculaire = A / 4, reste 0 si séculaire (A / 4, reste 0) + (A / 400, reste 0) Les séculaires bissextiles peuvent se rentrer en dur (400, 800, 1200, 1600, 2000, 2400)... Est-ce là ta question ? -- Avec une hache, celui qui tient le manche a toujours raison.
a écrit dans le message de news: c0va58$llc$
Bonjour,
Y-a-t-il un moyen de connaître le dernier jour d'un mois et d'une année donnée. Exemple : Février 2004 => 29
le problème de "01/" & Month(myDate) & "/" & Year(myDate) est qu'il dépend du format de date local. Par contre, on peut utiliser sur toute plateforme DateSerial. Celà donnerait: DateAdd("d", -1, DateAdd("m", 1,DateSerial(Year(myDate), Month(myDate), 1)))
le problème de "01/" & Month(myDate) & "/" & Year(myDate)
est qu'il dépend du format de date local.
Par contre, on peut utiliser sur toute plateforme DateSerial.
Celà donnerait:
DateAdd("d", -1, DateAdd("m", 1,DateSerial(Year(myDate), Month(myDate), 1)))
le problème de "01/" & Month(myDate) & "/" & Year(myDate) est qu'il dépend du format de date local. Par contre, on peut utiliser sur toute plateforme DateSerial. Celà donnerait: DateAdd("d", -1, DateAdd("m", 1,DateSerial(Year(myDate), Month(myDate), 1)))
le problème de "01/" & Month(myDate) & "/" & Year(myDate) est qu'il dépend du format de date local. Par contre, on peut utiliser sur toute plateforme DateSerial. Celà donnerait: DateAdd("d", -1, DateAdd("m", 1,DateSerial(Year(myDate), Month(myDate),
le problème de "01/" & Month(myDate) & "/" & Year(myDate)
est qu'il dépend du format de date local.
Par contre, on peut utiliser sur toute plateforme DateSerial.
Celà donnerait:
DateAdd("d", -1, DateAdd("m", 1,DateSerial(Year(myDate), Month(myDate),
"Christophe QUEVAL" <queval.chr.no.spam@wanadoo.fr.no.spam> a écrit
dans le message de news:OJfZqlh9DHA.3428@tk2msftngp13.phx.gbl
> DateAdd("d", -1, DateAdd("m", 1, "01/" & Month(myDate) & "/" &
> Year(myDate)))
le problème de "01/" & Month(myDate) & "/" & Year(myDate) est qu'il dépend du format de date local. Par contre, on peut utiliser sur toute plateforme DateSerial. Celà donnerait: DateAdd("d", -1, DateAdd("m", 1,DateSerial(Year(myDate), Month(myDate),
