Pular para o conteúdo principal

Funções para Data

Imagem
Por
> Funções para trabalhar com datas:

Função Descrição Sintaxe

Ctod Converte de caracter para data Ctod("20/05/2010")
Dtoc Converte de data para caracter Dtoc(Data)
Dtos Converte de data para string no formato
aaaammdd		 Dtos(Data)
Stod Converte de String para data no formato
dd/mm/aaaa		 Stod(Data)

Date Retorna a data atual Date()
Day Retorna o dia de uma data Day(Data)
Month Retorna o mes de uma data Month(Data)
Year Retorna o ano de uma data Year(Data)

cMonth Retorna uma cadeia de caracteres com nome do
mês em inglês		 cMonth(Data)
MesExtenso Retorna o nome do mês por extenso MesExtenso(nMes)

AnoMes Retorna o ano e o mês no formato
aaaamm		 AnoMes(Data)
MesDia Retorna o mês e dia no formato
mmdd		 MesDia(Data)

Day2Str Retorna o dia no formato DD Day2Str(Data)
Month2Str Retorna o mês no formato MM Month2Str(Data)
Year2Str Retorna o ano no formato AAAA Year2Str(Data)

DaySum Soma dia(s) a uma Data DaySum(Data, nDias)
DaySub Subtrai dia(s) de uma Data DaySub(Data, nDias)
MonthSum Soma mes(es) a uma Data MonthSum(Data,nMes)
MonthSub Subtrai mes(es) de uma Data MonthSub(Data, nMes)
YearSum Soma ano(s) a uma data YearSum(Data, nAno)
YearSub Subtrai ano(s) de uma data YearSub(Data, nAno)

DateDiffDay Diferenca em dias entre duas datas DateDiffDay(Data1, Data2)
DateDiffMonth Diferenca em meses entre duas
datas		 DateDiffMonth(Data1, Data2)
DateDiffYear Diferenca em anos entre duas datas DateDiffYear(Data1, Data2)
DateDiffYMD Diferenca de Anos, Meses e Dias entre duas
datas		 DateDiffYMD(Data1, Data2)

DiaSemana Retorna a Descrição do Dia da Semana
conforme parâmetros		 DiaSemana(Data, nTam, nDia)
Dow Retorna o dia da Semana Dow(Data)
FirstDate Retorna a Data do Primeiro dia do mes da
data passada		 FirstDate(Data)
LastDate Retorna a Data do ùltimo dia do mes da data
passada		 LastDate(Data)
Last_Day Retorna o último dia do mes de uma
data		 Last_Day(Data)
FirstYDate Retorna a Data do Primeiro dia do Ano da
Data Passada		 FirstYDate(Data)
LastYDate Retorna a Data do ùltimo dia do Ano da Data
Passada		 LastYDate(Data)


Veja também: Data por extenso.

Comentários

  1. Roverson9 de abril de 2014 às 10:50

    Show de bola valeuuuu

    ResponderExcluir
    Respostas
    1. ADVPL9 de abril de 2014 às 10:59

      Prezado Roverson,

      Disponha!

      Atenciosamente,
      microsigadvpl.blogspot.com.br

      Excluir
  2. Rorschach14 de dezembro de 2016 às 09:22

    Prezados, estou tentando fazer funcionar uma função que retorna a data atual mais 1 com a seguinte função:

    dToS(E2_VENCTO) == dToS(DaySum(Date(),1))

    Alguém poderia me apontar meu erro?

    ResponderExcluir
    Respostas
    1. ADVPL14 de dezembro de 2016 às 18:03

      Olá, em ADVPL,bastaria você fazer:
      SE2->E2_VENCTO := date() + 1

      Excluir
  3. Unknown27 de janeiro de 2017 às 02:12

    Parabéns,
    Ótimo documento.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

Teclas de Atalhos TOTVS Developer Studio (Eclipse)

Por
Seguem os atalhos para o TOTVS Developer Studio  (Eclipse)  : CTRL+H Localizar vários locais CTRL+F Localizar / substituir CTRL+K Localizar proximo resultado abaixo CTRL+SHIFT+K Localizar proximo resultado acima F11 Depurar F5 Percorre linha F6 Pula linha CTRL+F8 Trocar perspectiva CTRL+F7 Mudar visualização CTRL+F6 Navegar entre os fontes abertos CTRL+M Maximiza / miniminiza fonte CTRL+N Novo (wizard) CTRL+L Ir para linha CTRL+D Deleta toda linha CTRL+ALT+DOWN Duplica linha para baixo CTRL+ALT+UP Duplica linha para cima CTRL+SHIFT+L Apresenta lista de atalhos ALT+UP Move linha para cima ALT+DOWN Move linha para baixo CTRL+SHIFT+I Indenta o fonte CTRL+F9 Compilar CTRL+ESPAÇO A
2 comentários
Leia mais

Variáveis públicas do Protheus

Por
Variáveis Públicas Disponíveis no Protheus: Nome Tipo Tamanho Descrição aEmpresas (A) Array contendo tantos elementos quanto forem as empresas e filiais cadastradas no sistema sendo que cada elemento se encontra no formato “EEFF” (Empresa + Filial) Ex.: “5501”. cAcesso (C, 128) Permissões de Acesso do Usuário. cEmpAnt (C, 2) Número da Empresa que está em uso no momento. Ex.: "55". cModulo (C, 3) Sigla do Módulo que está em uso no momento. Ex.: "EST" para o Módulo de Estoque. cNivel (N, 1) Nível de Acesso do Usuário podendo variar de 0 a 9 sendo que 9 indica um Administrador. cNumEmp (C, 4) Número da Empresa + Filial que está em uso no momento. Ex.: "9901". cSenha (C, 6) Senha do Usuário. cUserName (C, 15) Nome do Usuário sem brancos a direita. cUsuario (C, 533) Informações do usuário:de 001 a 006 – Senha do Usuário (6 dígitos)de 007 a 021 – Nome do Usuário (15 dígitos)de 022 a 533 – Permissões de Acesso (512 dígitos) dDataBa
Postar um comentário
Leia mais

Impressão com imagens no Protheus

Por
Muitas vezes é necessário incluir uma imagem num relatório (uma logomarca por exemplo). Uma das maneiras de se fazer isto, é usar a classe TMSPRINTER() . O programa exemplo abaixo, ilustra bem como fazer. Este usa também a classe TFONT() (o tamanho do fonte leva o sinal de menos) : # include "PROTHEUS.CH" # include "RWMAKE.CH" user function fImprimeG() local oFont08 := tfont():New( 'Courier new' ,, -8, .t.),,; oFont09 := tfont():New( 'Courier new' ,, -9, .t.),,; oFont10 := tfont():New( 'Courier new' ,,-10, .t.) oPrint:=tmsprinter():new( "Impressao Grafica" ) oPrint:setportrait() oPrint:SetpaperSize(9) // PAPEL A4 if .not. oPrint:Setup() // MOSTRA JANELA DE CONFIGURAÇÃO DE IMPRESSAO msgalert( "IMPRESSAO CANCELADA." ) return nil endif // ESTE BLOCO PODE FICAR EM LOOP (DO WHILE, FOR..., ETC.) oPrint:StartPage() // oPrint:sayBitmap(linha, coluna, "C:\SUAPASTA\SUAIMAGEM.BMP", largura, al
2 comentários
Leia mais