library(readr)
df <-
 read_csv("folder/Forms.csv", 
  col_types = cols(
   開始時刻 = col_datetime(format = "%m/%d/%y %H:%M:%S"), 
   完了時刻 = col_datetime(format = "%m/%d/%y %H:%M:%S")
  )
 )