E se atrazarem a data do computador antes de executar o programa???? []s
Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Adriano ( Micro center ) Enviada em: quinta-feira, 22 de setembro de 2005 01:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como posso colocar a data do PC no sistema Caso queira travar o sistema com a data use isto aqui.. // Verifica data para versão demo // if (date>=strtodate('30/09/2006')) then begin showmessage('VERSÃO EXPIRADA!!!'+#13#10+ ' '+#13#10+ 'CONTATE: '+#13#10+ 'Seus dados Aqui ?); application.Terminate; T+ ----- Original Message ----- From: Adriano ( Micro center ) To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 22, 2005 1:09 AM Subject: Re: [delphi-br] Como posso colocar a data do PC no sistema Use isso LbData.Caption := DateToStr(DATE); Abaixo outra funçoes para trabalhar com datas Validar Datas try StrToDate(Edit1.Text); except on EConvertError do ShowMessage ('Data Inválida!'); end; varias funções de datas unit FaCDate; interface uses Forms, Dialogs, Messages, WinProcs, SysUtils, Classes, Graphics, ExtCtrls, Controls; Type {Tipos criados} TSemestre = record Mes, Ano : Word; end; Semestre = array[0..5] of TSemestre; function ReturnSixMonth(Actual:TDateTime):Semestre; function NameMonth(Mes:Word;Abrev:Boolean):string; function DataExtenso(Data:TDateTime): string; function DataValida(StrD: string): boolean; function PrimeiroDiaUtil(Data:TDateTime):TDateTime; function IsWeekEnd(dData : TDateTime) : boolean; implementation function ReturnSixMonth(Actual:TDateTime):Semestre; {Retorna 6 meses atrás da data enviada, de mes em mes} var d,m,y : word; i : byte; Data : TDateTime; begin for i := 6 downto 1 do begin Data := Actual - (30 * i); DecodeDate(Data,y,m,d); Result[i].Mes := m; Result[i].Ano := y; end; end; function NameMonth(Mes:Word;Abrev:Boolean):String; {Retorna o nome de um mês abreviado ou não} const NameL : array [1..12] of String[9] = ('JANEIRO','FEVEREIRO','MARÇO','ABRIL', 'MAIO','JUNHO','JULHO','AGOSTO', 'SETEMBRO','OUTUBRO','NOVEMBRO', 'DEZEMBRO'); begin if (Mes in [1..12]) then if Abrev then Result := Copy(NameL[Mes],1,3) else Result := NameL[Mes]; end; function DataExtenso(Data:TDateTime): String; {Retorna uma data por extenso} var NoDia : Integer; DiaDaSemana : array [1..7] of String; Meses : array [1..12] of String; Dia, Mes, Ano : Word; begin { Dias da Semana } DiaDasemana [1]:= 'Domingo'; DiaDasemana [2]:= 'Segunda-feira'; DiaDasemana [3]:= 'Terçafeira'; DiaDasemana [4]:= 'Quarta-feira'; DiaDasemana [5]:= 'Quinta-feira'; DiaDasemana [6]:= 'Sexta-feira'; DiaDasemana [7]:= 'Sábado'; { Meses do ano } Meses [1] := 'Janeiro'; Meses [2] := 'Fevereiro'; Meses [3] := 'Março'; Meses [4] := 'Abril'; Meses [5] := 'Maio'; Meses [6] := 'Junho'; Meses [7] := 'Julho'; Meses [8] := 'Agosto'; Meses [9] := 'Setembro'; Meses [10]:= 'Outubro'; Meses [11]:= 'Novembro'; Meses [12]:= 'Dezembro'; DecodeDate (Data, Ano, Mes, Dia); NoDia := DayOfWeek (Data); Result := DiaDaSemana[NoDia] + ', ' + IntToStr(Dia) + ' de ' + Meses[Mes]+ ' de ' + IntToStr(Ano); end; function DataValida(StrD: string): Boolean; {Testa se uma data é valida} begin Result := true; try StrToDate(StrD); except on EConvertError do Result:=False; end; end; function PrimeiroDiaUtil(Data:TDateTime):TDateTime; {Retorna data do primeiro dia Util do mes, de uma data informada} var Ano, Mes, Dia : word; DiaDaSemana : Integer; begin DecodeDate (Data, Ano, Mes, Dia); Dia := 1; DiaDaSemana := DayOfWeek(Data); if DiaDaSemana in [1,7] then Dia := 2; Result := EncodeDate(Ano, Mes, Dia); end; function IsWeekEnd(dData : TDateTime) : boolean; {Verifica se uma data informada cai em um final de semana} begin if DayOfWeek(dData) in [1,7] then result := true else result := false; end; end. ----- Original Message ----- From: jeo_velick To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 8:51 AM Subject: [delphi-br] Como posso colocar a data do PC no sistema Sou nova na programação em Delphi e estou com um problema: Como posso colocar a data do computador no sistema e quando chegar a uma determinada data o programa parar de executar? Não sei como fazer isso. Se alguém se despuser a me ajude eu agradeço grandemente. Muito obrigada desde já. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
