dato hjælp - haster

regner den ud i et andet format og konvertere tilbage....

jeg har mugligvis en løsning, men den er en smule bøvlet, så lad os lige vente og se om der ikke skulle komme noget smart...

min inkludere if sætninget...

men her kommer den...

----------------------------------------------------------

Dim MaanedArr, Date

MaanedArr = 31,28,31,30,31,30,31,31,30,31,30,31
MaanedArr = Split(MaanedArr, ",")

Date = day(date)-1
If Date = 0 Then
  Date = MaanedArr(month(Date)-2)
End If
---------------------------------------------------------

håber du forstår ideen, det er lige hurgtigt kodet, så der er nok lidt arbejde, du skal jo oxo have inkluderet noget med måneden, og skudår...

yesterday = DataAdd("d", -1, Date)

sql = "SELECT * FROM aktiviteter WHERE datofra = #" & yesterday & "# ORDER BY datofra ASC"

hvad er d ? nu går den helt bananas her....

yesterday = DataAdd("d", -1, Date)

sql = "SELECT * FROM aktiviteter WHERE datofra = #"& Year(yesterday) &"-"& Month(yesterday) &"-"& Day(yesterday) &"# ORDER BY datofra ASC"

hum,
det giver slet ingen aktiviteter....

Year(yesterday) &"-"& Month(yesterday) &"-"& Day(yesterday)
giver: 1899-12-30 ???

Det må være et år 2000 problem?

Mon ikke denne her er nemmest:

Dato = Date - 1 ' Sæt Dato til dagen før

sql = "SELECT * FROM aktiviteter WHERE datofra > #" & Year(Dato) & "-" & month(Dato) & "-" & day(dato) & "# ORDER BY datofra ASC"

Jo, jeg takker jer.