Descrição
| 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! 😎