Retorna uma lista de períodos até a data atual, conforme o tipo e quantidade de períodos parametrizados.
Parâmetros
| Nome | Tipo | Descrição |
|---|---|---|
| cTipo | Caracter | Código com o tipo do período. Valores aceitos: D (Diário), S (Semanal), Q (Quinzenal), M(Mensal). |
| cPeriodos | Caracter | Quantidade de períodos. |
Retorno
| Tipo | Descrição |
|---|---|
| Array | Matriz da lista de períodos anteriores com as colunas de data inicio e fim de cada período. |
Exemplo de Uso
User Function perPassado()
Local lRet := .T.
Set(_SET_DATEFORMAT, 'dd/mm/yyyy')
Private dDatabase := cToD("31/10/2023")
ConOut(REPLICATE("-",70))
//Tipo D: {31/10/2023,31/10/2023}|{30/10/2023,30/10/2023}|{29/10/2023,29/10/2023}|{28/10/2023,28/10/2023}|{27/10/2023,27/10/2023}
ConOut("Tipo D: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("D","4")))
//Tipo S: {29/10/2023,31/10/2023}|{22/10/2023,28/10/2023}|{15/10/2023,21/10/2023}|{08/10/2023,14/10/2023}|{01/10/2023,07/10/2023}
ConOut("Tipo S: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("S","4")))
//Tipo Q: {16/10/2023,31/10/2023}|{01/10/2023,15/10/2023}|{16/09/2023,30/09/2023}|{01/09/2023,15/09/2023}|{16/08/2023,31/08/2023}
ConOut("Tipo Q: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("Q","4")))
//Tipo M: {01/10/2023,31/10/2023}|{01/09/2023,30/09/2023}|{01/08/2023,31/08/2023}|{01/07/2023,31/07/2023}|{01/06/2023,30/06/2023}
ConOut("Tipo M: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("M","4")))
ConOut(REPLICATE("-",70))
Return lRet