Sponsored Content
Full Discussion: Birthday Calculation
Top Forums Shell Programming and Scripting Birthday Calculation Post 302272072 by Franklin52 on Monday 29th of December 2008 03:46:12 PM
Old 12-29-2008
A sample to calculate the age with a given date, adapt it to read the date from a file or if you have a different date format.

Code:
#!/bin/sh

echo -n "Enter the birthdate (mm-dd-yyyy): "
read bdate

bmonth=${bdate:0:2}
bday=${bdate:3:2}
byear=${bdate:6:4}

cdate=`date +%m-%d-%Y`

cmonth=${cdate:0:2}
cday=${cdate:3:2}
cyear=${cdate:6:4}

if [[ "$cmonth" -lt "$bmonth" ]] || [[ "$cmonth" -eq "$bmonth" && "$cday" -lt "$bday" ]]
then
  let age=cyear-byear-1
else
  let age=cyear-byear
fi

echo "Age = "$age

Regards
 

4 More Discussions You Might Find Interesting

1. News, Links, Events and Announcements

Happy birthday Linux

Linux has turned 10 . Happy birthday and congrats to the hackers whose labor pains keep giving us new tarballs. (From /. ) (1 Reply)
Discussion started by: mib
1 Replies

2. What is on Your Mind?

UNIX 40th Birthday

A little off topic, as far as not being a critical help issue, but I have been searching about for the OFFICIAL date that is considered the 40th Birthday of UNIX. Some folks mentioned it in March, I think do to a mention on Slashdot of the 40th birthday being this year, but I thought I recall... (1 Reply)
Discussion started by: scotbuff
1 Replies

3. Linux

Happy Birthday Linux :)

The Linux kernel was originally created by Linus Torvalds, a Finnish computer science student, and first announced to the world on August 25, 1991-exactly 20 years ago today. At the time, Torvalds described his work as a "hobby" and contended that it would not be "big and professional" like the GNU... (2 Replies)
Discussion started by: itkamaraj
2 Replies

4. What is on Your Mind?

Happy birthday Neo

Wish you many many happy returns of the day, stay blessed. (1 Reply)
Discussion started by: Akshay Hegde
1 Replies
SWISS::Stars::EV(3pm)					User Contributed Perl Documentation				     SWISS::Stars::EV(3pm)

   new
   fromText
   toText
   sort
   addEvidence($category, $type, $initials, $attributes [, $date])
	Title:	  addEvidence

	Usage:	  $evidenceTag = $entry->Stars->EV->addEvidence($category,
								$type,
								$initials,
								$attributes
								[, $date])

	Function: adds the evidence to the EV block if it does not yet exist
		  or returns the correct evidence tag if the evidence already exists,
		  possibly with a different date.

	Args:	 $category: the evidence category. Currently one of 'A', 'C', 'I','P'.
		 $type: the evidence type
		 $initials: The initals of the person doing the update.
			    For programs this should be '-'.
		 $attributes: the attributes of the evidence
		 $date: optional. If present, it must be in standard SWISS-PROT
			date format. If not present the current date will be used.

	Returns: The correct evidence tag.

   updateEvidence($category, $type, $initials, $attributes [, $date])
	Title:	  updateEvidence

	Usage:	  $evidenceTag = $entry->Stars->EV->updateEvidence($category,
								   $type,
								   $initials,
								   $attributes
								   [, $date])

	Function: updates the evidence to the EV block to $date or inserts it
		  if it does not yet exist.

	Args:	 $category: the evidence category. Currently one of 'A', 'C', 'I','P'.
		 $type: the evidence type
		 $initials: The initals of the person doing the update.
			    For programs this should be '-'.
		 $attributes: the attributes of the evidence
		 $date: optional. If present, it must be in standard SWISS-PROT
			date format. If not present the current date will be used.

	Returns: The correct evidence tag.

Name
       SWISS::Stars::EV.pm

Description
       SWISS/Stars/EV.pm represents the evidence section within an SWISS-PROT + TrEMBL entry. See
       http://www3.ebi.ac.uk/~sp/intern/projects/evidenceTags/index.html

       For a usage example, see evTest.pl in the Swissknife package.

Inherits from SWISS::ListBase.pm
Attributes
       "list" Each element of the list describes one evidence, itself represented as an array.

perl v5.10.1							    2006-01-26						     SWISS::Stars::EV(3pm)
All times are GMT -4. The time now is 03:53 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy