Just nu i M3-nätverket
Jump to content

Problem med dagar.


Bluefoxse1

Recommended Posts

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

 

Link to comment
Share on other sites

Ä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. ;)

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...