MS07062016

This commit is contained in:
SchreiberM
2016-06-08 11:17:46 +02:00
parent 65788f29f8
commit 9920ffe9e6
7 changed files with 68 additions and 52 deletions

View File

@@ -248,7 +248,7 @@ Public Class ClassImport_Windream
Dim _rule = result.Item("FORMAT_RULE")
If Not IsNothing(_rule) Then
If IsDate(CONTROLVALUE) Then
Dim _date = CDate(CONTROLVALUE)
Dim _date = CDate(Format(CONTROLVALUE, "dd-MM-yyyy"))
_rule = _rule.ToString.Replace("Y", "y")
_rule = _rule.ToString.Replace("D", "d")
Dim convertedvalue = _date.ToString(_rule)