Hi,
sieht jemand eine Möglichkeit, die Date-Funktion
var = date - (3 bis 10) über einen Zufallsgenerator so zu steuern, daß
a. die Tage in dem Zeitkorridor zwischen 3 bis 10 Tage rückwärts zufällig berechnet werden,
b. wenn ein Sonnabend, Sonntag oder bundesdeutsche gesetzlicher Feiertag ausgegeben wird, ein neues Datum berechnet wird?
Danke und Gruß
Wilhelm
Hallo,
Habe folgenden theoretischen Ansatz:
do until var=0
var=Date()-rnd(7)+3
if feiertag(var) then var =0
loop
function Feiertag(datDatum as date) as boolean
dim Feiertage(1 to 20) as string
feiertag(1) = „1.1.“ & year(now())
feiertag(2) = „1.5.“ & year(now())
.
.
.
for i = 1 to ubound(feiertage)
if datdtum =cdate(feiertag(i) then
feiertag = true
exit function
end if
next
end function
Hoffe geholfen zu haben.
Mfg CB