Yvette;

This is a little script that I wrote that will prompt you for a tear and
week no to give you the dates for.

<!--- *******************************************************************

Copyright ALJ Computer Services, 2000 ALL RIGHTS RESERVED

This Copyright notice may not be removed or altered in any way and must be
included in all works using this code.

***************************************************************************

NAME:
        getDateFromWeekNo.cfm
PURPOSE:
        Return a list of Dates for a particular week of the year
INPUT:
        Year that you want info for
        WeekNo that you want info for
OUTPUT:
        To screen..
CREATED:
        11/14/2000
AUTHOR:
        Larry Juncker
        Developer @ Heartland Communications Group, Inc.
REVISIONS:


****************************************************************************
**** --->
<cfparam name="dateNew" default="">
<cfparam name="NewDate" default="">
<cfparam name="SeekYear" default="#Year(Now())#">
<cfparam name="FirstDate" default="01/01/#SeekYear#">
<cfparam name="WeekNo" default="#Week(Now())#">
<cfparam name="DayNo" default="#DayOfWeek(FirstDate)#">

<cfif DayNo EQ 7>
        <!--- Equals Saturday --->
        <cfset lstDays = "-6,-5,-4,-3,-2,-1,0">
<cfelseif DayNo EQ 6>
        <!--- Equals Friday --->
        <cfset lstDays = "-5,-4,-3,-2,-1,0,+1">
<cfelseif DayNo EQ 5>
        <!--- Equals Thursday --->
        <cfset lstDays = "-4,-3,-2,-1,0,+1,+2">
<cfelseif DayNo EQ 4>
        <!--- Equals Wednesday --->
        <cfset lstDays = "-3,-2,-1,0,+1,+2,+3">
<cfelseif DayNo EQ 3>
        <!--- Equals Tuesday --->
        <cfset lstDays = "-2,-1,0,+1,+2,+3,+4">
<cfelseif DayNo EQ 2>
        <!--- Equals Monday --->
        <cfset lstDays = "-1,0,+1,+2,+3,+4,+5">
<cfelseif DayNo EQ 1>
        <!--- Equals Sunday --->
        <cfset lstDays = "0,+1,+2,+3,+4,+5,+6">
</cfif>
<font face="Verdana,Arial,Sans-Serif">
        <div align="center"><form action="getDateFromWeekNo.cfm" method="Post">
        Year you are wanting to find<BR>
        <font size="1">(default is equal to current year)</font><BR>
        <input type="Text" name="SeekYear"
value="<cfoutput>#Year(Now())#</cfoutput>"><BR><FONT SIZE="1">(Must be
Greater Than 1600)</font><BR>
        Week number you would like to find the date for.<BR>
        <cfoutput><input type="Text" name="WeekNo"
value="#Week(Now())#"></cfoutput><BR>
        <font size="1">(Valid numbers are 1 through 52)<BR></font>
        <input type="Submit" value="Find Date"></div>
</form>

<CFOUTPUT>
        <CFIF WeekNo EQ 0>
                <cfset NewDate = #FirstDate#>
        <cfelse>
                <cfset NewDate = #DateAdd('ww', WeekNo, FirstDate)#>
        </cfif>
        <TABLE Align="center">
                <TR bgcolor = "Silver">
                        <TD colspan="3">
                                Dates for Week Number #WeekNo# of #SeekYear#
                        </td>
                </tr>
                <TR>
                        <TD></td><TD align="center">Day of Year</td><td></td>
                </tr>
                <CFLOOP Index="i" FROM="1" TO="7">
                <TR>
                        <TD>#DayOfWeekAsString(i)#</td><TD
align="center">#DayofYear(DateFormat(DateAdd('d',
listGetAt(lstDays,i),NewDate), "mmm dd,
yyyy"))#</td><TD>#DateFormat(DateAdd('d', listGetAt(lstDays,i),NewDate),
"mmm dd, yyyy")#</td>
                </tr>
                </CFLOOP>
                </table>

</font>
</cfoutput>

Larry Juncker
Senior Cold Fusion Developer
Heartland Communications Group, Inc.


-----Original Message-----
From: Yvette Ingram [mailto:[EMAIL PROTECTED]]
Sent: Monday, March 12, 2001 12:19 PM
To: CF-Talk
Subject: Displaying A Week Out Of Month


I have tried every combination of date/time functions and just can't get a
month to display just one week at a time.  Has anyone done anything like
this they can shed some light on.

Tx,
Yvette Ingram
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Structure your ColdFusion code with Fusebox. Get the official book at 
http://www.fusionauthority.com/bkinfo.cfm

Archives: http://www.mail-archive.com/cf-talk@houseoffusion.com/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists

Reply via email to