begin process at 2010 03 21 03:54:45
  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 :20 121
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 Recuperer date d'un CalendarExtender [ par SaiYan5102 ] Bonjour, J'ai un formulaire avec une TextBox associée à un CalendarExtender. Le texte de ma TextBox par défaut est "Cliquez ici". L'utilisateur cliqu Aucun résultat lors de l'exécution d'une requête sous ACCESS 2007 si aucune réponse aux critères du champ DATE [ par Schnee067 ] Bonjour tout le monde. Serait-il possible que quelqu'un puisse me renseigner de mon petit problème. Cela fait environ 20 heures de suite que je cherc Formulaire de calcul automatique [ par LisbethTheWasp ] Bonjour à tous, Je débute totalement en JavaScript et un client m'a demandé de créer un formulaire de calcul automatique pour l'un de mes sites. Le c Créer une liste déroulante date dans cellule words [ par agosta32 ] Bonjour à toutes et tous, Je souhaite mettre dans une cellule words qui se trouve dans un tableau, une cellule qui me permet d'avoir un calendrier pou [A SUPPRIMER]PHP - requête date [ par massbbc ] Je suis debutant en php et j'ai un soucis pour faire une requête sur une date. En faite dans ma base jai un champ date_emission qui possède des valeur reque te avec boucle [ par kaoutarben ] j'ai fais une requete qui retourne 28 lignes par rapport à une date et un spectre maintenant je veux faire la meme chose mais pour une plage de temps Mise à jour régulière de la page [ par aamsa ] Bonjour a tous, j'ai codée une page php qui m'affiche les informations d'une base de données(Mysql),le code est le suivant: <? probleme de Date [ par josef1705 ] salut, j'ai un problem de date stocke dans la base des donnees mysql lorsque j'essaye de passer une date null un erreur se declanche jai pa compris po suppression auto [ par rony ] bjr,A partir d'une date qui se trouve dans chaque enregistrement de ma table puis je effectuer une suppression automatique des enregistrements qui da


Nos sponsors


Sondage...

Comparez les prix


BORDERLANDS pour Windows
Entre 50€ et 50€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

Photo hvar - 2Photo planète terre - asie
Photo Marais Salants et parcs a Huitres du pays de Marennes (17) 

Visiter la photothèque
 
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 : 0,577 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)