sub getThirdFriday {
    my ($year, $month) = @_;
    return (Nth_Weekday_of_Month_Year($year,$month,
        5, # Freitag
        3  # 3. im Monat
    ))[2];  # nur den Tag zurueckgeben
}