'=====DateTime_Start====='
Dim years, days, dates_ST As String
years = Date_Start.Value.ToString("yyyy") - 543 'change format year 2556-543 to 2013
days = Date_Start.Value.ToString("M-dd") 'chang format to Month-day
dates_ST = years + "-" + days
'=====DateTime_Stop====='
Dim year, day, dates_FN As String
year = Date_Stop.Value.ToString("yyyy") - 543 'change format year 2556-543 to 2013
day = Date_Stop.Value.ToString("M-dd") 'chang format to Month-day
dates_FN = year + "-" + day