Kratronic Tools » How to work with Date-Values

Hello,

sorry for my english, it's not my native language.
And sorry for my almost zero-knowledge about M&K-Recorder macro writing.
I'm looking for a M&K macro code which de- and increases manually given dates.

In vba for Excel I would solve this like this, e. g.:

Sub TestlngNewDate()
    Dim strMyDate As String
    Dim lngNewDate As Long
    Dim intLoops As Integer
    
    strMyDate = InputBox("Date?", , Format(Now(), "DD.MM.YYYY"))
    intLoops = InputBox("number of loops?", , 3)
    lngNewDate = DateValue(strMyDate) + 1 - Weekday(DateValue(strMyDate), vbMonday)
    
    For lngNewDate = lngNewDate To lngNewDate + 7 * (intLoops - 1) Step 7
        strMyDate = Format(lngNewDate, "DDD. DD.MM.YYYY")
        MsgBox strMyDate
    Next
End Sub
 

Thanks a lot,
Bernd

Hello, and thanks for the quick answer.
I got it, I think so far so good.
And I adopted to my needs, but there is one question open:
How can I convert a serialtime-value into a date value.

Here as example the essentials out of my code:
{{SetStringDatum {{Right {{Date} | 2}.{{Mid {{Date} | 6 | 2}.{{Left {{Date} | 4}
{{AskStartDat Startdatum? |{{StringDatum}
{{SetStringDat å{{Right {{WriteAskStartDat} | 4}-{{Mid {{WriteAskStartDat} | 4 | 2}-{{Left {{WriteAskStartDat} | 2}å
{{SetStringDat4SerialTime {{Right {{WriteAskStartDat} | 4},{{Mid {{WriteAskStartDat} | 4 | 2},{{Left {{WriteAskStartDat} | 2},0,0,0
{{SetVarMyWeekDay {{Calc weekday({{VarStringDat})}
{{SetVarOffset2Monday {{Calc (24*60*60*({{VarMyWeekDay}-1))}

{{SetVarMySerialTime {{CreateSerialTime {{VarStringDat4SerialTime}}
{{SetVarMySerialTime2 {{Calc {{VarMySerialTime} - {{VarOffset2Monday}}

{{MessageBox VarOffset2Monday:{{TAB}{{VarOffset2Monday} {{CR}VarMySerialTime:{{TAB}{{VarMySerialTime} {{CR}VarMySerialTime2:{{TAB}{{VarMySerialTime2}

{{'And now, I need a function wich converts a serialtime-value like SetVarMySerialTime2 into a datevalue like 2015-06-23.