Jump to content

Recommended Posts

Hello

I have a date in $string.  ( 29 April )

How i can use addition on it.  Example 5+$string cant be done. I used split do separate date and month and if i use addition on it i get result 34 April.. lol.  How i can make addition right

I have a multiple dates and i need to add  days. i use Guictrlcreateinput for adding extra days  example from my script guictrlcreateinput("4",280,55, 30,20)

Link to post
Share on other sites
  • Moderators

dersiniar,

And my DateTimeConvert UDF (look in my sig for the link) will help with the conversion.

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites

Basic example, using Melba23 Date_Time_Convert UDF

#include <Array.au3>
#include <Date.au3>
#include <DTC.au3>
#include <GuiComboBox.au3>
#include <GUIConstantsEx.au3>
Local $sDates = "July 3" & @CRLF & _
    "July 7" & @CRLF & _
    "July 5 - January 9th *" & @CRLF & _
    "July 2 - 4" & @CRLF & _
    "July 20 - August 16" & @CRLF & _
    "July 5 - 9" & @CRLF & _
    "July 4 - May 30" & @CRLF & _
    "July 6 - 12" & @CRLF & _
    "July 5 - 8" & @CRLF & _
    "July 6 - 14" & @CRLF & _
    "July 20 - September 16**" & @CRLF & _
    "July 6 - 12"
Local $aDates = StringRegExp($sDates, "(?:.*-\s)([A-Za-z]*\s[0-9]*)", 3)
_ArrayColInsert($aDates, 1)
For $i = 0 To UBound($aDates) - 1
    $aDates[$i][1] = _Date_Time_Convert($aDates[$i][0] & " " & @YEAR, "MMMM d yyyy", "yyyy/MM/dd")
Next

GUICreate("Date Add", 220, 90)
    Local $sNewDate
    Local $idDates = GUICtrlCreateCombo("", 10, 10, 200, 20)
        GUICtrlSetData($idDates, _ArrayToString($aDates, "|", -1, -1, "|", 0, 0), $aDates[0][0])
    Local $idDays = GUICtrlCreateInput("4", 10, 35, 200, 20)
    Local $idNewDate = GUICtrlCreateInput("", 10, 60, 200, 20)

    GUISetState()
    _AddDays()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $idDates
                _AddDays()
        EndSwitch
    WEnd

Func _AddDays()
    Local $sNewDate = _DateAdd("D", GUICtrlRead($idDays), $aDates[_GUICtrlComboBox_GetCurSel($idDates)][1])
    If Not @error Then
        GUICtrlSetData($idNewDate, _Date_Time_Convert($sNewDate, "yyyy/MM/dd", "MMMM d"))
    EndIf
EndFunc

 

Link to post
Share on other sites
Posted (edited)
18 hours ago, Subz said:

Basic example, using Melba23 Date_Time_Convert UDF

#include <Array.au3>
#include <Date.au3>
#include <DTC.au3>
#include <GuiComboBox.au3>
#include <GUIConstantsEx.au3>
Local $sDates = "July 3" & @CRLF & _
    "July 7" & @CRLF & _
    "July 5 - January 9th *" & @CRLF & _
    "July 2 - 4" & @CRLF & _
    "July 20 - August 16" & @CRLF & _
    "July 5 - 9" & @CRLF & _
    "July 4 - May 30" & @CRLF & _
    "July 6 - 12" & @CRLF & _
    "July 5 - 8" & @CRLF & _
    "July 6 - 14" & @CRLF & _
    "July 20 - September 16**" & @CRLF & _
    "July 6 - 12"
Local $aDates = StringRegExp($sDates, "(?:.*-\s)([A-Za-z]*\s[0-9]*)", 3)
_ArrayColInsert($aDates, 1)
For $i = 0 To UBound($aDates) - 1
    $aDates[$i][1] = _Date_Time_Convert($aDates[$i][0] & " " & @YEAR, "MMMM d yyyy", "yyyy/MM/dd")
Next

GUICreate("Date Add", 220, 90)
    Local $sNewDate
    Local $idDates = GUICtrlCreateCombo("", 10, 10, 200, 20)
        GUICtrlSetData($idDates, _ArrayToString($aDates, "|", -1, -1, "|", 0, 0), $aDates[0][0])
    Local $idDays = GUICtrlCreateInput("4", 10, 35, 200, 20)
    Local $idNewDate = GUICtrlCreateInput("", 10, 60, 200, 20)

    GUISetState()
    _AddDays()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $idDates
                _AddDays()
        EndSwitch
    WEnd

Func _AddDays()
    Local $sNewDate = _DateAdd("D", GUICtrlRead($idDays), $aDates[_GUICtrlComboBox_GetCurSel($idDates)][1])
    If Not @error Then
        GUICtrlSetData($idNewDate, _Date_Time_Convert($sNewDate, "yyyy/MM/dd", "MMMM d"))
    EndIf
EndFunc

 

I tested it out, its what i need, but i haven't been able to get it into my script. Can you help me to modify for my need?
 

Local $sDates = $sDate ;----- this is string with date ( 5.juuli )
Local $aDates = StringRegExp($sDates, "(?:.*-\s)([A-Za-z]*\s[0-9]*)", 3)
_ArrayColInsert($aDates, 1)
For $i = 0 To UBound($aDates) - 1
    $aDates[$i][1] = _Date_Time_Convert($aDates[$i][0] & " " & @YEAR, "MMMM d yyyy", "yyyy/MM/dd");-------I dont need time and year. only day and month
Next
    _AddDays()
Func _AddDays()
    Local $sNewDate = _DateAdd("D", GUICtrlRead($Tarneddinbut), $sDate);------GUICtrlRead($Tarneddinbut)---is what i use to add days to $aDates
    If Not @error Then
        $sDates = $idNewDate, _Date_Time_Convert($sNewDate, "MM/dd")
        Else
        $sDates = "Not found"        
    EndIf
   Local $UpDate =  $sDates ;----This is final result i need for outbut
EndFunc

 

Edited by dersiniar
Link to post
Share on other sites
14 minutes ago, Subz said:

Are your dates in english? are they also in the format :month day i.e. January 9 or another format?

Local $sDates = $sDate ;----- this is string with date ( 5.juuli )  5.juuli its estonian,  5.July
Link to post
Share on other sites
  • Moderators

dersiniar,

Then you will need to let my UDF know about the month names in Estonian. Look in the UDF example script for the _Date_Time_Convert_Set section to see how to use it.

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites
1 hour ago, Melba23 said:

dersiniar,

Then you will need to let my UDF know about the month names in Estonian. Look in the UDF example script for the _Date_Time_Convert_Set section to see how to use it.

M23

I made dates into English. Output i get is "July 5" there have to be added extra 4 days onto but its not. so its not doing anything right now

Func Dates()
Global $sDates = $UpDate ;----- this is string with date ( July 5 )
ConsoleWrite($sDates)
Local $aDates = StringRegExp($sDates, "(?:.*-\s)([A-Za-z]*\s[0-9]*)", 2)
_ArrayColInsert($aDates, 1)
For $i = 0 To UBound($aDates) - 1
    $aDates[$i][1] = _Date_Time_Convert($aDates[$i][0] & " " &  "MMMM  d", "mm/dd");-------I dont need time and year. only day and month
Next
    _AddDays()
EndFunc

Func _AddDays()
    Local $sNewDate = _DateAdd("D", GUICtrlRead($Tarneddinbut), $sDates);------GUICtrlRead($Tarneddinbut)---is what i use to add days to $aDates
    If Not @error Then
        $sDates = $idNewDate, _Date_Time_Convert($sNewDate, "mm/dd")
        Else
        $sDates = "Not found"        
    EndIf
   Local $deliveryDate =  $sDates ;----This is final result i need for outbut
EndFunc

 

Link to post
Share on other sites
  • Moderators

dersiniar,

You have only 1 space in the "July 5" string, but 2 spaces in the "MMMM  d" string for the UDF. In this case the UDF will fail as the in mask does not match the input.

And your out mask is asking for minutes ("mm") and not  padded digital month ("MM").

This works for me:

#include <MsgBoxConstants.au3>

#include "DTC.au3"

Global $sIn_Date, $sOut_Date

$sIn_Date = "July 5"
$sOut_Date = _Date_Time_Convert($sIn_Date, "MMMM d", "MM/d")

MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date)

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites
8 hours ago, dersiniar said:

Local $sDates = $sDate ;----- this is string with date ( 5.juuli ) 5.juuli its estonian, 5.July

 

8 hours ago, Melba23 said:

Then you will need to let my UDF know about the month names in Estonian. Look in the UDF example script for the _Date_Time_Convert_Set section to see how to use it.

I am using this UDF from Melba23 for the first time, but certainly not for the last.

@dersiniar : To use the Estonian month names you have to proceed like this ( as Melba23 already wrote) :

#cs
For information purposes only : Calendar in Estonian
Months :
jaanuar     (January)
veebruar    (February)
märts      (March)
aprill      (April)
mai         (May)
juuni       (June)
juuli       (July)
august      (August)
september   (September)
oktoober    (October)
november    (November)
detsember   (December)

Days of the Week :
esmaspäev  (Monday)
teisipäev  (Tuesday)
kolmapäev  (Wednesday)
neljapäev  (Thursday)
reede       (Friday)
laupäev    (Saturday)
pühapäev  (Sunday)
#ce

#include <MsgBoxConstants.au3>
#include "DTC.au3"
Global $sIn_Date, $sOut_Date

; Input month strings : changed to Estonian
_Date_Time_Convert_Set("LMI", "jaanuar,veebruar,märts,aprill,mai,juuni,juuli,august,september,oktoober,november,detsember")

; Example 1 :
$sIn_Date  = "juuli 15"
$sOut_Date = _Date_Time_Convert($sIn_Date, "MMMM d", "MM/d")
MsgBox($MB_SYSTEMMODAL, "DTC Conversion 1 :", $sIn_Date & @CRLF & $sOut_Date)

; Example 2 :
$sIn_Date  = "15.juuli"
$sOut_Date = _Date_Time_Convert($sIn_Date, "d.MMMM", "MM/d")
MsgBox($MB_SYSTEMMODAL, "DTC Conversion 2 :", $sIn_Date & @CRLF & $sOut_Date)

 

Musashi-C64.png

"In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."

Link to post
Share on other sites
18 hours ago, Subz said:

Please post the entire script along with the gui, similar to the script I posted above.

Cant do that, i have like 2k lines and i don't want to make my script public

Link to post
Share on other sites
Posted (edited)
19 hours ago, Melba23 said:

dersiniar,

You have only 1 space in the "July 5" string, but 2 spaces in the "MMMM  d" string for the UDF. In this case the UDF will fail as the in mask does not match the input.

And your out mask is asking for minutes ("mm") and not  padded digital month ("MM").

This works for me:

#include <MsgBoxConstants.au3>

#include "DTC.au3"

Global $sIn_Date, $sOut_Date

$sIn_Date = "July 5"
$sOut_Date = _Date_Time_Convert($sIn_Date, "MMMM d", "MM/d")

MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date)

M23

Hmm this leaves everything same .  July.7 is income and outgoing is same 7/7.
I wanted to add from guictrlcreateinput extra days onto it 

Income from internet is  July.7 I want to add extra 4 days onto it so it shold be  July.11

Global $sIn_Date, $sOut_Date
$Testdate= GUICtrlRead($TaEddInbut)
ConsoleWrite($Testdate & @CRLF)  ;Outbut 4 

$TEstdateOut= _Date_Time_Convert($TaEddInbut, "MMMM d", "MM/d")  ;Outbut -

$sIn_Date = $sDates
$sOut_Date = _Date_Time_Convert($sIn_Date, "MMMM d", "MM/d")

MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date &@crlf&$TEstdateOut)

And $sOut_Date = _DateAdd('d', $TEstdate, _NowCalcDate() does not seem to work. i got result 07/05

This is full script i test now to get it work

Local $sDates = "July 7"  ;----- this is string with date ( 5.juuli )
Local $aDates = StringRegExp($sDates, "(?:.*-\s)([A-Za-z]*\s[0-9]*)", 3)
_ArrayColInsert($aDates, 1)
    $sOut_Date = _Date_Time_Convert($aDates, "MMMM d", "MM/d")
ConsoleWrite($sDates&@CRLF)

    Local $sNewDate = _DateAdd("D", 4, $sDates);------GUICtrlRead($Tarneddinbut)---is what i use to add days to $aDates
    If Not @error Then
        $sDates = $idNewDate, _Date_Time_Convert($sNewDate, "MM/dd")
        Else
        $sDates = "Not found"        
    EndIf
   Local $UpDate =  $sDates ;----This is final result i need for outbut
   ConsoleWrite("ENNE: "&$sDates&"  NÜÜD: "&$sDates)

Result: 0

Edited by dersiniar
Link to post
Share on other sites
1 hour ago, dersiniar said:

This is full script i test now to get it work

1. This is far from being a runnable test script.

2. If you use _DateAdd, a year is required. Otherwise leap years will not be taken into account.
For example, it makes a difference if you add four days to the date 2022/02/27 or to the date 2020/02/27.

Musashi-C64.png

"In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."

Link to post
Share on other sites
Posted (edited)
35 minutes ago, Musashi said:

1. This is far from being a runnable test script.

2. If you use _DateAdd, a year is required. Otherwise leap years will not be taken into account.
For example, it makes a difference if you add four days to the date 2022/02/27 or to the date 2020/02/27.

:D i do not need year x.x

Lets say i use this

 

#cs
For information purposes only : Calendar in Estonian
Months :
jaanuar     (January)
veebruar    (February)
märts      (March)
aprill      (April)
mai         (May)
juuni       (June)
juuli       (July)
august      (August)
september   (September)
oktoober    (October)
november    (November)
detsember   (December)

Days of the Week :
esmaspäev  (Monday)
teisipäev  (Tuesday)
kolmapäev  (Wednesday)
neljapäev  (Thursday)
reede       (Friday)
laupäev    (Saturday)
pühapäev  (Sunday)
#ce

#include <MsgBoxConstants.au3>
#include "DTC.au3"
Global $sIn_Date, $sOut_Date

; Input month strings : changed to Estonian
_Date_Time_Convert_Set("LMI", "jaanuar,veebruar,märts,aprill,mai,juuni,juuli,august,september,oktoober,november,detsember")

; Example 1 :
$sIn_Date  = "juuli 15"
$sOut_Date = _Date_Time_Convert($sIn_Date, "MMMM d", "MM/d")
MsgBox($MB_SYSTEMMODAL, "DTC Conversion 1 :", $sIn_Date & @CRLF & $sOut_Date)
 

How i can add days onto it? Example $ExtraDays = 4

 

Edited by dersiniar
Link to post
Share on other sites
  • Solution
12 minutes ago, dersiniar said:

:D i do not need year x.x

Truly not :think: ?

February.27 + 4 days results in March.3 (but in a leap year it will be March.2)

An example (quick and dirty) for demonstration purposes only :lol::

; Income from internet is July.7 I want to add extra 4 days onto it so it should be  July.11

#include <MsgBoxConstants.au3>
#include <Date.au3>
#include "DTC.au3"

Global $sIn_Date, $sOut_Date, $sIn_DateYear, $sOut_DateFull, $sOut_DateCalc, $sOut_DateNew

$sIn_DateYear   = "2022" ; @YEAR for current year or make a manual year specification like "2020"
$sIn_Date       = "July.7 "
$sOut_Date      = _Date_Time_Convert($sIn_Date, "MMMM dd", "MM/d")
$sOut_DateFull  = $sIn_DateYear & "/" & $sOut_Date
$sOut_DateCalc  = _DateAdd("D", 4, $sOut_DateFull)
$sOut_DateNew   = _Date_Time_Convert($sOut_DateCalc, "YYYY MM dd", "MMMM.d")
MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date  & @CRLF & _
                                          $sOut_Date & @CRLF & _
                                          $sOut_DateFull & @CRLF & _
                                          $sOut_DateCalc & @CRLF & @CRLF & _
                                          "Result = " & $sOut_DateNew  & @CRLF)

 

Musashi-C64.png

"In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."

Link to post
Share on other sites
Posted (edited)
29 minutes ago, Musashi said:

Truly not :think: ?

February.27 + 4 days results in March.3 (but in a leap year it will be March.2)

An example (quick and dirty) for demonstration purposes only :lol::

; Income from internet is July.7 I want to add extra 4 days onto it so it should be  July.11

#include <MsgBoxConstants.au3>
#include <Date.au3>
#include "DTC.au3"

Global $sIn_Date, $sOut_Date, $sIn_DateYear, $sOut_DateFull, $sOut_DateCalc, $sOut_DateNew

$sIn_DateYear   = "2022" ; @YEAR for current year or make a manual year specification like "2020"
$sIn_Date       = "July.7 "
$sOut_Date      = _Date_Time_Convert($sIn_Date, "MMMM dd", "MM/d")
$sOut_DateFull  = $sIn_DateYear & "/" & $sOut_Date
$sOut_DateCalc  = _DateAdd("D", 4, $sOut_DateFull)
$sOut_DateNew   = _Date_Time_Convert($sOut_DateCalc, "YYYY MM dd", "MMMM.d")
MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date  & @CRLF & _
                                          $sOut_Date & @CRLF & _
                                          $sOut_DateFull & @CRLF & _
                                          $sOut_DateCalc & @CRLF & @CRLF & _
                                          "Result = " & $sOut_DateNew  & @CRLF)

 

This is purrrrrrrfect ❤️
i managed to get it work in my script, thank you man a lot. Also didn't think about leap year omg

Global $sDates = $dDate 
;ConsoleWrite($sDates&@CRLF)
Global $ExdraDays= GUICtrlRead($Tinbut)
;ConsoleWrite($ExdraDays&@CRLF)
Global $sIn_Date, $sOut_Date, $sIn_DateYear, $sOut_DateFull, $sOut_DateCalc, $sOut_DateNew
$sIn_DateYear   = "2022" ; @YEAR for current year or make a manual year specification like "2020"
$sIn_Date       = $sDates
$sOut_Date      = _Date_Time_Convert($sIn_Date, "MMMM dd", "MM/d")
$sOut_DateFull  = $sIn_DateYear & "/" & $sOut_Date
$sOut_DateCalc  = _DateAdd("D", $ExdraDays, $sOut_DateFull)
$sOut_DateNew   = _Date_Time_Convert($sOut_DateCalc, "YYYY MM dd", "MMMM d")
$NEWDate=$sOut_DateNew
;ConsoleWrite($NEWDate&@CRLF)

 

Edited by dersiniar
Link to post
Share on other sites
Posted (edited)
On 7/1/2022 at 10:42 AM, Musashi said:

Truly not :think: ?

February.27 + 4 days results in March.3 (but in a leap year it will be March.2)

An example (quick and dirty) for demonstration purposes only :lol::

; Income from internet is July.7 I want to add extra 4 days onto it so it should be  July.11

#include <MsgBoxConstants.au3>
#include <Date.au3>
#include "DTC.au3"

Global $sIn_Date, $sOut_Date, $sIn_DateYear, $sOut_DateFull, $sOut_DateCalc, $sOut_DateNew

$sIn_DateYear   = "2022" ; @YEAR for current year or make a manual year specification like "2020"
$sIn_Date       = "July.7 "
$sOut_Date      = _Date_Time_Convert($sIn_Date, "MMMM dd", "MM/d")
$sOut_DateFull  = $sIn_DateYear & "/" & $sOut_Date
$sOut_DateCalc  = _DateAdd("D", 4, $sOut_DateFull)
$sOut_DateNew   = _Date_Time_Convert($sOut_DateCalc, "YYYY MM dd", "MMMM.d")
MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date  & @CRLF & _
                                          $sOut_Date & @CRLF & _
                                          $sOut_DateFull & @CRLF & _
                                          $sOut_DateCalc & @CRLF & @CRLF & _
                                          "Result = " & $sOut_DateNew  & @CRLF)

 

I'm back, Looks like its not working after all as needed.

$sDates=($Month&" "&$Date)

Global $ExdraDays= GUICtrlRead($Tarneddinbut)
;ConsoleWrite($ExdraDays&@CRLF)
Global $sIn_Date, $sOut_Date, $sIn_DateYear, $sOut_DateFull, $sOut_DateCalc, $sOut_DateNew
$sIn_DateYear   = "2022" ; @YEAR for current year or make a manual year specification like "2020"
$sIn_Date       = $sDates

;ConsoleWrite($sDates &@CRLF)
$sOut_Date      = _Date_Time_Convert($sIn_Date, "MMMM dd", "MM/d")
$sOut_DateFull  = $sIn_DateYear & "/" & $sOut_Date
$sOut_DateCalc  = _DateAdd("d", $ExdraDays, $sOut_DateFull)
$sOut_DateNew   = _Date_Time_Convert($sOut_DateCalc, "YYYY MM dd", "MMMM d")
$deliveryDate = $sOut_DateNew
If $deliveryDate = "--- -" Then     $deliveryDate = '<p><span style=""color: #ff0000;"">Ask about delivery time</span></p>'
ConsoleWrite($sDates & " >>>> "&$deliveryDate&@CRLF)

At first it looked like it works, but , not working with 2digit dates. all dates must have 4 days added on. But it takes first digit and adds those 4 days to the first digit.
Console output:
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  9 >>>> July 13
July  10 >>>> July 5    *
July  9 >>>> July 13
July  9 >>>> July 13
July  14 >>>> July 5    *
July  10 >>>> July 5    *
July  9 >>>> July 13
July  30 >>>> July 7    *
July  30 >>>> July 7    *
July  9 >>>> July 13
July  19 >>>> July 5    *

 

Lol there's no delete button for remove post. i figured out what's wrong.
Date input have 2 space between characters, that made it broke.

Edited by dersiniar
Link to post
Share on other sites
25 minutes ago, dersiniar said:

At first it looked like it works, but , not working with 2digit dates. all dates must have 4 days added on.

My example works, see :

DateCalc.jpg.07129f11b3b5c83f0af9dd3c9baf1acd.jpg

 

Please post the ConsoleWrites for $ExdraDays and $sDates (before conversion)

Musashi-C64.png

"In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...