Ir para conteúdo
  • 0

dCalendario com coluna 1º Quinzena, 2º Quinzena de cada mês.


Francis_1982
Ir para solução Solucionado por Erick Oliveira ,

Pergunta

  • Alunos

Bom dia Pessoal, alguem poderia me dar uma ajuda por gentileza, estou enferrujado, parei com os estudos e praticas, estou tentando voltar à rotina.

Estou precisando criar em uma Dcalendario básica, uma coluna indicando a referencia quinzenal.

Do dia 01 ao 15 de cada mês, 1º Quin
De 16 ao ultimo dia de cada Mês, 2º Quin

Como faria essa coluna? Alguem poderia me ajudar por favor?

Obrigado

let
    Fonte = List.Dates(#date(2020, 1, 1), 7360, #duration(1, 0, 0, 0)),
    ConvertidoTabela = Table.FromList(Fonte, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    ColunasRenomeadas = Table.RenameColumns(ConvertidoTabela,{{"Column1", "Data"}}),
    Data = Table.TransformColumnTypes(ColunasRenomeadas,{{"Data", type date}}),
    Ano = Table.AddColumn(Data, "Ano", each Date.Year([Data]), Int64.Type),
    Mês = Table.AddColumn(Ano, "Mês", each Date.Month([Data]), Int64.Type),
    DiadoAno = Table.AddColumn(Mês, "Dia do Ano", each Date.DayOfYear([Data]), Int64.Type),
    NomedoMês = Table.AddColumn(DiadoAno, "Nome do Mês", each Date.MonthName([Data]), type text),
    Maiúscula = Table.TransformColumns(Table.TransformColumnTypes(NomedoMês, {{"Ano", type text}}, "pt-BR"),{{"Nome do Mês", Text.Upper, type text}, {"Ano", Text.Upper, type text}}),
    MesANo = Table.AddColumn(Maiúscula, "Mes Ano", each Text.Combine({[Nome do Mês], [Ano]}, "/"), type text),
    MesAbrev = Table.AddColumn(MesANo, "Mes Abrev", each Text.Combine({Text.Upper(Date.ToText(Date.From([Mes Ano]), "MMM")), "/", Date.ToText(Date.From([Mes Ano]), "yy")}), type text),
    Trimestre = Table.AddColumn(MesAbrev, "Trimestre", each Date.QuarterOfYear([Data]), Int64.Type),
    TrimestreAno = Table.AddColumn(Trimestre, "Trimestre Ano", each if [Trimestre] = 1 then "1º Trim" else if [Trimestre] = 2 then "2º Trim" else if [Trimestre] = 3 then "3º Trim" else "4º Trim"),
    TipoAlterado = Table.TransformColumnTypes(TrimestreAno,{{"Trimestre Ano", type text}}),
    TipoAnoNumero = Table.TransformColumnTypes(TipoAlterado,{{"Ano", Int64.Type}}),
    #"Personalização Adicionada" = Table.AddColumn(TipoAnoNumero, "Id MesAno", each [Ano] * 100 + [Mês]),
    TipoIDMesAno = Table.TransformColumnTypes(#"Personalização Adicionada",{{"Id MesAno", Int64.Type}})
in
    TipoIDMesAno

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 1
  • Alunos
  • Solução

Bom dia @Francis_1982;

Crie uma coluna personalizada com a lógica abaixo:

if Date.Day([Data]) <= 15 then "1º Quin" else "2º Quin"

 

 

let
    Fonte = List.Dates(#date(2020, 1, 1), 7360, #duration(1, 0, 0, 0)),
    ConvertidoTabela = Table.FromList(Fonte, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    ColunasRenomeadas = Table.RenameColumns(ConvertidoTabela,{{"Column1", "Data"}}),
    Data = Table.TransformColumnTypes(ColunasRenomeadas,{{"Data", type date}}),
    Ano = Table.AddColumn(Data, "Ano", each Date.Year([Data]), Int64.Type),
    Mês = Table.AddColumn(Ano, "Mês", each Date.Month([Data]), Int64.Type),
    DiadoAno = Table.AddColumn(Mês, "Dia do Ano", each Date.DayOfYear([Data]), Int64.Type),
    NomedoMês = Table.AddColumn(DiadoAno, "Nome do Mês", each Date.MonthName([Data]), type text),
    Maiúscula = Table.TransformColumns(Table.TransformColumnTypes(NomedoMês, {{"Ano", type text}}, "pt-BR"),{{"Nome do Mês", Text.Upper, type text}, {"Ano", Text.Upper, type text}}),
    MesANo = Table.AddColumn(Maiúscula, "Mes Ano", each Text.Combine({[Nome do Mês], [Ano]}, "/"), type text),
    MesAbrev = Table.AddColumn(MesANo, "Mes Abrev", each Text.Combine({Text.Upper(Date.ToText(Date.From([Mes Ano]), "MMM")), "/", Date.ToText(Date.From([Mes Ano]), "yy")}), type text),
    Trimestre = Table.AddColumn(MesAbrev, "Trimestre", each Date.QuarterOfYear([Data]), Int64.Type),
    TrimestreAno = Table.AddColumn(Trimestre, "Trimestre Ano", each if [Trimestre] = 1 then "1º Trim" else if [Trimestre] = 2 then "2º Trim" else if [Trimestre] = 3 then "3º Trim" else "4º Trim"),
    TipoAlterado = Table.TransformColumnTypes(TrimestreAno,{{"Trimestre Ano", type text}}),
    TipoAnoNumero = Table.TransformColumnTypes(TipoAlterado,{{"Ano", Int64.Type}}),
    #"Personalização Adicionada" = Table.AddColumn(TipoAnoNumero, "Id MesAno", each [Ano] * 100 + [Mês]),
    TipoIDMesAno = Table.TransformColumnTypes(#"Personalização Adicionada",{{"Id MesAno", Int64.Type}}),
    Quinzena = Table.AddColumn(TipoIDMesAno, "Quinzena", each if Date.Day([Data]) <= 15 then "1º Quin" else "2º Quin")
in
    Quinzena

 

Link para o comentário
Compartilhar em outros sites

  • 0
  • Alunos
23 minutos atrás, Erick Oliveira disse:

Bom dia @Francis_1982;

Crie uma coluna personalizada com a lógica abaixo:

if Date.Day([Data]) <= 15 then "1º Quin" else "2º Quin"

 

 

let
    Fonte = List.Dates(#date(2020, 1, 1), 7360, #duration(1, 0, 0, 0)),
    ConvertidoTabela = Table.FromList(Fonte, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    ColunasRenomeadas = Table.RenameColumns(ConvertidoTabela,{{"Column1", "Data"}}),
    Data = Table.TransformColumnTypes(ColunasRenomeadas,{{"Data", type date}}),
    Ano = Table.AddColumn(Data, "Ano", each Date.Year([Data]), Int64.Type),
    Mês = Table.AddColumn(Ano, "Mês", each Date.Month([Data]), Int64.Type),
    DiadoAno = Table.AddColumn(Mês, "Dia do Ano", each Date.DayOfYear([Data]), Int64.Type),
    NomedoMês = Table.AddColumn(DiadoAno, "Nome do Mês", each Date.MonthName([Data]), type text),
    Maiúscula = Table.TransformColumns(Table.TransformColumnTypes(NomedoMês, {{"Ano", type text}}, "pt-BR"),{{"Nome do Mês", Text.Upper, type text}, {"Ano", Text.Upper, type text}}),
    MesANo = Table.AddColumn(Maiúscula, "Mes Ano", each Text.Combine({[Nome do Mês], [Ano]}, "/"), type text),
    MesAbrev = Table.AddColumn(MesANo, "Mes Abrev", each Text.Combine({Text.Upper(Date.ToText(Date.From([Mes Ano]), "MMM")), "/", Date.ToText(Date.From([Mes Ano]), "yy")}), type text),
    Trimestre = Table.AddColumn(MesAbrev, "Trimestre", each Date.QuarterOfYear([Data]), Int64.Type),
    TrimestreAno = Table.AddColumn(Trimestre, "Trimestre Ano", each if [Trimestre] = 1 then "1º Trim" else if [Trimestre] = 2 then "2º Trim" else if [Trimestre] = 3 then "3º Trim" else "4º Trim"),
    TipoAlterado = Table.TransformColumnTypes(TrimestreAno,{{"Trimestre Ano", type text}}),
    TipoAnoNumero = Table.TransformColumnTypes(TipoAlterado,{{"Ano", Int64.Type}}),
    #"Personalização Adicionada" = Table.AddColumn(TipoAnoNumero, "Id MesAno", each [Ano] * 100 + [Mês]),
    TipoIDMesAno = Table.TransformColumnTypes(#"Personalização Adicionada",{{"Id MesAno", Int64.Type}}),
    Quinzena = Table.AddColumn(TipoIDMesAno, "Quinzena", each if Date.Day([Data]) <= 15 then "1º Quin" else "2º Quin")
in
    Quinzena

 

@Erick Oliveira

Link para o comentário
Compartilhar em outros sites

Faça login para comentar

Você vai ser capaz de deixar um comentário após fazer o login



Entrar Agora
×
×
  • Criar Novo...