Date Calculations

==========================================



library(lubridate)
library(sqldf)
today()
CurrentYear_1stDate<-today()- yday(today()) +1
CurrentYear_1stDate
CurrentQuarter_1stDate<-today()- qday(today()) +1
CurrentQuarter_1stDate
CurrentMonth_1stDate<-today()- mday(today()) +1
CurrentMonth_1stDate
CurrentWeek_1stDate<-today()- wday(today()) +1
CurrentWeek_1stDate

# Importing Data from PC
Sample_Dataset<- read.csv(choose.files(), header = TRUE, sep = ",")
names(Sample_Dataset)
attach(Sample_Dataset)
YearToDate<- as.Date(ORD_DATE)>= CurrentYear_1stDate & as.Date(ORD_DATE)<= today()
QuarterToDate<- as.Date(ORD_DATE)>= CurrentQuarter_1stDate & as.Date(ORD_DATE)<= today()
MonthToDate<- as.Date(ORD_DATE)>= CurrentMonth_1stDate & as.Date(ORD_DATE)<= today()
WeekToDate<- as.Date(ORD_DATE)>= CurrentWeek_1stDate & as.Date(ORD_DATE)<= today()

FinalDataset<- cbind(Sample_Dataset,YearToDate,QuarterToDate,MonthToDate,WeekToDate)


#Renaming Newly Added Variable Names to avoid ambiguous while calling Vector or Column Names
names(FinalDataset)[length(FinalDataset)]
#Now Remaning the Variable Name "WeekToDate" to "WTD"
names(FinalDataset)[length(FinalDataset)]<- "WTD"
names(FinalDataset)[length(FinalDataset)]
names(FinalDataset)[length(FinalDataset)-1]
names(FinalDataset)[length(FinalDataset)-1]<- "MTD"
names(FinalDataset)[length(FinalDataset)-1]
#-----------
names(FinalDataset)[length(FinalDataset)-2]
names(FinalDataset)[length(FinalDataset)-2]<- "QTD"
names(FinalDataset)[length(FinalDataset)-2]
#-----------
#-----------

names(FinalDataset)[length(FinalDataset)-3]
names(FinalDataset)[length(FinalDataset)-3]<- "YTD"
names(FinalDataset)[length(FinalDataset)-3]
#Final dataset is having Flad whether the dataset is having YTD Data or MTD Data QTD data
#Now we are creating subsets to show YTD Exclusively
YTD_Sales<- subset(FinalDataset, subset= c(YTD== TRUE))
sqldf(" select ORD_DATE, Sales from YTD_Sales order by ORD_DATE ")

#-----
#------
#-------
#Now we are creating subsets to show QTD Exclusively
QTD_Sales<- subset(FinalDataset, subset= c(QTD== TRUE))
sqldf(" select ORD_DATE, Sales from QTD_Sales order by ORD_DATE ")
#-----
#------
#-------
#Now we are creating subsets to show MTD Exclusively
MTD_Sales<- subset(FinalDataset, subset= c(MTD== TRUE))
sqldf(" select ORD_DATE, Sales from MTD_Sales order by ORD_DATE ")




#names(Sample_Dataset)
#[1] "Order_ID"      "Ship_Mode"     "Customer_Name" "Segment"       "City"          "Product_Name"
#[7] "Sales"         "Quantity"      "Discount"      "Profit"        "ORD_DATE"      "SHIP_DATE"