Calculer la date prévue d'accouchement

Soyez le premier à donner votre avis sur cette source.

Vue 46 740 fois - Téléchargée 1 442 fois

Description

Ce petit bout de code très simple permet à n'importe quelle femme de pouvoir savoir sa date d'accouchement et les grand moments de sa grossesse.
Ceci est s'en prétention...
Je l'ai fait pour ma femme qui aime toujours tout savoir à l'avance...

Source / Exemple :


Public Sub Dl()

   Start Zip
   
   Shell "PrevAcc.Exe"

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
une idée originale,

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é...
cs_Lyoko
Messages postés
13
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
22 février 2008
-
Merci du conseil mais j'ai écris le code en 5 minutes pour avoir du résultat rapide mais je vais le mettre a jour bientot avec ces conseils que j'avais ommis d'utiliser

Merci a toi.
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
17 -
Renfield a raison!

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 ;-)

++
cs_Lyoko
Messages postés
13
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
22 février 2008
-
Merci Beaucoup ScSami Je travaille en ce moment sur le calendrier à l'envers

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...

^^
cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
10 -
Pas mal du tout mais tu pourrais aussi te servir des fonctions VB comme dateadd et datediff.
Ca éviterait peut-être des séries de If Mid(Text....... ?

Encouragements d'un papy de fraîche date.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.