calendarType = {"Gregorian", "Islamic", "Jewish", "Julian"};
day = DateList[{30, 4, 7}];
Map[{#, DayName[Take[day, 3], CalendarType -> #]} &,
calendarType] // TableForm**strong text**
(* "Gregorian" Sunday
"Islamic" Monday
"Jewish" Thursday
"Julian" Friday
*)