'Dateiname aus Datum erstellen
    Public Function fctDateiname(ByRef strdateiname As String) As String
        'erstellt einen Dateinamen aus dem aktuellen Datum
        'Genauigkeit: Datum + Stunde + Minute
        'Format: YYYYMMDD_hhmm
        Dim strDatum As String = CStr(DatePart("yyyy", Now))
        If Len(CStr(DatePart("m", Now))) = 1 Then
            strDatum = strDatum & "0" & CStr(DatePart("m", Now))
        Else
            strDatum = strDatum & CStr(DatePart("m", Now))
        End If
 
        If Len(CStr(DatePart("d", Now))) = 1 Then
            strDatum = strDatum & "0" & CStr(DatePart("d", Now))
        Else
            strDatum = strDatum & CStr(DatePart("d", Now))
        End If
 
 
        If Len(CStr(DatePart("h", Now))) = 1 Then
            strDatum = strDatum & "_0" & CStr(DatePart("h", Now))
        Else
            strDatum = strDatum & "_" & CStr(DatePart("h", Now))
        End If
 
        If Len(CStr(DatePart("n", Now))) = 1 Then
            strDatum = strDatum & "0" & CStr(DatePart("n", Now))
        Else
            strDatum = strDatum & CStr(DatePart("n", Now))
        End If
 
        strdateiname = strDatum
        Return strdateiname
    End Function

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)