bonjour,
je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec
possibilité de naviguer dans les années.
je cherche aussi a donner la possibilité à l'utilisateur de parametrer les
jours feriés
exeiste il un composant Vb??
merci
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
SAISAS
Le composant s'appelle DTPicker.
Bonne réception.
"infomaroc" a écrit :
bonjour, je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec possibilité de naviguer dans les années. je cherche aussi a donner la possibilité à l'utilisateur de parametrer les jours feriés exeiste il un composant Vb?? merci
Le composant s'appelle DTPicker.
Bonne réception.
"infomaroc" a écrit :
bonjour,
je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec
possibilité de naviguer dans les années.
je cherche aussi a donner la possibilité à l'utilisateur de parametrer les
jours feriés
exeiste il un composant Vb??
merci
bonjour, je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec possibilité de naviguer dans les années. je cherche aussi a donner la possibilité à l'utilisateur de parametrer les jours feriés exeiste il un composant Vb?? merci
X
Bonjour,
Dans les objets complémentaires : "MsCalendar", par exemple, mais il n'indique pas les jours fériés...
Je ne sais pas si VB calcule les jours fériés??? Sinon on peut les calculer manuellement (les jours qui changent), ceci par des calculs astronomiques de position de la Lune...
-- Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm Principe d'utilisation des news Groups http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ------------------------------------------------------------------------------------ "infomaroc" a écrit dans le message de news:
bonjour, je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec possibilité de naviguer dans les années. je cherche aussi a donner la possibilité à l'utilisateur de parametrer les jours feriés exeiste il un composant Vb?? merci
Bonjour,
Dans les objets complémentaires : "MsCalendar", par exemple, mais il
n'indique pas les jours fériés...
Je ne sais pas si VB calcule les jours fériés???
Sinon on peut les calculer manuellement (les jours qui changent), ceci par
des calculs astronomiques de position de la Lune...
--
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"infomaroc" <r.khadija@gmail.com> a écrit dans le message de news:
CB506981-07EA-4746-B373-63C586C2DB11@microsoft.com...
bonjour,
je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec
possibilité de naviguer dans les années.
je cherche aussi a donner la possibilité à l'utilisateur de parametrer les
jours feriés
exeiste il un composant Vb??
merci
Dans les objets complémentaires : "MsCalendar", par exemple, mais il n'indique pas les jours fériés...
Je ne sais pas si VB calcule les jours fériés??? Sinon on peut les calculer manuellement (les jours qui changent), ceci par des calculs astronomiques de position de la Lune...
-- Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm Principe d'utilisation des news Groups http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ------------------------------------------------------------------------------------ "infomaroc" a écrit dans le message de news:
bonjour, je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec possibilité de naviguer dans les années. je cherche aussi a donner la possibilité à l'utilisateur de parametrer les jours feriés exeiste il un composant Vb?? merci
Jacques93
Bonjour infomaroc, infomaroc a écrit :
bonjour, je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec possibilité de naviguer dans les années. je cherche aussi a donner la possibilité à l'utilisateur de parametrer les jours feriés exeiste il un composant Vb?? merci
Pour les jour fériés, je ne connais pas de composant VB (ceux ci variant d'un pays à l'autre). A titre d'information, voici une méthode de calcul des jours fériés mobiles (Pâques, Ascension, Pentecôte, plus vraiment fériée :-( ) . Ils ne sont pas exactement liés à une position astronomique, mais à ce que l'on appelle la Lune Pascale :
Private Sub cmdEaster_Click() Dim y As Integer ' Annee Dim golden As Integer ' Nombre d'or Dim solar As Integer ' Correction solaire Dim lunar As Integer ' Correction lunaire Dim pfm As Integer ' Pleine lune de paques Dim dom As Integer ' Nombre dominical Dim easter As Integer ' jour de paques Dim dtEaster As Date Dim tmp As Integer
Dim Temp As String
y = Val(Me.txtYear.Text)
' Nombre d'or golden = (y Mod 19) + 1 If y <= 1752 Then ' Calendrier Julien ' Nombre dominical dom = (y + (y 4) + 5) Mod 7 If dom < 0 Then dom = dom + 7 ' Date non corrigee de la pleine lune de paques pfm = (3 - (11 * golden) - 7) Mod 30 If pfm < 0 Then pfm = pfm + 30 Else ' Calendrier Gregorien ' Nombre dominical dom = (y + (y 4) - (y 100) + (y 400)) Mod 7 If dom < 0 Then dom = dom + 7 ' Correction solaire et lunaire solar = (y - 1600) 100 - (y - 1600) 400 lunar = (((y - 1400) 100) * 8) 25 ' Date non corrigee de la pleine lune de paques pfm = (3 - (11 * golden) + solar - lunar) Mod 30 If pfm < 0 Then pfm = pfm + 30 End If ' Date corrige de la pleine lune de paques : ' jours apres le 21 mars (equinoxe de printemps) If (pfm = 29) Or (pfm = 28 And golden > 11) Then pfm = pfm - 1 End If
tmp = (4 - pfm - dom) Mod 7 If tmp < 0 Then tmp = tmp + 7
' Paques en nombre de jour apres le 21 mars easter = pfm + tmp + 1
If easter < 11 Then dtEaster = (easter + 21) & "/3/" & y Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy") Else dtEaster = (easter - 10) & "/4/" & y Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy") End If Temp = Temp & vbCrLf & "Ascension : " & _ Format(DateAdd("d", 39, dtEaster), "dddd d MMMM yyyy") Temp = Temp & vbCrLf & "Pentecôte : " & _ Format(DateAdd("d", 49, dtEaster), "dddd d MMMM yyyy") MsgBox Temp End Sub
' ------------------------------------------------------------- Il existe d'autre méthodes :
bonjour,
je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec
possibilité de naviguer dans les années.
je cherche aussi a donner la possibilité à l'utilisateur de parametrer les
jours feriés
exeiste il un composant Vb??
merci
Pour les jour fériés, je ne connais pas de composant VB (ceux ci variant
d'un pays à l'autre). A titre d'information, voici une méthode de calcul
des jours fériés mobiles (Pâques, Ascension, Pentecôte, plus vraiment
fériée :-( ) . Ils ne sont pas exactement liés à une position
astronomique, mais à ce que l'on appelle la Lune Pascale :
Private Sub cmdEaster_Click()
Dim y As Integer ' Annee
Dim golden As Integer ' Nombre d'or
Dim solar As Integer ' Correction solaire
Dim lunar As Integer ' Correction lunaire
Dim pfm As Integer ' Pleine lune de paques
Dim dom As Integer ' Nombre dominical
Dim easter As Integer ' jour de paques
Dim dtEaster As Date
Dim tmp As Integer
Dim Temp As String
y = Val(Me.txtYear.Text)
' Nombre d'or
golden = (y Mod 19) + 1
If y <= 1752 Then ' Calendrier Julien
' Nombre dominical
dom = (y + (y 4) + 5) Mod 7
If dom < 0 Then dom = dom + 7
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) - 7) Mod 30
If pfm < 0 Then pfm = pfm + 30
Else ' Calendrier Gregorien
' Nombre dominical
dom = (y + (y 4) - (y 100) + (y 400)) Mod 7
If dom < 0 Then dom = dom + 7
' Correction solaire et lunaire
solar = (y - 1600) 100 - (y - 1600) 400
lunar = (((y - 1400) 100) * 8) 25
' Date non corrigee de la pleine lune de paques
pfm = (3 - (11 * golden) + solar - lunar) Mod 30
If pfm < 0 Then pfm = pfm + 30
End If
' Date corrige de la pleine lune de paques :
' jours apres le 21 mars (equinoxe de printemps)
If (pfm = 29) Or (pfm = 28 And golden > 11) Then
pfm = pfm - 1
End If
tmp = (4 - pfm - dom) Mod 7
If tmp < 0 Then tmp = tmp + 7
' Paques en nombre de jour apres le 21 mars
easter = pfm + tmp + 1
If easter < 11 Then
dtEaster = (easter + 21) & "/3/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
Else
dtEaster = (easter - 10) & "/4/" & y
Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy")
End If
Temp = Temp & vbCrLf & "Ascension : " & _
Format(DateAdd("d", 39, dtEaster), "dddd d MMMM yyyy")
Temp = Temp & vbCrLf & "Pentecôte : " & _
Format(DateAdd("d", 49, dtEaster), "dddd d MMMM yyyy")
MsgBox Temp
End Sub
' -------------------------------------------------------------
Il existe d'autre méthodes :
bonjour, je veux creer un calendrier avec Vb qui me donne tous les 12 mois, avec possibilité de naviguer dans les années. je cherche aussi a donner la possibilité à l'utilisateur de parametrer les jours feriés exeiste il un composant Vb?? merci
Pour les jour fériés, je ne connais pas de composant VB (ceux ci variant d'un pays à l'autre). A titre d'information, voici une méthode de calcul des jours fériés mobiles (Pâques, Ascension, Pentecôte, plus vraiment fériée :-( ) . Ils ne sont pas exactement liés à une position astronomique, mais à ce que l'on appelle la Lune Pascale :
Private Sub cmdEaster_Click() Dim y As Integer ' Annee Dim golden As Integer ' Nombre d'or Dim solar As Integer ' Correction solaire Dim lunar As Integer ' Correction lunaire Dim pfm As Integer ' Pleine lune de paques Dim dom As Integer ' Nombre dominical Dim easter As Integer ' jour de paques Dim dtEaster As Date Dim tmp As Integer
Dim Temp As String
y = Val(Me.txtYear.Text)
' Nombre d'or golden = (y Mod 19) + 1 If y <= 1752 Then ' Calendrier Julien ' Nombre dominical dom = (y + (y 4) + 5) Mod 7 If dom < 0 Then dom = dom + 7 ' Date non corrigee de la pleine lune de paques pfm = (3 - (11 * golden) - 7) Mod 30 If pfm < 0 Then pfm = pfm + 30 Else ' Calendrier Gregorien ' Nombre dominical dom = (y + (y 4) - (y 100) + (y 400)) Mod 7 If dom < 0 Then dom = dom + 7 ' Correction solaire et lunaire solar = (y - 1600) 100 - (y - 1600) 400 lunar = (((y - 1400) 100) * 8) 25 ' Date non corrigee de la pleine lune de paques pfm = (3 - (11 * golden) + solar - lunar) Mod 30 If pfm < 0 Then pfm = pfm + 30 End If ' Date corrige de la pleine lune de paques : ' jours apres le 21 mars (equinoxe de printemps) If (pfm = 29) Or (pfm = 28 And golden > 11) Then pfm = pfm - 1 End If
tmp = (4 - pfm - dom) Mod 7 If tmp < 0 Then tmp = tmp + 7
' Paques en nombre de jour apres le 21 mars easter = pfm + tmp + 1
If easter < 11 Then dtEaster = (easter + 21) & "/3/" & y Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy") Else dtEaster = (easter - 10) & "/4/" & y Temp = "Paques : " & Format(dtEaster, "dddd d MMMM yyyy") End If Temp = Temp & vbCrLf & "Ascension : " & _ Format(DateAdd("d", 39, dtEaster), "dddd d MMMM yyyy") Temp = Temp & vbCrLf & "Pentecôte : " & _ Format(DateAdd("d", 49, dtEaster), "dddd d MMMM yyyy") MsgBox Temp End Sub
' ------------------------------------------------------------- Il existe d'autre méthodes :
