| re : Algoritmo per il calcolo dei sabati,domeniche e di pasqua |
| Fabio Barbieri |
Per chi fosse interessato ...
ho fatto
Dim Vett
Dim bFlag As Boolean
Redim Vett(9) As String
Dim vindex
Vett(0) = "01/01"
Vett(1) = "06/01"
Vett(2) = "25/04"
Vett(3) = "02/06"
Vett(4) = "15/08"
Vett(5) = "01/11"
Vett(6) = "07/11"
Vett(7) = "08/11"
Vett(8) = "25/11"
Vett(9) = "26/11"
Dim dateTime As New NotesDateTime( Today )
While icount <> 5
Call dateTime.AdjustDay( 1 )
iSett = Weekday(dateTime.DateOnly)
\'non devo conteggiare
\'7 sabato
\'1 domenica
If iSett <> 7 Then
If iSett <> 1 Then
vindex = Arraygetindex(Vett, Left(dateTime.DateOnly,5))
If Isnull(vindex) Then
icount = icount + 1
End If
End If
End If
Wend
Source.Document.data_scad_bonifico = dateTime.DateOnly
|
Algoritmo per il calcolo dei sabati,domeniche e di... - Fabio Barbieri -
re : Algoritmo per il calcolo dei sabati,domeniche... - cyberflaz -
re... : Algoritmo per il calcolo dei sabati,domeni... - maci -
 re : Algoritmo per il calcolo dei sabati,domeniche... - Fabio Barbieri -
re... : Algoritmo per il calcolo dei sabati,domeni... - maci -
|