Perl: Backdating to Sunday - Revision history

Rabbi Bob at 14:38, 31 December 2007

2007-12-31T14:38:21Z

← Older revision		Revision as of 14:38, 31 December 2007
Line 93:		Line 93:

	[[Category:Perl]]		[[Category:Perl]]
	[[Category:2006-08]]		[[Category:Weblog-2006-08]]

Rabbi Bob at 12:40, 22 December 2007

2007-12-22T12:40:35Z

← Older revision		Revision as of 12:40, 22 December 2007
Line 65:		Line 65:
	#Check for transitions from August		#Check for transitions from August
	#Roll both the Month with 31 days		#Roll both the Month with 31 days
	elsif ($tmpmonth =~ m(/08/)		elsif ($tmpmonth =~ m/08/)
	{		{
	$tmpday=(31-abs($test));		$tmpday=(31-abs($test));

Rabbi Bob: Corrected 06 exclusion and August roll back with 31 days

2007-11-20T11:47:29Z

Corrected 06 exclusion and August roll back with 31 days

← Older revision		Revision as of 11:47, 20 November 2007
Line 38:		Line 38:
	### Check for March Roll back to Feb		### Check for March Roll back to Feb
	### Honor the Leap Year		### Honor the Leap Year
	if ($tmpmonth == 03)		if ($tmpmonth =~ m/03/)
	{		{
	if (isleap($tmpyear))		if (isleap($tmpyear))
Line 52:		Line 52:
	}		}
	#Check for transitions INTO 31 day months		#Check for transitions INTO 31 day months
	elsif ($tmpmonth =~ m/02\|04\|07\|09\|11/)		elsif ($tmpmonth =~ m/02\|04\|06\|09\|11/)
	{		{
	$tmpday=(31-abs($test));		$tmpday=(31-abs($test));
Line 62:		Line 62:
	$tmpday=(30-abs($test));		$tmpday=(30-abs($test));
	$tmpmonth--;		$tmpmonth--;
			}
			#Check for transitions from August
			#Roll both the Month with 31 days
			elsif ($tmpmonth =~ m(/08/)
			{
			$tmpday=(31-abs($test));
			$tmpmonth=12;
	}		}
	#Check for transitions into December		#Check for transitions into December
	#Roll both the Month & Year back		#Roll both the Month & Year back
	elsif ($tmpmonth == 01)		elsif ($tmpmonth =~ m/01/)
	{		{
	$tmpday=(31-abs($test));		$tmpday=(31-abs($test));

Rabbi Bob at 11:28, 8 May 2007

2007-05-08T11:28:11Z

@@ Line 72: / Line 72: @@
+			}
+		}
 	#Put the date back together
 	$DateA="$tmpyear$tmpmonth$tmpday";

Rabbi Bob at 10:45, 3 May 2007

2007-05-03T10:45:42Z

← Older revision		Revision as of 10:45, 3 May 2007
Line 1:		Line 1:
	Spent a little time on this in a related work project: backdating a date to the Sunday of the same week. Sounded simple at first, however I finally resulted to a dry erase board to map it out before coding it. Funny how leaving the terminal sometimes is a good thing.		Spent a little time on this in a related work project: backdating a date to the Sunday of the same week. Sounded simple at first, however I finally resulted to a dry erase board to map it out before coding it. Funny how leaving the terminal sometimes is a good thing.
			[[Image:Backdatingsunday.JPG\|thumb\|right\|The notes]]
	<pre>		<pre>
	use Date::DayOfWeek;		use Date::DayOfWeek;

Rabbi Bob: Migration - Backdating to Sunday

2007-05-03T10:43:45Z

Migration - Backdating to Sunday

New page

Spent a little time on this in a related work project: backdating a date to the Sunday of the same week. Sounded simple at first, however I finally resulted to a dry erase board to map it out before coding it. Funny how leaving the terminal sometimes is a good thing.

<pre>
use Date::DayOfWeek;
use Date::Leapyear;

if ($DateA =~ /(\d{4})(\d{2})(\d{2})/)
{
my $tmpyear = $1; #Year
my $tmpmonth = $2; #Month
my $tmpday = $3; #Day

#Determine the day of week
#Sun0,Mon1,Tue2,Wed3,Tr4,Fri6,Sat7

my $DOW = dayofweek($tmpday, $tmpmonth, $tmpyear);

#Determine what happens when we subtract the value of
#the date from the Day.
#If it is positive, then we remain in the week.
#If it is Zero, then the date is Sunday and no roll is needed
#If it is negative, then we've moved back in the previous week
#If we are previous week, we need to make sure that
#we check roll to the previous month. If the current month
#is Jan, we need to roll the year back also.

my $test = $tmpday - $DOW;

#Positive Outcome
if ($test > 0)
{
$tmpday=$test;
}

#Negative Outcome
elsif ($test < 0)
{
### Check for March Roll back to Feb
### Honor the Leap Year
if ($tmpmonth == 03)
{
if (isleap($tmpyear))
{
$tmpday=(29-abs($test));
$tmpmonth--;
}
else
{
$tmpday=(28-abs($test));
$tmpmonth--;
}
}
#Check for transitions INTO 31 day months
elsif ($tmpmonth =~ m/02|04|07|09|11/)
{
$tmpday=(31-abs($test));
$tmpmonth--;
}
#Check for transitions INTO 30 day months
elsif ($tmpmonth =~ m/05|07|08|10|12/)
{
$tmpday=(30-abs($test));
$tmpmonth--;
}
#Check for transitions into December
#Roll both the Month & Year back
elsif ($tmpmonth == 01)
{
$tmpday=(31-abs($test));
$tmpmonth=12;
$tmpyear--;
}
}
#Put the date back together
$DateA="$tmpyear$tmpmonth$tmpday";

# Cludge to test to make sure that no new date is greater than 0 and let us know if so
# Irrelevant to the output
my $TESTDOW = dayofweek($tmpday, $tmpmonth, $tmpyear);
if ($TESTDOWN>0)
{
print "!\n";
}
}
#Put the date back together
$DateA="$tmpyear$tmpmonth$tmpday";

# Cludge to test to make sure that no new date is greater than 0 and let us know if so
# Irrelevant to the output
my $TESTDOW = dayofweek($tmpday, $tmpmonth, $tmpyear);
if ($TESTDOWN>0)
{
print "!\n";
}
}
</pre>

[[Category:Perl]]
[[Category:2006-08]]