Dato spørgsmål: Find dato i en range

Function ValidRequest(userRequestedDate,startFerie,slutFerie)
  If userRequestedDate>=startFerie And userRequestedDate<=slutFerie Then ValidRequest=False Ele ValidRequest=True
End Function

Burde vist gøre det.

Hov, der sneg sig en typo ind:

Function ValidRequest(userRequestedDate,startFerie,slutFerie)
  If userRequestedDate>=startFerie And userRequestedDate<=slutFerie Then ValidRequest=False Else ValidRequest=True
End Function

Okay, har fundet en løsning:

function isRequestedDateVacationTime(RequestedDate, startDate, endDate)
    dim r, s, e, dateSpan, returnVal
    returnVal = false
    r = cdate(day(RequestedDate) & "-" & month(RequestedDate) & "-" & year(RequestedDate))
    s = cdate(startDate)
    e = cdate(endDate)
    dateSpan = DateDiff("d", s, e)
   
    for i = 0 to dateSpan
        if r = dateAdd("d",i,s) then
            returnVal = true
            exit for
        end if
    next
   
    isRequestedDateVacationTime = returnVal
end function

Men det er måske en bøvlet måde at lave det på, w13?

Det vil jeg mene ja.

Men det kan godt være, min skulle være sådan her i stedet:

Function isRequestedDateVacationTime(RequestedDate,startDate,endDate)
  RequestedDate=CDate(RequestedDate)
  startDate=CDate(startDate)
  endDate=CDate(endDate)
  If RequestedDate>=startDate And RequestedDate<=endDate Then isRequestedDateVacationTime=False Else isRequestedDateVacationTime=True
End Function

Det skulle da meget gerne fungere.
Jeg kan ikke helt se logikken i din funktion, må jeg indrømme.

Du kan jo lige prøve, om min funktion virker, og ellers kan du bruge din egen, og oprette et svar og acceptere det, så du får pointene igen og spørgsmålet lukkes.

Altså, den der kan lave funktionen på færrest antal linier har vundet!
Jeg skulle bruge 15, du skulle bruge 7.

Så du vinder!

Altså, den der kan lave funktionen på færrest antal linier har vundet!
Jeg skulle bruge 15, du skulle bruge 7.

Så du vinder!

Men jeg beholder min egen, da den virker :-)

Jeg var bare ikke klar over, at man kunne bruge operatorerne < > = på datoer, på denne måde som du gør.

Ok. Jamen så husk at acceptere mit svar her nederst på siden. =)

(Egentlig brugte jeg kun 6, men Eksperten delte bare den femte linje i 2. ;)

? :)

Bare for at komme med et andet eksempel....

Hvis du så gemmer alle dine "lukket"-datoer i en tabel, så kigger den igennem samtlige datoer, i stedet for kun en periode ad gangen.


function isRequestedDateVacationTime(RequestedDate)
    Set objDictionary = Server.CreateObject("Scripting.Dictionary")
    strSQL="SELECT * FROM [Tbl_lukketdatoer]"
    set rs = Conn.Execute(strSQL)
    while not rs.EOF
        subKeyName  = DateValue(CDate(rs("lukket_dato")))
        subKeyValue = "Lukket"
        objDictionary.Add subKeyName, subKeyValue
        rs.MoveNext
    wend
    if(objDictionary.Exists(DateValue(CDate(RequestedDate))))then
        isRequestedDateVacationTime = True 'Vi har lukket!
    else
        isRequestedDateVacationTime = False 'Vi har åbent!
    end if
    Set objDictionary = Nothing
end function

her hvis du vil have lidt færrer linjer :P

function isRequestedDateVacationTime(RequestedDate)
    Set objDictionary = Server.CreateObject("Scripting.Dictionary")
    set rs = Conn.Execute("SELECT * FROM [Tbl_lukketdatoer]")
    while not rs.EOF
        objDictionary.Add DateValue(CDate(rs("lukket_dato"))), "Lukket"
        rs.MoveNext
    wend
    if(objDictionary.Exists(DateValue(CDate(RequestedDate))))then isRequestedDateVacationTime = True 'Vi har lukket! else isRequestedDateVacationTime = False 'Vi har åbent!
    Set objDictionary = Nothing
end function

#!/usr/bin/env python
def dato_mellem( dato, start, slut ):
    if start <= dato <= slut:
        return True
    return False