Date Calculation and variable setting

[Nelboy]

Good Morning

I am hoping someone can help as I am a little stuck

I am trying to calculate a date range of when UTC is applicable. Essentially in the UK this is from the Last Sunday in March through to the Last Sunday in October every year.

I have worked out that the following formula in excel

FLOOR(EOMONTH(I3,0)-1,7)+1

give me the last Sunday in March if Cell I3 is say 1/3/2020

is their a simple way of converting

FLOOR(EOMONTH(I3,0)-1,7)+1

to VBA to say strStartDate = "FLOOR(EOMONTH(" & format("1/3/2020","dd-mm-yy") & ",0)-1,7)+1" , strEndDate = "FLOOR(EOMONTH(" & format("1/10/2020","dd-mm-yy") & ",0)-1,7)+1"

I hope this makes since as to what I am trying to do and someone can help

regards

 

[AlphaFrog]

  strStartDate = Format(Evaluate("FLOOR(EOMONTH(DATE(YEAR(Today()),3,1),0)-1,7)+1"), "dd/mm/yyyy")
  strEndDate = Format(Evaluate("FLOOR(EOMONTH(DATE(YEAR(Today()),10,1),0)-1,7)+1"), "dd/mm/yyyy")

Alternatively...

  strStartDate = Format(Int((DateSerial(Year(Date), 3 + 1, 0) - 1) / 7) * 7 + 1, "dd/mm/yyyy")
  strEndDate = Format(Int((DateSerial(Year(Date), 10 + 1, 0) - 1) / 7) * 7 + 1, "dd/mm/yyyy")

 

[Nelboy]

  strStartDate = Format(Evaluate("FLOOR(EOMONTH(DATE(YEAR(Today()),3,1),0)-1,7)+1"), "dd/mm/yyyy")
  strEndDate = Format(Evaluate("FLOOR(EOMONTH(DATE(YEAR(Today()),10,1),0)-1,7)+1"), "dd/mm/yyyy")

Alternatively...

  strStartDate = Format(Int((DateSerial(Year(Date), 3 + 1, 0) - 1) / 7) * 7 + 1, "dd/mm/yyyy")
  strEndDate = Format(Int((DateSerial(Year(Date), 10 + 1, 0) - 1) / 7) * 7 + 1, "dd/mm/yyyy")

Thanks very much