Dato

uden at have testet det, men kan du ikke bruge noget a la:

SELECT MIN(fodselsdato) fra blaabog where (fodselsdato >= date())

jeg skal bruge en måde at trække datoen ud uden år... så hvis jeg får en dato:

04-01-1985 så skal jeg bruge 04-01

virker lidt maerkeligt for mig, da den anden maade giver dig den naeste foedselsdag... men hvis du er interesseret i det andet, saa har jeg lige et spg... hvilken db bruger du? Access?

Jeg bruger access. For det første så virker din kode ikke, er det ikke lidt psoudo. Og hvad jeg kan gennemskue, så er det akkurat det samme den gør, som min kode.

Hvis du bruger en Access DB skal din SQL se således ud
SELECT TOP 1 * FROM blaabog WHERE fodselsdato >= DateValue('" & Date() & "');

dark-mixer >> den gør det samme som min kode, finder den næste dato, og da mine datoer i databasen også indeholder år, vil den finde fødselsdagen for folk der ikke er født endnu.

ja, det var vist lidt af en no brainer... undskyld

så har jeg opdateret point til 60, da jeg virkelig har brug for hjælp!

hvis du vil vise dag og måned den kan du også bruge i din SQL sætning:
<%=Day(date()) & month(date())%>

hvis feltet fodselsdato har datatypen DatoogKlokkeset:
strSQL = "Select TOP 1 * From blaabog WHERE (fodselsdato >= day(date()) and fodselsdato >= month(date())) ORDER BY fodselsdato"

hossein >> jeps der var den, tak!

nææ... det virker ikke. Her viser den bare den ældste dato

kan du ikke hjælpe når nu du har fået point, ellers skal jeg have dem tilbage.

da du har top, jeg tror den finder den største værdi.

ja, den finder den ældste dato, det skal den ikke. Den skal finde den næste fødselsdag, altså den næste dato, uden år.

Hvis jeg nu har 3 dato'er:

19-04-1980
27-01-1985
22-02-1979

... så skal den vise: 27-01-1985

hvad så Bjarke?

hvilken datatype har felten fodselsdato?

Kortdatoformat (dd-mm-yyyy)

kunne du ikke hjælpe?

jo jo! det giver en tilfredsstillende svar:

<html>
<head>
</head>
<body>
<%
    Session.LCID = 1030
    Set    strConn = Server.CreateObject("ADODB.Connection")
    strConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &  Server.Mappath("data.mdb")
    Set RS = Server.CreateObject("ADODB.Recordset")

    strSQL = "Select top 1 fodselsdato, DateSerial(Year(DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato)))-" &_
            "Sgn(DateDiff('yyyy',DateSerial(Year(DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato)))+" &_
            "(Sgn(DateDiff('y',DateAdd('d',1,DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato))),Now))+1)," &_
            "Month(DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato)))," &_
            "Day(DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato)))),Now))," &_
            "Month(DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato)))," &_
            "Day(DateSerial(Year(Now),Month(fodselsdato),Day(fodselsdato)))) AS Nufodselsdato FROM links order by month(fodselsdato)"

    RS.Open strSQL, strConn, 3, 1

    RS.MoveFirst
    Do While Not RS.EOF
        Response.Write "Fødselsdato = " & RS("fodselsdato")
        If DateDiff("y",RS("Nufodselsdato"),Date) = 0 Then
            Response.Write "  Har Fødselsdag, idag!"
        Else
            Response.Write "  Har Fødselsdag om " & DateDiff("y",Now,RS("Nufodselsdato")) & " dage."
        End If
        Response.Write "<br>" & VBCrLf
        RS.MoveNext
    Loop

    RS.Close
    strConn.Close
    Set RS = Nothing
    Set strConn = Nothing
%>
</body>
</html>

hvis du kører den så er resultatet:
Fødselsdato = 01-01-2003 Har Fødselsdag om 23 dage. (er ikke blevet født endnu)
Fødselsdato = 27-01-1985 Har Fødselsdag om 49 dage.

min tabel er sådan:
ID | Fod
1  | 19-04-1980
2  | 27-01-1985
3  | 22-02-1979
4  | 24-11-1985
5  | 01-01-2003 (det var bare en forsøg!)

men hoved problemet er det at nulstille dagen i dag dvs. Date() også bruge den men det kni.. lidt, desuden vi befinder os i måned 12 som er den største, så må vi se om den duer efter nyt år! jo, det gør den :)

ups i tabelen Fod --> fodselsdato