begin process at 2012 02 05 02:57:52
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date/Heure

 > CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT)

CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT)


 Information sur la source

Note :
Aucune note
Catégorie :Date/Heure Classé sous :age, calcul, date Niveau :Initié Date de création :12/10/2006 Date de mise à jour :28/08/2007 12:08:23 Vu :25 064
Auteur : bluedemon

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Calcul de l'age d'une personne à partir de sa date de naissance donnée en paramettre en ASP VBScript

Source

  • <%
  • function age(dat)
  • actu = left(now(),10)
  • nais = dat
  • if((Month(actu))>=Month(nais)) then
  • if((Month(actu))=Month(nais)) then
  • if(Day(actu)>=Day(nais)) then
  • ans=Year(actu)-Year(nais)
  • else
  • ans=Year(actu)-Year(nais)-1
  • end if
  • else
  • ans=Year(actu)-Year(nais)
  • end if
  • else
  • ans=Year(actu)-Year(nais)-1
  • end if
  • age=ans
  • End Function
  • %>
<%
function age(dat)
	actu = left(now(),10)
	nais = dat
	if((Month(actu))>=Month(nais)) then
		if((Month(actu))=Month(nais)) then
			if(Day(actu)>=Day(nais)) then
				ans=Year(actu)-Year(nais)
			else
				ans=Year(actu)-Year(nais)-1
			end if
		else
			ans=Year(actu)-Year(nais)
		end if
	else
		ans=Year(actu)-Year(nais)-1

	end if
	age=ans
End Function
%>

 Conclusion

Cette fonction permet de calculer l'age d'une personne en mettant en paramettre sa date de naissance.
Pas bien compliqué mais l'age est tres souvent demandé d'etre calculé.


 Historique

28 août 2007 12:07:30 :
La fonction a été corrigé. Je l'avais déjà corrigé pour mon site mais oublié de la faire ici.
28 août 2007 12:08:23 :
La fonction a été corrigé. Je l'avais déjà corrigé pour mon site mais oublié de la faire ici.

 Sources de la même categorie

CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus
CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT par revolt
Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
SAISIR DATE FR DANS MYSQL par jeckel
DATE AVEC LE DECALAGE HORAIRE, par tidave
Toutes les sources de la catégorie Date/Heure

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) GRIDVIEW DATE PICKER JAVASCRIPT par fredzool
CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus
Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
SAISIR DATE FR DANS MYSQL par jeckel
DATE AVEC LE DECALAGE HORAIRE, par tidave

Commentaires et avis

Commentaire de tikrimi le 12/10/2006 22:38:25

Hello,

J'ai pas regardé en détail, mais l'ASP propose des fonctions sur les dates, et autant les utiliser.
En utilisant la fonction DateDiff, ta fonction peut devenir la suivante :

function age(dat)

dim vAge
dim vNow
dim vDateNaissance
vDateNaissance = cdate(dat)
vNow = Date
vAge = clng(datediff("yyyy",cdate(dat),vNow))
'on enlève un an si la bougie n'a pas été soufflée dans l'année en cours
if DateDiff("d",DateSerial(year(vNow),Month(vDateNaissance),Day(vDateNaissance)),vNow) > 0 then
vAge = vAge - 1
end if
age = vAge

end function

Bon code,

Christophe

Commentaire de Nurgle le 12/10/2006 22:49:37 administrateur CS

Salut,

Avec pourquoi pas aussi au tout début de la fonction un :
If Not IsDate(dat) Then Return 0
pour éviter les problèmes... :-)

Jette un coup d'oeil aux fonctions sur les Dates, comme dit Tikrimi, autant les utiliser :
http://www.w3schools.com/vbscript/vbscript_ref_functions.asp#date

A++,
Nurgle

Commentaire de Renfield le 16/10/2006 06:44:35 administrateur CS

DateDiff("yyyy"...
te donnera, Tikrimi un résultat erroné

le meilleu moyen est de faire :

datediff("d",#12/31/1983#,now)\365.25

Commentaire de iceman64b le 23/08/2007 17:53:38

La fonction originale ne fonctionne pas correctement, puisqu'à l'approche de l'anniversaire, la personne a déjà un an de plus. Pour la version écourtée (avec datediff), c'est l'inverse: une fois la date d'anniversaire passée, la personne n'a toujours pas son année supplémentaire.

Mon but est simplement d'avoir dans une BD, les noms, prénoms et date de naissance de personne que je connais et que via la page asp, je puisses savoir leur âge actuelle. Sauf que dans le cas de la fonction avec le datediff (malgré la correction de Renfield, ma date de naissance est en juin et nous sommes en août et mon âge est incorrect (manque un an). Si je prends le source proposé par Bluedemon, les personnes que je connais qui sont nées en septembre, ont déjà un an de plus!.

Y-a-t-il moyen d'avoir un calcul de l'âge qui fonctionne ????

Commentaire de Renfield le 23/08/2007 18:40:44 administrateur CS

ne fonctionne pas ?

plus qu'étrange ^^

quelle est ta date de naissance ? et l'age que ca te retourne

Commentaire de bluedemon le 28/08/2007 12:08:50

La fonction a été corrigée :-)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

calcul de date systeme d'une application en vb6 connecté au access [ par rmouelhi1 ] bonjour j'ai une application en vb connecté au base de donnée en access; cette application consiste à chercher le client s'il trouver dans la base de comment calculer l'age à partir d'une date de système et la date de naissance [ par caspertinie ] bonjour ; comment calculer l'age d'un personne dans un zone de textBox dans la page aspx; à partir d'un zone de textbox qui contien une calendrier qui probleme dans ma fonction [ par najia87 ] salam qlq px me dire pq cette fonction ne fonctionne po? public static function listecaisse($dateentr,$datesort) { if(!empty($idcaisse)): Question sur java [ par kratos60 ] Bonjour a tous, Je me permet de poster car mon probleme dur depuis trop longtemps(3h) et quoi que je face je ne trouve pas de solution... Alors voil Comparer date pour une reservation [ par lamia88 ] Bonjour, j'ai 4 table pour un hôtel,table chambres,réservations(contient date de debut,et date_fin,idchambre),utilisateur,catgchambre. je cherche une Problème Date sql server, ASP.NET [ par MzSrH ] Bonjour a tous! Encore un autre problème [^^langue3] J'ai un formulaire sous ASP.NET avec un champ pour la Date. L'orsque je récupère la date et que j MICROCONTROLEUR 16F877A [ par azzoumm ] s'ils vous plait qui peux m'aider pour comprendre ce programme merci d'avance :)petite remarque j'ai pas étudié sur le microcontroleur et mon projet f date end time format [ par artagnan ] salut a tous j ai besoin d afficher une date et heure dans se format 05/19/2011 11:59 AM dans system Windows je lai mit sous ce format dans accès récupérer la date du serveur [ par artagnan ] Re Bonjour peut ton récupérer la date du serveur ou autre que celle du poste client si mettons que le poste client soit a la mauvaise date pour des verifier date reele [ par artagnan ] SAlut mais est ce possible de récupérer l heure genre GMT , l heure internet en asp je fait un site achat de coupon en ligne et les coupons sont aff


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,981 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)