MS_3_10.11.2015

This commit is contained in:
SchreiberM
2015-11-10 10:14:48 +01:00
parent fa334c5a4c
commit 6fc54b316d
3 changed files with 6 additions and 4 deletions

View File

@@ -252,8 +252,13 @@ Public Class ClassImport_Windream
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year
Case "YYYY_MM"
datetemp = My.Computer.Clock.LocalTime.Year & "_" & _Month
Case "MM_YYYY"
datetemp = _Month & "_" & My.Computer.Clock.LocalTime.Year
Case "OFilename"
DATEINAME = DATEINAME.Replace(element.Value, Path.GetFileNameWithoutExtension(CURRENT_FILENAME))
End Select
If datetemp <> "" Then
DATEINAME = DATEINAME.Replace(element.Value, datetemp)