Code: Select all
7/27/2008,7,07,27,27,2008,July
Code: Select all
Option Explicit
Dim INPUT_FILE_PATH
' GLOBAL VARIABLES (change to adjust to your system)
INPUT_FILE_PATH = "c:\yesterday.date.csv"
' File access constants
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8
'open file for writing
Dim objFileSystem,inputFile
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set inputFile = objFileSystem.OpenTextFile(INPUT_FILE_PATH, FOR_WRITING, true)
'calculate yesterday date by adding "-1" days to today's date
Dim todayDate
todayDate=Date()
msgbox "today: "+Cstr(todayDate)
Dim yesterdayDate
yesterdayDate = DateAdd("d", -1, todayDate)
msgbox "yesterday: "+Cstr(yesterdayDate)
' format yesterday's date, so the result file contains the full date, and month, day, year in several formats
Dim yesterdayDay, yesterdayDayDoubleDigit, yesterdayMonth, yesterdayMonthDoubleDigit, yesterdayYear, yesterdayMonthName
yesterdayDay = Day(yesterdayDate)
if yesterdayDay < 10 then
yesterdayDayDoubleDigit = "0"+Cstr(yesterdayDay)
else
yesterdayDayDoubleDigit = yesterdayDay
end if
yesterdayMonth = Month(yesterdayDate)
if yesterdayMonth < 10 then
yesterdayMonthDoubleDigit = "0" + Cstr(yesterdayMonth)
else
yesterdayMonthDoubleDigit = yesterdayMonth
end if
yesterdayYear = Year(yesterdayDate)
yesterdayMonthName = MonthName(yesterdayMonth)
'display results
msgbox "in separate columns - full date: "+Cstr(yesterdayDate)+", month: "+Cstr(yesterdayMonth) + ", month (double digit): "+Cstr(yesterdayMonthDoubleDigit)+", day: "+Cstr(yesterdayDay) + ", day (double digit): "+Cstr(yesterdayDayDoubleDigit)+", year: "+Cstr(yesterdayYear)+", monthname: " + Cstr(yesterdayMonthName)
'write date strings to file
inputFile.write(Cstr(yesterdayDate) + "," + Cstr(yesterdayMonth) + "," + Cstr(yesterdayMonthDoubleDigit) + "," + Cstr(yesterdayDay) + "," + Cstr(yesterdayDayDoubleDigit)+ "," + Cstr(yesterdayYear) + "," +Cstr(yesterdayMonthName))
'close fileaccess
inputFile.close()
objFileSystem = NULL
msgbox "End."
' exit script
Wscript.Quit()
[Edit: Added link to DATASOURCE commands (for using CSV input in macro)]