Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 02/10/2004 10:05 hs
ae galera blz To com uma duvida e com certeza só v.s. vão me ajudar eu quero um função que me retorne o numero de dias entre um intervalo de data e me de a quantidade de dias neste intervalo diminuindo um dia da semana que eu irei escolher tipo quintas feiras. se no intervalo tiver 20 dias e tiver 02 quintas feiras ele me retornasse 18 dias. sera que é possivel, desde de ja agradeço
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
|
|
Postada em 02/10/2004 12:04 hs
Segue algumas orientações para montar a função:
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
Postada em 02/10/2004 12:11 hs
não é bem isso que estou precisando
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
Tomás
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/10/2004 16:47 hs
Olá,
esta função abaixo funciona.
Private Function QTSDias(ByVal Data1 As Date, Data2 As Date, ExcetoDia As Byte) As Integer
'recebe duas datas e dia da semana q não deve constar no intervalo
'excetodia ( domingo=1 ... sábado=7)
Dim I As Integer
Do While Data1 <= Data2
If (Weekday(Data1) <> ExcetoDia) Then I = I + 1
Data1 = Data1 + 1
Loop
QTSDias = I
End Function
|
|
|
|
