From 262805d1129299a6e8a544d8b9f1d465cc709fd7 Mon Sep 17 00:00:00 2001 From: pitzm Date: Fri, 4 Jul 2025 14:02:27 +0200 Subject: [PATCH] Modules.Interface: Datumsformat immer 8-stellig (yyyyMMdd) aufbereiten --- Interfaces/ZUGFeRDInterface/PropertyValues.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Interfaces/ZUGFeRDInterface/PropertyValues.vb b/Interfaces/ZUGFeRDInterface/PropertyValues.vb index f0cbd003..545ee478 100644 --- a/Interfaces/ZUGFeRDInterface/PropertyValues.vb +++ b/Interfaces/ZUGFeRDInterface/PropertyValues.vb @@ -332,10 +332,10 @@ Public Class PropertyValues s = Convert.ToString(Obj) If IsDate(s) Then - ' Hier wird das DEFAULT-Format auf yyyy-MM-dd gesetzt + ' Hier wird das DEFAULT-Format auf yyyyMMdd gesetzt Dim dtfi As DateTimeFormatInfo = CultureInfo.CreateSpecificCulture(CultureInfo.InvariantCulture.Name).DateTimeFormat - dtfi.DateSeparator = "-" - dtfi.ShortDatePattern = "yyyy/MM/dd" + dtfi.DateSeparator = "" + dtfi.ShortDatePattern = "yyyyMMdd" d = CDate(s) oResult = d.ToString("d", dtfi)