Descrição
DateWorkDay - Quantidade de Dias uteis entre duas Datas.
|
Sintaxe
| DateWorkDay( <dDate01>, <dDate02>, <lSabado>, <lDomingo>, <lFeriado> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
dDate01 |
Date |
Data Inicial |
|
X |
|
| 02 |
dDate02 |
Date |
Data Final |
|
X |
|
| 03 |
lSabado |
Boolean |
Considera Sábado |
.T. |
|
|
| 04 |
lDomingo |
Boolean |
Considera Domingo |
.T. |
|
|
| 05 |
lFeriado |
Boolean |
Considera Feriado |
.T. |
|
|
Retorno
| Retorno |
Tipo |
Descrição |
| nRet |
Numérico
|
Dias Uteis
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function WorkDay()
Local dDate01 := FirstDate( Date() )
Local dDate02 := LastDate( Date() )
MsgInfo( 'Valor 01: ' + cValtoChar( dDate01 ) ;
+ CRLF + 'Valor 02: ' + cValtoChar( dDate02 ) ;
+ CRLF + 'Retorno: ' + cValtoChar( DateWorkDay( dDate01, dDate02 ) ), 'UniversoADVPL' )
Return( Nil )
Resultado
Informações adicionais
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
