Thanks Alexander it works now with variables
my code gives 50 days and it should be 71.
DateTime.DateFormat = "dd-MM-yyyy"
datumaanmaak ="30-6-2024"
datum7="20-4-2024"
Dim Date1 As Long = DateTime.DateParse(datum7)
Dim Date2 As Long = DateTime.DateParse(datumaanmaak)
Dim ID As B4XSet = B4XCollections.CreateSet2(Array(2, 3, 4, 5, 6)) ' Number of days excluding Sunday and Saturday
Dim WorkingDays As Int = ElapsedDaysBetween2Dates(Date1, Date2, ID)
DateTime.DateFormat = "dd-MM-yyyy"
Log(WorkingDays)