CALCULER LA DATE PRÉVUE D'ACCOUCHEMENT
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
24 janv. 2006 à 12:52
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 27 févr. 2007 à 21:30
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 27 févr. 2007 à 21:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35721-calculer-la-date-prevue-d-accouchement
https://codes-sources.commentcamarche.net/source/35721-calculer-la-date-prevue-d-accouchement
27 févr. 2007 à 21:30
euh... ben en fait, les petites abeilles...
27 févr. 2007 à 17:28
16 juin 2006 à 14:47
16 juin 2006 à 13:35
Ce serait peut être bien d'avoir un traitement automatisé contextuel:
Au lancement du VB on pourrait voir un texte:
"Nous sommes le 02 mars:
- Le foetus est âgé de 51 jours
- Les principaux organes sont en cours de formation (fin le 07 mars)
- Le risques de fausses couches deumeure important (jusqu'au 21 mars)
Les principes à respecter à ce stade sont:
- Eviter de danser faire la java jusqu'à point d'heure
- Ne pas restée pliée en deux trop longtemps quand tu rigoles
...
"
ça pourrait être sympa non ?
25 janv. 2006 à 16:58
25 janv. 2006 à 16:50
25 janv. 2006 à 10:11
Vous faites ca une fois par mois ?
Désolé hein, mais je me pose réellement la question...
24 janv. 2006 à 23:37
Ca éviterait peut-être des séries de If Mid(Text....... ?
Encouragements d'un papy de fraîche date.
24 janv. 2006 à 19:00
c a d
jour voulu de l'accouchement qui donnera la date probable du jour du rapport reussi..
Ce qui est du reste il fallait y penser c vraiment sympa de refiler des idées...
^^
24 janv. 2006 à 17:16
Bon, alors moi, là, je soutiens ta démarche à 300% !!!
Justement, hier même j'en parlais avec sur une source posté par Jack (le plus beau bébé d'ici... enfin, quand il ne se cache pas sous les traits d'un vicieux pèrs fouettard) consernant un clandrier sous Excel... Je trouvais qu'il manquait un paquet d'outils simples pour les femmes comme, entre autre, le calendar des menstrues [souple il va sans dire!] et autre prises de piluliés informatique (voir aussi électronique ça manque cruellement!!!).
En revanche, la seule petite chose que l'on peut regretter c'est que le calcul ne puisse pas être fait en sens inverse! Tu sais, pour ceux qui veulent absolument un bébé du signe zodiacale du Chameau ascendant pied-de-poule ;-)
Mais l'idée est vraiment super et à améliorer encore beaucoup. Justement, on peut s'imaginer intégrer un peu d'astrologie (signes occidentaux et chinois + ascendents, ... enfin, faut s'y connaître un chouïa... pas comme moi!), les cycles de la lune et un calendrier avec les dates, les noms des fêtes et des saints, ..., ..., ...
Pi, comme tu le dis si bien, quelques explications préventives sur, entre autre, les risques, avec également quelques conseils, ... Bref, avec peu d'efforts on pourrait en faire un véritable Freeware utile à toutes nos dames! On pourrait également rajouter des images médicales, ...
D'ailleurs, il serait bon d'intégré à cet effet une aide faite en CHM !
Sinon... juste une question... à 23 ans... tu va bientôt être père ou alors tu es un obstétricien de génie ??? Enfin, ça ne me regarde pas mais tu sais à quel point la curiosité peut-être difficile à contenir ;-)
++
24 janv. 2006 à 13:01
Merci a toi.
24 janv. 2006 à 12:52
tu pourrais supprimer Command2 et Command3 et faire
Private Sub MonthView1_DateClick(ByVal DateDblClicked As Date)
Text1.Text = MonthView1.Value
MonthView1.Visible = False
Text2 = MonthView1.Value + 14
Text3 = MonthView1.Value + 35
Text4 = MonthView1.Value + 70
Text5 = Text3
Text6 = Text4
Text7 = MonthView1.Value + 84
Text8 = MonthView1.Value + 161
Text9 = MonthView1.Value + 189
Text10 = MonthView1.Value + 280
End Sub
et le calcul suivrait automatiquement la selection d'un date.
le formatage
If Mid(Text9, 3, 4) "/01/" Then Text9 Mid(Text9, 1, 2) & M01 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/02/" Then Text9 Mid(Text9, 1, 2) & M02 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/03/" Then Text9 Mid(Text9, 1, 2) & M03 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/04/" Then Text9 Mid(Text9, 1, 2) & M04 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/05/" Then Text9 Mid(Text9, 1, 2) & M05 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/06/" Then Text9 Mid(Text9, 1, 2) & M06 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/07/" Then Text9 Mid(Text9, 1, 2) & M07 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/08/" Then Text9 Mid(Text9, 1, 2) & M08 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/09/" Then Text9 Mid(Text9, 1, 2) & M09 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/10/" Then Text9 Mid(Text9, 1, 2) & M10 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/11/" Then Text9 Mid(Text9, 1, 2) & M11 & Mid(Text9, 7, 4)
If Mid(Text9, 3, 4) "/12/" Then Text9 Mid(Text9, 1, 2) & M12 & Mid(Text9, 7, 4)
peut s'ecrire :
Text9.Text = Format$(Text9.Text, "dd MMMM yyyy")
je ne pourrais que te conseiller d'utiliser des groupes de contrôles pour les textboxes
- leur donner le même nom,
- renseigner leur propriété Index.
ton code serait bien allégé...