VBA Code:

```
Sub Dateformat()
Sheets("Combined").range("A1").formula = "=MID(CELL("filename",A1),FIND("[",CELL("filename",A1),1)+1,FIND("]",CELL("filename",A1),1)-FIND("[",CELL("filename",A1),1)-1)"
Sheets("Combined").Range("B1").Formula = "=RIGHT(YEAR(TODAY()),2)"
Sheets("Combined").Range("A3:A" & .Range("B" & Rows.Count).End(xlUp).Row).Formula = "=CONCATENATE(MID($A$1,FIND("f",$A$1,3)+2,(FIND("v",$A$1,1))-(FIND("f",$A$1,3)+3)),".",$B$1)"
End Sub
```