datetime Format

Guten Morgen zusammen,
ich belästige euch nur ungern, aber ich benötige einen Tipp von euch.
Denn 6 Stunden ausprobieren und Google bringen mich nicht mehr weiter.
Es geht um eine simple Sache.
Ich habe eine Excel Mappe die als PDF abgespeichert werden soll und das jeweilige Datum soll angehängt werden.
z.B. sieht der Dateiname dann so aus: 08-02-2017_Schulungsangebot.pdf
Das Macro funktioniert auch so.

Public Sub AlsPDF()
Sheets(Array("Angebot")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xltyppdf, Filename:="D:\Projekte\Schulungen\Angebote\" &  _
Datetime.Date & "_Schulungsangebot", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
.Close SaveChanges:=False
End With
End Sub