Jump to content

# [SOLVED] How do I find every other Saturday in any month?

## Recommended Posts

I forgot an important and needed aspect of my code. I need to be able to check for people who work every other week. Is it possible to write the dates that they work (every other week) between two date ranges?

Example:  Bob Smith has a Start date of 8-26-2018 (that is the date he is hired) And He stops working on 12-12-18 (that's the day he goes on vacation or whatever) However his work shift is every other Saturday from 7:30 AM to 6:00 Pm.  I need to calculate every other Saturday between 8-26-18 and 12-12-18 (is this clear?)

here is the code I have so far. I am just missing this last part:

```; Step 7
Func SendData()

;*******************************************************************************
; Sends all collected data to the Excel file in correct order for Upload
;*******************************************************************************
MsgBox(\$MB_ICONINFORMATION, "Scheduler_Bot", "Sending Data", 2)

; Loop Counters
\$LoopCount   = 0
\$Array_Index = 0
\$DayIndex    = 0
\$dataIndex   = 0

; Counter for the day of the week
Local \$dCount = 2

; Counter for the numbers of Ys
Local \$yesCount = 0

; Excel Write Counter (VERY IMPORTANT!)
Local \$EWriteCount = 2

; Declare the global shift arrays (Sunday - Saturday)
Global \$ShiftDaySU[100][600]
Global \$ShiftDayM[100][600]
Global \$ShiftDayT[100][600]
Global \$ShiftDayW[100][600]
Global \$ShiftDayR[100][600]
Global \$ShiftDayF[100][600]
Global \$ShiftDayS[100][600]
Global \$sDates[400]

While \$Formatted_Names[\$dataIndex] <> \$Formatted_Names[\$IndexRows] ; \$LoopCount < \$IndexRows

\$ACounter = 0 ; Array counter

; Gets the Start date from the array
\$Temp = \$StartDate[\$Array_Index]
\$TempStart = StringLeft(\$Temp, 8)
\$StartTempYear  = StringLeft(\$TempStart, 4)
\$StartTempMonth = StringMid(\$TempStart, 5, 2)
\$StartTempDay   = StringRight(\$TempStart, 2)

; Gets the End date from the array
\$Temp = \$EndDate[\$Array_Index]
\$TempEnd = StringLeft(\$Temp, 8)
\$EndTempYear  = StringLeft(\$TempEnd, 4)
\$EndTempMonth = StringMid(\$TempEnd, 5, 2)
\$EndTempDay   = StringRight(\$TempEnd, 2)

; The starting date (in value form)
\$sdate = _DateToDayValue(\$StartTempYear, \$StartTempMonth, \$StartTempDay)    ;_DateToDayValue(2019,1,9)
;ConsoleWrite(@CRLF & "\$start date  " & \$sdate & @CRLF & @CRLF)

; The ending date (in value form)
\$edate = _DateToDayValue(\$EndTempYear, \$EndTempMonth, \$EndTempDay)          ;_DateToDayValue(2019,4,9)
;ConsoleWrite(@CRLF & "\$end date  " & \$edate & @CRLF & @CRLF)

; Variables for readability
Local \$iYear, \$iMonth, \$iDay

;Stores what day of the week that shift lands on
Local \$tSU = _Excel_RangeRead(\$OpenWorkbook, Default, "I" & \$dCount)
If \$tSU = "Y" Then
\$yesCount = 1
EndIf
Local \$tM  = _Excel_RangeRead(\$OpenWorkbook, Default, "J" & \$dCount)
If \$tM = "Y" Then
\$yesCount += 1
EndIf
Local \$tT  = _Excel_RangeRead(\$OpenWorkbook, Default, "K" & \$dCount)
If \$tT = "Y" Then
\$yesCount += 1
EndIf
Local \$tW  = _Excel_RangeRead(\$OpenWorkbook, Default, "L" & \$dCount)
If \$tW = "Y" Then
\$yesCount += 1
EndIf
Local \$tR  = _Excel_RangeRead(\$OpenWorkbook, Default, "M" & \$dCount)
If \$tR = "Y" Then
\$yesCount += 1
EndIf
Local \$tF  = _Excel_RangeRead(\$OpenWorkbook, Default, "N" & \$dCount)
If \$tF = "Y" Then
\$yesCount += 1
EndIf
Local \$tS  = _Excel_RangeRead(\$OpenWorkbook, Default, "O" & \$dCount)
If \$tS = "Y" Then
\$yesCount += 1
EndIf

ConsoleWrite(@CRLF & @CRLF)
ConsoleWrite(\$tSU & @CRLF)
ConsoleWrite(\$tM & @CRLF)
ConsoleWrite(\$tT & @CRLF)
ConsoleWrite(\$tW & @CRLF)
ConsoleWrite(\$tR & @CRLF)
ConsoleWrite(\$tF & @CRLF)
ConsoleWrite(\$tS & @CRLF)
ConsoleWrite(@CRLF & @CRLF)

; Check to see if they work every other week
Local \$rotationWeek  = _Excel_RangeRead(\$OpenWorkbook, Default, "U" & \$dCount)
If \$rotationWeek = "0" Then
; Do nothing
Else
If \$rotationWeek = 1
; Do something
Else ; \$rotationWeek = 2
; Do something
EndIf
EndIf

Local \$repeatWeek  = _Excel_RangeRead(\$OpenWorkbook, Default, "V" & \$dCount)
If \$rotationWeek = "0" Then
; Do nothing
Else
If \$rotationWeek = 1
; Do something
Else ; \$rotationWeek = 2
; Do something
EndIf
EndIf

While \$yesCount > 0

If \$tSU = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 1 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDaySU[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDaySU[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "SU " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Sunday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tSU = "N"

ElseIf \$tM = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 2 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayM[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayM[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "M " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Monday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tM = "N"

ElseIf \$tT = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 3 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayT[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayT[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "T " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Tuesday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tT = "N"

ElseIf \$tW = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 4 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayW[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayW[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "W " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Wednesday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tW = "N"

ElseIf \$tR = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 5 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayR[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayR[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "R " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Thursday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tR = "N"

ElseIf \$tF = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 6 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayF[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayF[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "F " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Friday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tF = "N"

ElseIf \$tS = "Y" Then
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 7 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayS[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayS[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "S " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "Saturday  " & \$Temp & @CRLF)

EndIf
Next

\$yesCount -= 1
\$tS = "N"

Else
;Error Nothing equals "Y"
ConsoleWrite(@CRLF & "Error Nothing equals 'Y'" & @CRLF)
EndIf

\$DayIndex    += 1
\$LoopCount   += 1

WEnd

\$Array_Index += 1
\$dataIndex   += 1
\$dCount      += 1

WEnd

MsgBox(\$MB_ICONINFORMATION, "Scheduler_Bot", "Finished Sending Data", 2)

EndFunc```

Edited by nooneclose
##### Share on other sites

I am still trying to figure this out. Not solved yet.

Edited by nooneclose
##### Share on other sites

I figured it out here is a good chunk of the finished code:

```#include <Array.au3>                                ; Allows arrays
#include <date.au3>                                 ; Allows Date functions
#include <Misc.au3>                                 ; Allows the "is pressed" function to be used
#include <MsgBoxConstants.au3>                      ; Allows message box to be used
#include <Excel.au3>                                ; Allows Excel functions
#include <File.au3>                                 ; Allows file manipulation
#include <Word.au3>                                 ; Allows certain word functions
#include <Constants.au3>                            ; Allows constants to be used
#include <StaticConstants.au3>                      ; Allows static constants
#include "ExtMsgBox.au3"                            ; Allows custom MsgBoxs

Global \$WeekASunday                                 ; First Sunday of the Semester always week A
Global \$WeekAMonday                                 ; First Monday of the Semester always week A
Global \$WeekATuesday                                ; First Tuesday of the Semester always week A
Global \$WeekAWednesday                              ; First Wednesday of the Semester always week A
Global \$WeekAThursday                               ; First Thursday of the Semester always week A
Global \$WeekAFriday                                 ; First Friday of the Semester always week A
Global \$WeekASaturday                               ; First Saturday of the Semester always week A
Global \$modResult = 9999999                         ; Is what the name suggests / Given crazy numbr for a reason - see line 1027-1833

Global \$today = _NowDate()                          ; Gets todays (current) date

; Step 7
Func SendData()

;*******************************************************************************
; Sends all collected data to the Excel file in correct order for Upload
;*******************************************************************************
MsgBox(\$MB_ICONINFORMATION, "Scheduler_Bot", "Sending Data", 2)

; Loop Counters
\$LoopCount   = 0
\$Array_Index = 0
\$DayIndex    = 0
\$dataIndex   = 0

; Counter for the day of the week
Local \$dCount = 2

; Counter for the numbers of Ys
Local \$yesCount = 0

; Excel Write Counter (VERY IMPORTANT!)
Local \$EWriteCount = 2

; Declare the global shift arrays (Sunday - Saturday)
Global \$ShiftDaySU[100][600]
Global \$ShiftDayM[100][600]
Global \$ShiftDayT[100][600]
Global \$ShiftDayW[100][600]
Global \$ShiftDayR[100][600]
Global \$ShiftDayF[100][600]
Global \$ShiftDayS[100][600]
Global \$sDates[400]

While \$Formatted_Names[\$dataIndex] <> \$Formatted_Names[\$IndexRows] ; \$LoopCount < \$IndexRows

\$ACounter = 0 ; Array counter

; Gets the Start date from the array
\$Temp = \$StartDate[\$Array_Index]
\$TempStart = StringLeft(\$Temp, 8)
\$StartTempYear  = StringLeft(\$TempStart, 4)
\$StartTempMonth = StringMid(\$TempStart, 5, 2)
\$StartTempDay   = StringRight(\$TempStart, 2)

; Gets the End date from the array
\$Temp = \$EndDate[\$Array_Index]
\$TempEnd = StringLeft(\$Temp, 8)
\$EndTempYear  = StringLeft(\$TempEnd, 4)
\$EndTempMonth = StringMid(\$TempEnd, 5, 2)
\$EndTempDay   = StringRight(\$TempEnd, 2)

; The starting date (in value form)
\$sdate = _DateToDayValue(\$StartTempYear, \$StartTempMonth, \$StartTempDay)    ;_DateToDayValue(2019,1,9)
;ConsoleWrite(@CRLF & "\$start date  " & \$sdate & @CRLF & @CRLF)

; The ending date (in value form)
\$edate = _DateToDayValue(\$EndTempYear, \$EndTempMonth, \$EndTempDay)          ;_DateToDayValue(2019,4,9)
;ConsoleWrite(@CRLF & "\$end date  " & \$edate & @CRLF & @CRLF)

; Variables for readability
Local \$iYear, \$iMonth, \$iDay

;Stores what day of the week that shift lands on
Local \$tSU = _Excel_RangeRead(\$OpenWorkbook, Default, "I" & \$dCount)
If \$tSU = "Y" Then
\$yesCount = 1
EndIf
Local \$tM  = _Excel_RangeRead(\$OpenWorkbook, Default, "J" & \$dCount)
If \$tM = "Y" Then
\$yesCount += 1
EndIf
Local \$tT  = _Excel_RangeRead(\$OpenWorkbook, Default, "K" & \$dCount)
If \$tT = "Y" Then
\$yesCount += 1
EndIf
Local \$tW  = _Excel_RangeRead(\$OpenWorkbook, Default, "L" & \$dCount)
If \$tW = "Y" Then
\$yesCount += 1
EndIf
Local \$tR  = _Excel_RangeRead(\$OpenWorkbook, Default, "M" & \$dCount)
If \$tR = "Y" Then
\$yesCount += 1
EndIf
Local \$tF  = _Excel_RangeRead(\$OpenWorkbook, Default, "N" & \$dCount)
If \$tF = "Y" Then
\$yesCount += 1
EndIf
Local \$tS  = _Excel_RangeRead(\$OpenWorkbook, Default, "O" & \$dCount)
If \$tS = "Y" Then
\$yesCount += 1
EndIf

ConsoleWrite(@CRLF & @CRLF)
ConsoleWrite(\$tSU & @CRLF)
ConsoleWrite(\$tM & @CRLF)
ConsoleWrite(\$tT & @CRLF)
ConsoleWrite(\$tW & @CRLF)
ConsoleWrite(\$tR & @CRLF)
ConsoleWrite(\$tF & @CRLF)
ConsoleWrite(\$tS & @CRLF)
ConsoleWrite(@CRLF & @CRLF)

; Check to see if they work every other week
Local \$rotationWeek  = _Excel_RangeRead(\$OpenWorkbook, Default, "U" & \$dCount)
Local \$repeatWeek    = _Excel_RangeRead(\$OpenWorkbook, Default, "V" & \$dCount)

While \$yesCount > 0

If \$tSU = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 1 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDaySU[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDaySU[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "SU " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Sunday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tSU = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 1 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Sunday " & \$WeekASunday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekASunday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf

ElseIf \$tM = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 2 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayM[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayM[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "M " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Monday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tM = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 2 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Monday " & \$WeekAMonday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekAMonday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf

ElseIf \$tT = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 3 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayT[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayT[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "T " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Tuesday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tT = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 3 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Tuesday " & \$WeekATuesday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekATuesday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf

ElseIf \$tW = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 4 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayW[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayW[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "W " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Wednesday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tW = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 4 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Wednesday " & \$WeekAWednesday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekAWednesday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf

ElseIf \$tR = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 5 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayR[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayR[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "R " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Thursday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tR = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 5 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Thursday " & \$WeekAThursday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekAThursday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf

ElseIf \$tF = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 6 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayF[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayF[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "F " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Friday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tF = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 6 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Friday " & \$WeekAFriday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekAFriday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf

ElseIf \$tS = "Y" Then
If \$repeatWeek = 1 Then
Local \$MainLoopCount = 0
For \$Index = \$sdate To \$edate
; Send appropriate Work Shift dates \$rotationWeek
; Week A Shift
If \$modResult = 0 And \$MainLoopCount >= 1 Then
\$Index += 1
; Week B Shift
ElseIf \$modResult <> 0 And \$modResult <> 9999999 And \$MainLoopCount >= 1 Then
\$Index += 2
EndIf

_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)
If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 7 Then
\$Temp = \$iYear & "-" & \$iMonth & "-" & \$iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000"
\$ShiftDayS[\$ACounter][\$DayIndex] = \$Temp
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$ShiftDayS[\$ACounter][\$DayIndex], "AI" & \$EWriteCount)

; Send Name
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Formatted_Names[\$dataIndex], "AA" & \$EWriteCount)
; Send Start Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$StartTimes[\$dataIndex], "AB" & \$EWriteCount)
; Send End Time
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$EndTimes[\$dataIndex], "AC" & \$EWriteCount)
; Send Work Hours
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$HoursWorked[\$dataIndex], "AD" & \$EWriteCount)
; Send Work Group
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkGroup[\$dataIndex], "AE" & \$EWriteCount)
; Send Department
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkDepartment, "AF" & \$EWriteCount)
; Send Supervisor
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$Supervisors[\$dataIndex], "AG" & \$EWriteCount)
; Send Notes
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, \$WorkNotes[\$dataIndex], "AH" & \$EWriteCount)

; Send Shift Number
\$tempStime = StringReplace(\$StartTimes[\$dataIndex], ":", "")
\$tempEtime = StringReplace(\$EndTimes[\$dataIndex], ":", "")
_Excel_RangeWrite(\$OpenWorkbook, \$OpenWorkbook.ActiveSheet, "S " & \$tempStime & "-" & \$tempEtime, "AJ" & \$EWriteCount)

\$ACounter    += 1
\$EWriteCount += 1

ConsoleWrite(@CRLF & "In Main loop: Saturday " & \$Temp & @CRLF)

EndIf

\$MainLoopCount += 1

Next

\$yesCount -= 1
\$tS = "N"
\$modResult = 9999999
Else
Local \$LoopCount = 0
; Get first potential work day
For \$Index = \$sdate To \$edate
_DayValueToDate(\$Index, \$iYear, \$iMonth, \$iDay)
; Finds the day based on its numerical value (1 = Sunday)

If _DateToDayOfWeek(\$iYear, \$iMonth, \$iDay) = 7 Then
\$TempFirstShift = \$iYear & "/" & \$iMonth & "/" & \$iDay & " " & "00" & ":" & "00" & ":" & "00"
EndIf

; Makes sure the For loop only loops once
If \$LoopCount = 7 Then ExitLoop
\$LoopCount += 1
Next

ConsoleWrite(@CRLF & "Week A Saturday " & \$WeekASaturday & @CRLF)
ConsoleWrite(@CRLF & "Potential first shift " & \$TempFirstShift & @CRLF)

; Use _Datediff
Local \$iDateCalc = _DateDiff('D', \$WeekASaturday, \$TempFirstShift)

ConsoleWrite(@CRLF & "Difference in days is " & \$iDateCalc & @CRLF)

; Use Mod
\$modResult = Mod(\$iDateCalc, 14)
ConsoleWrite(@CRLF & "Mod Result " & \$modResult & @CRLF)

; check to see if it is suppose to be week a or week b
If \$rotationWeek = 1 And \$modResult = 0 Then
; Keep going as planned
ElseIf \$rotationWeek = 2 And \$modResult = 0 Then
; Something strange is in the neighborhood
\$TempDateHolder = _DateAdd('d', 7, \$TempFirstShift)

ConsoleWrite(@CRLF & "Correct First Shift " & \$TempDateHolder & @CRLF)
ConsoleWrite(@CRLF & "Start date " & \$sdate & @CRLF)

\$tempStartDate = StringReplace(\$TempDateHolder, "/", "")

; Gets the Start date from the array
\$TempSD = \$tempStartDate
\$Temp_Start = StringLeft(\$TempSD, 8)
\$Start_TempYear  = StringLeft(\$Temp_Start, 4)
\$Start_TempMonth = StringMid(\$Temp_Start, 5, 2)
\$Start_TempDay   = StringRight(\$Temp_Start, 2)

\$sdate = _DateToDayValue(\$Start_TempYear, \$Start_TempMonth, \$Start_TempDay)
ConsoleWrite(@CRLF & @CRLF & "Start date After change " & \$sdate & @CRLF & @CRLF)

EndIf
; Set repeat week = 1 so the main loop will send the new dates
\$repeatWeek = 1
EndIf
Else
;Error Nothing equals "Y"
ConsoleWrite(@CRLF & "Error Nothing equals 'Y'" & @CRLF)
EndIf

\$DayIndex    += 1
\$LoopCount   += 1

WEnd

\$Array_Index += 1
\$dataIndex   += 1
\$dCount      += 1

WEnd

MsgBox(\$MB_ICONINFORMATION, "Scheduler_Bot", "Finished Sending Data", 2)

EndFunc```

## 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.

• ### Similar Content

• By Zaoka
HI,
for couple of years I'm using  Jos script for sending reports, email with excel attachment. But from last week i'm getting this error when sending excel or word attachment
message has lines too long for transport jpeg, pdf works with no problems, any sugestion ?

• I'm using the following:
Autoit 3.3.14.5
newly installed Beta 3.3.15.5
SQlite version 3380000 aka 3.38.0
I put sqlite3.dll and sqlite3_x64.dll in C:\Windows\System32 since many scripts depend on them.

I extended the output of _SQLite_Startup()
with:
ConsoleWrite("@AutoItX64 " & @AutoItX64 & @CRLF) ConsoleWrite("\$sDll_Filename " & \$sDll_Filename & @CRLF) ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)

Also using the script from https://www.autoitscript.com/autoit3/docs/libfunctions/_SQLite_Startup.htm for testing.

>Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\autoit3.exe "R:\Download\aasdf.au3" @AutoItX64 0 \$sDll_Filename sqlite3.dll _SQLite_LibVersion=0 >Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "R:\Download\aasdf.au3" @AutoItX64 1 \$sDll_Filename sqlite3_x64.dll _SQLite_LibVersion=3.38.0 >Running:(3.3.15.5):C:\Program Files (x86)\AutoIt3\Beta\autoit3.exe "R:\Download\aasdf.au3" @AutoItX64 0 \$sDll_Filename sqlite3.dll _SQLite_LibVersion=0 >Running:(3.3.15.5):C:\Program Files (x86)\AutoIt3\Beta\autoit3_x64.exe "R:\Download\aasdf.au3" @AutoItX64 1 \$sDll_Filename sqlite3_x64.dll _SQLite_LibVersion=3.38.0

Why doesn't it work in 32bit, despite me having the 32bit sqlite.dll? Autoit urges running scripts in 32bit mode and Scite starts scripts just in 32bit mode without the flag?
With #AutoIt3Wrapper_UseX64=Y it just works, both normal Autoit and beta!
sqlite3.dll sqlite3_x64.dll
• By Iraj
Hello Team, Greetings!
Is there any way to run any 3rd party application silently in background without the GUI getting in the front ?
I was implementing angry-ip scanner with autoit & wanted the angry-ip application to run in background quietly as I am copying its output to other file on completion. is there any way to achieve my query?
Below is code I tried:
\$range = "192.168.0.1 192.168.0.255" ShellExecuteWait("C:\Windows\DDM\ipscan.exe","-f:range "&\$iprange&" -q -o C:\temp\ScanResults.csv","","open",@SW_HIDE) Thanks!
• By goku200
I have an Autoit script that lists files from a folder into an array list. Is there a way to separate the filenames by an underscore and include the id, version, name and date into separate columns in Excel.
Example of filename:
12345_v1.0_TEST Name [12345]_01.01.2022.html
12345 would be in one column
v1.0 would be in another column
TEST Name [12345] would be in another column
01.01.2022 would be in another column
.html would be in another column
Note: filenames always change each day.
Here is my code that lists the files into column C and then writes the column Headers into Column D, E, F, G. Just need some help with separating them into columns by the _ delimiter

• I am having a issue of whenever I try to _Excel_RangeWrite a formula that references another workbook I am getting an error @4 and @extended -2147352567

#include <Excel.au3> #include <MsgBoxConstants.au3> Local \$oExcel = _Excel_Open() Local \$oWorkbook = _Excel_BookNew(\$oExcel) _Excel_RangeWrite(\$oWorkBook,Default,"=IF(D2=D1,"",VLOOKUP(D2,'J:\Temporary Files\FolderName\FileName.xlsx'!\$A:\$B,2,0))","W2",False) If @error Then Exit MsgBox(\$MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example 1", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox(\$MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example 1", "String successfully written.") I am not a 100% sure, but I am guessing this is because I have "" and '' in the formula. However, I am not sure how this can best be resolved.

×

• Wiki

• Back

• #### Beta

• Git
• FAQ
×
• Create New...