Kuriose Leerzeichen in DateTime-Darstellung

• 10/21/2021 at 1:23 PM #180079
  Rainer (RFW)

  Guten Tag liebe PRTler,
  im Zusammenhang mit Datum/Zeit-Funktionen werden merkwürdiger Weise überflüssige Leerzeichen nach den Daten zurückgegeben, was leider zu einer unschönen Darstellung führt, Jahreszahlen gar mit Tausender-Trennzeichen, siehe Screenshot.
  Insofern musste ich zur ordentlichen Ausgabe entsprechend modifizieren, siehe weiteren Screenshot.
  Interessieren würde mich, ob es eine einfachere Möglichkeit der klaren Ausgabe gäbe. Oder habe ich grundsätzliches falsch gemacht?
  Zur Problem-Verdeutlichung nachfolgend der Code, bzw. itf-Datei anbei. Mit DisplayMod (0=unmodifiziert/1 modifiziert) kann dies nachgestellt werden.
  Vielen Dank vorab und liebe Grüße
  Rainer

  DateTime Modifizierung

  // Rainer (RFW) @ prorealcode.com //******************************************************************************************************************************************************************** Defparam Drawonlastbaronly = True //******************************************************************************************************************************************************************** If StartDate = 0 Then StartDate = Date[2] EndIf If StartTime = 0 Then StartTime = 020000 EndIf If EndDate = 0 Then EndDate = Date[1] EndIf If EndTime = 0 Then EndTime = 220000 EndIf //******************************************************************************************************************************************************************** If IsLastBarupdate Then LookBack = BarIndex //******************************************************************************************************************************************************************** For StartDateTimeSearchFx = LookBack DownTo 1 Do If (Date[StartDateTimeSearchFx] = StartDate) And (Time[StartDateTimeSearchFx] = StartTime) Then StartBarID = BarIndex[StartDateTimeSearchFx] StartLB = StartDateTimeSearchFx StartDay = Day[StartDateTimeSearchFx] StartMonth = CurrentMonth[StartDateTimeSearchFx] StartYear = CurrentYear[StartDateTimeSearchFx] StartHour = CurrentHour[StartDateTimeSearchFx] StartMinute = CurrentMinute[StartDateTimeSearchFx] Break EndIf Next //******************************************************************************************************************************************************************** If (StartBarID > 0) Then For EndDateTimeSearchFx = StartDateTimeSearchFx DownTo 1 Do If (Date[EndDateTimeSearchFx] = EndDate) And (Time[EndDateTimeSearchFx] = EndTime) Then EndBarID = BarIndex[EndDateTimeSearchFx] EndLB = EndDateTimeSearchFx EndDay = Day[EndDateTimeSearchFx] EndMonth = CurrentMonth[EndDateTimeSearchFx] EndYear = CurrentYear[EndDateTimeSearchFx] EndHour = CurrentHour[EndDateTimeSearchFx] EndMinute = CurrentMinute[EndDateTimeSearchFx] Break EndIf Next EndIf //******************************************************************************************************************************************************************** If (StartBarID > 0) And (EndBarID > 0) Then DRAWVLINE(StartBarID)Coloured(0,0,222)Style(Line,3) DRAWVLINE(EndBarID)Coloured(0,0,222)Style(Line,3) For ActiveFx = StartLB DownTo EndLB Do DRAWVLINE(Barindex[ActiveFx])Coloured(0,0,222,75)Style(Line,1) //******************************************************************************************************************************************************************** //******************************************************************************************************************************************************************** // Code....... //******************************************************************************************************************************************************************** //******************************************************************************************************************************************************************** Next //***************************************************************************************************************************************************************************************************************************************** ADHFx = 1+((TextDistance)/10000) AULFx = 1-((TextDistance)/10000) TXTD = ((LineDistance+3)/10000) TKV = 10 ITXV = 20+TKV ITXV1 = 10+TKV ITXV2 = 30+TKV HiLoTxtP = Round(LookBack/3) InfoPos = (Highest[HiLoTxtP](High)+Lowest[HiLoTxtP](Low))/2 InfoTxTFx0 = ADHFx-TXTD InfoTxTFx1 = ADHFx-(TXTD*0.5) InfoTxTFx2 = ADHFx-(TXTD*1.5) InfoTxTFx3 = ADHFx-(TXTD*2.0) InfoTxTFx4 = ADHFx-(TXTD*2.5) InfoTxTFx5 = ADHFx-(TXTD*3.0) InfoTxTFx6 = ADHFx-(TXTD*3.5) InfoTxTFx7 = ADHFx-(TXTD*4.0) InfoTxTFx8 = ADHFx-(TXTD*4.5) InfoTxTFx9 = ADHFx-(TXTD*5.0) InfoTxTFx10 = ADHFx-(TXTD*5.5) InfoTxTFx11 = ADHFx-(TXTD*6.0) InfoTxTFx12 = ADHFx-(TXTD*6.5) InfoTxTFx13 = ADHFx-(TXTD*7.0) InfoTxTFx14 = ADHFx-(TXTD*7.5) InfoTxTFx15 = ADHFx-(TXTD*8.0) InfoTxTFx16 = ADHFx-(TXTD*8.5) InfoTxTFx17 = ADHFx-(TXTD*9.0) InfoTxTFx18 = ADHFx-(TXTD*9.5) InfoTxTFx19 = ADHFx-(TXTD*10.0) InfoTxTFx20 = ADHFx-(TXTD*10.5) //***************************************************************************************************************************************************************************************************************************************** If DisplayMod = 0 Then DrawText("Start: #StartDay#.#StartMonth#.#StartYear# - #StartHour#:0#StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) DrawText("End: #EndDay#.#EndMonth#.#EndYear# - #EndHour#:#EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf DisplayMod = 1 Then StartYear = StartYear-2000 EndYear = EndYear-2000 If (StartHour < 10) And (StartMinute < 10) Then DrawText("Start: #StartDay#. #StartMonth#. #StartYear#- 0#StartHour#: 0#StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) ElsIf (StartHour < 10) And (StartMinute >= 10) Then DrawText("Start: #StartDay#. #StartMonth#. #StartYear#- 0#StartHour#: #StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) ElsIf (StartHour >= 10) And (StartMinute < 10) Then DrawText("Start: #StartDay#. #StartMonth#. #StartYear#- #StartHour#: 0#StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) ElsIf (StartHour >= 10) And (StartMinute >= 10) Then DrawText("Start: #StartDay#. #StartMonth#. #StartYear#- #StartHour#: #StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) EndIf If (EndHour < 10) And (EndMinute < 10) Then DrawText("End: #EndDay#. #EndMonth#. #EndYear#- 0#EndHour#: 0#EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf (EndHour < 10) And (EndMinute >= 10) Then DrawText("End: #EndDay#. #EndMonth#. #EndYear#- 0#EndHour#: #EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf (EndHour >= 10) And (EndMinute < 10) Then DrawText("End: #EndDay#. #EndMonth#. #EndYear#- #EndHour#: 0#EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf (EndHour >= 10) And (EndMinute >= 10) Then DrawText("End: #EndDay#. #EndMonth#. #EndYear#- #EndHour#: #EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) Endif Endif // DisplayMod //***************************************************************************************************************************************************************************************************************************************** EndIf // CodeDateTime //***************************************************************************************************************************************************************************************************************************************** EndIf // IsLastBarupdate //***************************************************************************************************************************************************************************************************************************************** Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

  // Rainer (RFW) @ prorealcode.com //******************************************************************************************************************************************************************** Defparam Drawonlastbaronly = True //******************************************************************************************************************************************************************** If StartDate = 0 Then StartDate = Date[2] EndIf If StartTime = 0 Then StartTime = 020000 EndIf If EndDate   = 0 Then EndDate   = Date[1] EndIf If EndTime   = 0 Then EndTime   = 220000 EndIf //******************************************************************************************************************************************************************** If IsLastBarupdate Then LookBack = BarIndex //******************************************************************************************************************************************************************** For StartDateTimeSearchFx = LookBack DownTo 1 Do If (Date[StartDateTimeSearchFx] = StartDate) And (Time[StartDateTimeSearchFx] = StartTime) Then StartBarID   = BarIndex[StartDateTimeSearchFx] StartLB      = StartDateTimeSearchFx StartDay     = Day[StartDateTimeSearchFx] StartMonth   = CurrentMonth[StartDateTimeSearchFx] StartYear    = CurrentYear[StartDateTimeSearchFx] StartHour    = CurrentHour[StartDateTimeSearchFx] StartMinute  = CurrentMinute[StartDateTimeSearchFx] Break EndIf Next //******************************************************************************************************************************************************************** If (StartBarID > 0) Then For EndDateTimeSearchFx = StartDateTimeSearchFx DownTo 1 Do If (Date[EndDateTimeSearchFx] = EndDate) And (Time[EndDateTimeSearchFx] = EndTime) Then EndBarID   = BarIndex[EndDateTimeSearchFx] EndLB      = EndDateTimeSearchFx EndDay     = Day[EndDateTimeSearchFx] EndMonth   = CurrentMonth[EndDateTimeSearchFx] EndYear    = CurrentYear[EndDateTimeSearchFx] EndHour    = CurrentHour[EndDateTimeSearchFx] EndMinute  = CurrentMinute[EndDateTimeSearchFx] Break EndIf Next EndIf //******************************************************************************************************************************************************************** If (StartBarID > 0) And (EndBarID > 0) Then DRAWVLINE(StartBarID)Coloured(0,0,222)Style(Line,3) DRAWVLINE(EndBarID)Coloured(0,0,222)Style(Line,3) For ActiveFx = StartLB DownTo EndLB Do DRAWVLINE(Barindex[ActiveFx])Coloured(0,0,222,75)Style(Line,1) //******************************************************************************************************************************************************************** //********************************************************************************************************************************************************************   // Code.......   //******************************************************************************************************************************************************************** //******************************************************************************************************************************************************************** Next //***************************************************************************************************************************************************************************************************************************************** ADHFx = 1+((TextDistance)/10000) AULFx = 1-((TextDistance)/10000) TXTD  = ((LineDistance+3)/10000) TKV   = 10 ITXV  = 20+TKV ITXV1 = 10+TKV ITXV2 = 30+TKV   HiLoTxtP    = Round(LookBack/3) InfoPos     = (Highest[HiLoTxtP](High)+Lowest[HiLoTxtP](Low))/2 InfoTxTFx0  = ADHFx-TXTD InfoTxTFx1  = ADHFx-(TXTD*0.5) InfoTxTFx2  = ADHFx-(TXTD*1.5) InfoTxTFx3  = ADHFx-(TXTD*2.0) InfoTxTFx4  = ADHFx-(TXTD*2.5) InfoTxTFx5  = ADHFx-(TXTD*3.0) InfoTxTFx6  = ADHFx-(TXTD*3.5) InfoTxTFx7  = ADHFx-(TXTD*4.0) InfoTxTFx8  = ADHFx-(TXTD*4.5) InfoTxTFx9  = ADHFx-(TXTD*5.0) InfoTxTFx10 = ADHFx-(TXTD*5.5) InfoTxTFx11 = ADHFx-(TXTD*6.0) InfoTxTFx12 = ADHFx-(TXTD*6.5) InfoTxTFx13 = ADHFx-(TXTD*7.0) InfoTxTFx14 = ADHFx-(TXTD*7.5) InfoTxTFx15 = ADHFx-(TXTD*8.0) InfoTxTFx16 = ADHFx-(TXTD*8.5) InfoTxTFx17 = ADHFx-(TXTD*9.0) InfoTxTFx18 = ADHFx-(TXTD*9.5) InfoTxTFx19 = ADHFx-(TXTD*10.0) InfoTxTFx20 = ADHFx-(TXTD*10.5) //***************************************************************************************************************************************************************************************************************************************** If DisplayMod = 0 Then DrawText("Start:  #StartDay#.#StartMonth#.#StartYear# - #StartHour#:0#StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) DrawText("End:  #EndDay#.#EndMonth#.#EndYear# - #EndHour#:#EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf DisplayMod = 1 Then StartYear = StartYear-2000 EndYear   = EndYear-2000 If (StartHour < 10) And (StartMinute < 10) Then DrawText("Start:  #StartDay#. #StartMonth#. #StartYear#- 0#StartHour#: 0#StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) ElsIf (StartHour < 10) And (StartMinute >= 10) Then DrawText("Start:  #StartDay#. #StartMonth#. #StartYear#- 0#StartHour#: #StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) ElsIf (StartHour >= 10) And (StartMinute < 10) Then DrawText("Start:  #StartDay#. #StartMonth#. #StartYear#- #StartHour#: 0#StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) ElsIf (StartHour >= 10) And (StartMinute >= 10) Then DrawText("Start:  #StartDay#. #StartMonth#. #StartYear#- #StartHour#: #StartMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx0,Dialog,Bold,16) EndIf If (EndHour < 10) And (EndMinute < 10) Then DrawText("End:  #EndDay#. #EndMonth#. #EndYear#- 0#EndHour#: 0#EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf (EndHour < 10) And (EndMinute >= 10) Then DrawText("End:  #EndDay#. #EndMonth#. #EndYear#- 0#EndHour#: #EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf (EndHour >= 10) And (EndMinute < 10) Then DrawText("End:  #EndDay#. #EndMonth#. #EndYear#- #EndHour#: 0#EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) ElsIf (EndHour >= 10) And (EndMinute >= 10) Then DrawText("End:  #EndDay#. #EndMonth#. #EndYear#- #EndHour#: #EndMinute# Uhr",BarIndex+ITXV,InfoPos*InfoTxTFx1,Dialog,Bold,16) Endif Endif // DisplayMod //***************************************************************************************************************************************************************************************************************************************** EndIf // CodeDateTime //***************************************************************************************************************************************************************************************************************************************** EndIf // IsLastBarupdate //***************************************************************************************************************************************************************************************************************************************** Return

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
• Author
  Posts