Jeśli druga część jest liczbą, to jeszcze prościej. W załączniku uzupełnienie (po Else). Kolumnę wynikową możesz sformatować wedle uznania. Funkcja zwraca datę excelowską, a więc liczbę. UDF możesz wywołać równiż w VBA, wtedy Np myDate = DataS("15.11") myDate = DataS("15.lis") lub w pętli.