Data Juliana

X

Olá! Você é novo por aqui? Que tal aproveitar e assinar o nosso feed RSS para se manter sempre informado das nossas atualizações?

Powered by WP Greet Box WordPress Plugin

Um recurso muitas vezes importante em um sistema, é a geração da data atual no formato Juliano.

A data Juliana é conhecida por contar os dias ininterruptamente do primeiro dia do ano (dia 1) até o o último (dia 365 ou 366).

Mas, afinal, qual o motivo que eu iria querer a data Juliana de determinado dia, se eu tenho o calendário Gregoriano (o que nós conhecemos), que já me satisfaz e é mais fácil de entender?

A resposta é simples: Geração de protocolos, códigos, matrículas etc.

Um exemplo bem prático é o que costumamos ver em operadoras de cartões de crédito e outras empresas que definem seus números de protocolos com base em uma série de fatores.

Um tipo de protocolo bastante usado, por exemplo, é o estilo ano.data juliana.código do cliente.código do pedido, gerando algo do tipo 2008.102.010.55.

Mas, chega de enrolação, aqui eu mostro o código (em Delphi) para a geração da Data Juliana que utilizo normalmente nos meus sistemas:

{

********************************************************************************
** Função que tem por objetivo converter a data Gregoriana informada,                                  **
** para a data Juliana.                                                                                                                                        **
**                                                                                                                                                                                 **
** Escrita por:                                                                                                                                                        **
** Giovanni Grimaldi Torelly – 23:00 – 31/07/2004                                                                           **
**                                                                                                                                                                                 **
********************************************************************************
}

function Data_Juliana (Data_Atual: TDateTime): String;
var
Ano, Mes, Dia: Word;
Data_Final, Data_Inicial: String;
Resultado: Real;
begin
DecodeDate (Date, Ano, Mes, Dia);
Data_Final := DateToStr (Data_Atual);
Data_Inicial := ’31/12/’ + IntToStr (Ano – 1);
Resultado := StrToDate (Data_Final) – StrToDate (Data_Inicial);
Result := FloatToStr (Resultado);
end;

Para que a função seja executada, basta chamar Data_Juliana(data)

Espero que este código tenha sido útil.

Em breve, pretendo postar mais códigos.

Gostou do nosso conteúdo?
Assine-o através de feed RSS!
Receba as atualizações por E-Mail.

Compartilhe este artigo:

Palavras-Chave: Cartões de Crédito, Códigos, Data Gregoriana, Data Juliana, Delphi, Dia, Em Breve, Empresas, Estilo, etc, Gerando, Giovanni Grimaldi, Gregoriana, Gregoriano, Juliana, Juliano, Matrículas, Mes, Mostro, Motivo, Nos, Operadoras, Postar, Protocolo, Protocolos, Sistemas, Word Data

Confira estas ofertas incríveis
Sistema Jurídico Escritórios De Advocacia C Fontes Delphi Mais info» R$ 29.99 até 18x de 2.25	Automação Comercial Pdv Ecf Tef Nfe Sintegra Fontes Delphi Mais info» R$ 50.00 até 18x de 3.75	Sistema Comercial Com Fontes Em Delphi 7 Mais info» R$ 10.99 até 18x de 0.82
Sistema Para Clínica Odontologica Código Fonte Em Delphi Mais info» R$ 29.99 até 18x de 2.25	Código Fonte Em Delphi Sistema Para Clínica Odontologica Mais info» R$ 10.00 até 18x de 0.75	Compressor Delphi Corsa Celta Astra Zafira Palio Mais info» R$ 499.00 até 18x de 37.43
Compressor Vectra 02> Original Delphi Filtro Secador Mais info» R$ 630.00 até 18x de 47.25	Compressor Delphi Astra Celta Corsa Meriva Palio 1.8 Zafira Mais info» R$ 680.00 até 18x de 51.00	Sistema Comercial Com Retaguarda E Pdv Com Tef E Ecf Delphi Mais info» R$ 25.00 até 18x de 1.88
Vitrine Tecnoblog