diff --git a/R/readNWISdv.r b/R/readNWISdv.r
index 00f50eeb2889be3153df4a2916ee32a4844a259d..14a5f30b22a5d8f36c58c8455f371633751f0741 100644
--- a/R/readNWISdv.r
+++ b/R/readNWISdv.r
@@ -16,7 +16,7 @@
 #' Name \tab Type \tab Description \cr
 #' agency \tab character \tab The NWIS code for the agency reporting the data\cr
 #' site \tab character \tab The USGS site number \cr
-#' datetime \tab Date \tab The date of the value \cr 
+#' Date \tab Date \tab The date of the value \cr 
 #' code \tab character \tab Any codes that qualify the corresponding value\cr
 #' value \tab numeric \tab The numeric value for the parameter \cr
 #' }
@@ -68,6 +68,8 @@ readNWISdv <- function (siteNumber,parameterCd,startDate="",endDate="",statCd="0
   if(nrow(data)>0){
     data$dateTime <- as.Date(data$dateTime)
     data$tz_cd <- NULL
+    data$Date <- data$dateTime 
+    data$dateTime <- NULL
   }