Problem med dagar.

[Bluefoxse1]

Jag har ett problem som jag hoppas någon kan lösa åt mig:

 

när jag skriver in ett datum i ett fält så läggs slutdatum upp med hjälp av :

 

=[nasta]+[Text68]

 

Vilket då generar ett datum där det står t.ex Hämtas 2009-09-01 lämnas 2009-09-03.

 

I kolumnen nasta skriver jag alltså ett hämtningsdatum och i text68 står det hur många dagar det skall gå till lämning t.ex 2.

 

Vad jag vill är att få någon typ av varning för röda dagar på båda datumen.

 

Hoppas någon förstår vad jag svamlar om och har en lösning.

 

Tack på förhand

 

[Kotten75]

Är Du ute efter alla helgdagar, så vet jag inte, men för att ändra exempelvis textfärg baserat på vilken veckodag datumet avser, så kanske detta kan leda dig på rätt väg.

 

dtmLämnas är det första datumet Du skriver in och det är också där allt sker.

txtFaktor är antalet dagar mellan de två datumen.

Notera att det som standard är söndag som är veckodag 1.

Private Sub dtmLämnas_AfterUpdate()

If Weekday(Me!dtmLämnas) = 1 Then
   dtmLämnas.ForeColor = "1452778"
Else
   dtmLämnas.ForeColor = "000000"
End If

dtmHämtas = Me![dtmLämnas] + Me![txtFaktor]

If Weekday(Me!dtmHämtas) = 1 Then
   dtmHämtas.ForeColor = "1452778"
Else
   dtmHämtas.ForeColor = "000000"
End If

End Sub

 

 

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

Glöm inte att tilldela poäng, om jag mot förmodan skulle ha gjort något bra.

 

[Erki]

För att ta hänsyn till röda dagar kan du se en lösning i //eforum.idg.se/viewmsg.asp?EntriesId=927777#928815

 

Den får nog anpassas till din situation men grunden för att räkna bort "icke arbetsdagar" har du där.