'USES THE TIMESPAN METHOD TO SUBTRACT A CERTAIN NUMBER OF DAYS
FUNCTION DATE1()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.SUBTRACT( NEW TIMESPAN(7, 0, 0, 0) )
NEWTIME = NEWTIME.FORMAT("MM/DD/YYYY", DATETIMEFORMATINFO)
RESPONSE.WRITE(NEWTIME)
END FUNCTION
'USES THE ADDDAYS METHOD TO SUBTRACT X NUMBER OF DAYS
PUBLIC FUNCTION DATE2()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.ADDDAYS(-7)
DIM S AS STRING = NEWTIME
RETURN S
END FUNCTION
'THANKS TO PAUL CZYWCZYNSKI FOR THIS IDEA
'THIS PROBABLY (IN MY OPINION) OFFERS THE MOST FLEXIBILITY FOUND SO FAR
'CHANGE WHERE THE MM/DD/YYYY TO WHATEVER
'RESPONSE.WRITE(SYSTEM.STRING.FORMAT("{0:D}",NEWTIME))
'WOULD RETURN JUST THE NAME OF THE DAY
FUNCTION DATE3()
DIM NEWTIME AS DATETIME = NOW.ADDDAYS(-7)
RESPONSE.WRITE(SYSTEM.STRING.FORMAT("{0:MM/DD/YYYY}",NEWTIME))
END FUNCTION
FUNCTION DATE4()
DIM NEWTIME AS DATETIME
NEWTIME = NOW.ADDDAYS(-7)
RETURN NEWTIME.TOSTRING()
END FUNCTION
'USES THE TOLONGTIMESTRING METHOD
PUBLIC FUNCTION DATE5()
DIM NEWTIME AS DATETIME
NEWTIME = NOW()
RETURN NEWTIME.TOLONGTIMESTRING()
END FUNCTION
'USES THE TOSHORTTIMESTRING METHOD
PUBLIC FUNCTION DATE6()
DIM NEWTIME AS DATETIME
NEWTIME = NOW()
RETURN NEWTIME.TOSHORTTIMESTRING()
END FUNCTION
'USES THE TOLONGDATESTRING METHOD
PUBLIC FUNCTION DATE7()
DIM NEWTIME AS DATETIME
NEWTIME = NOW()
RETURN NEWTIME.TOLONGDATESTRING()
END FUNCTION
'USES THE TOSHORTDATESTRING METHOD
PUBLIC FUNCTION DATE8()
DIM NEWTIME AS DATETIME
NEWTIME = NOW()
RETURN NEWTIME.TOSHORTDATESTRING()
END FUNCTION
'USES FORMATDATETIME FUNCTION GENERAL FORMAT
FUNCTION DATE9()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.SUBTRACT( NEW TIMESPAN(7, 0, 0, 0) )
RETURN FORMATDATETIME(NEWTIME, 0)
END FUNCTION
'USES FORMATDATETIME FUNCTION LONGDATE FORMAT
FUNCTION DATE10()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.SUBTRACT( NEW TIMESPAN(7, 0, 0, 0) )
RETURN FORMATDATETIME(NEWTIME, 1)
END FUNCTION
'USES FORMATDATETIME FUNCTION SHORTDATE FORMAT
FUNCTION DATE11()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.SUBTRACT( NEW TIMESPAN(7, 0, 0, 0) )
RETURN FORMATDATETIME(NEWTIME, 2)
END FUNCTION
'USES FORMATDATETIME FUNCTION LONGTIME FORMAT
FUNCTION DATE12()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.SUBTRACT( NEW TIMESPAN(7, 0, 0, 0) )
RETURN FORMATDATETIME(NEWTIME, 3)
END FUNCTION
'USES FORMATDATETIME FUNCTION SHORTTIME FORMAT
FUNCTION DATE13()
DIM NEWTIME AS DATETIME
NEWTIME = DATETIME.NOW.SUBTRACT( NEW TIMESPAN(7, 0, 0, 0) )
RETURN FORMATDATETIME(NEWTIME, 4)
END FUNCTION
'BRING BACK JUST THE NAME OF THE DAY
FUNCTION DATE14()
DIM NEWTIME AS DATETIME = NOW.ADDDAYS(-7)
DIM S AS STRING
S = (SYSTEM.STRING.FORMAT("{0:DDDD}",NEWTIME))
RETURN S
END FUNCTION
'RETURNS THE INTEGER OF WHAT DAY OF WEEK
FUNCTION DATE15()
DIM MYDATE AS DATETIME
DIM MYWEEKDAY AS INTEGER
MYDATE = NOW.ADDDAYS(-5)
MYWEEKDAY = WEEKDAY(MYDATE)
RETURN MYWEEKDAY
END FUNCTION
'RETURNS THE MONTH INTEGER
FUNCTION DATE16()
DIM MYDATE AS DATETIME
DIM MYMONTH AS INTEGER
MYDATE = NOW.ADDDAYS(-5)
MYMONTH = MONTH(MYDATE)
RETURN MYMONTH
END FUNCTION
'RETURNS JUST A FORMATTED STRING
'THIS METHOD PROVIDES JUST FORMATTING BUT
'VERY FLEXIBLE WITH NOT A LOT OF CODE
FUNCTION DATE17()
DIM MYDATE AS STRING
MYDATE = FORMAT(NOW(), "YYYY")
RETURN MYDATE
END FUNCTION
</SCRIPT>
|