Playboy

estou oprecisando fzer o seguinte:

Criar um formulário onde o usuário entre com a data no formato dd/mm/aaaa em um componente Edit e ao clicar de um botão seja exibido em um componente Label a data por extenso. Por exemplo, se o usuário digitar 30/08/2004 deverá ser exibido segunda-feira, 30 de agosto de 2004.
alguem poderia me ajudar???

não sei quase nada de programação
playboy 8)

heavenfromhell

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
function pegames(mes:string): string;
function pegadia(dia:integer): string;

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:= pegadia(dayofweek(strtodate(edit1.text))) + ', ' + copy(edit1.text,1,2) + ' de ' + pegames(copy(edit1.Text,4,2))+ ' de ' + copy(edit1.text,7,4);

end;

function TForm1.pegames(mes: string): string;
begin
if mes = '01' then result:='Janeiro';
if mes = '02' then result:='Fevereiro';
if mes = '03' then result:='Março';
if mes = '04' then result:='Abril';
if mes = '05' then result:='Maio';
if mes = '06' then result:='Junho';
if mes = '07' then result:='Julho';
if mes = '08' then result:='Agosto';
if mes = '09' then result:='Setembro';
if mes = '10' then result:='Outubro';
if mes = '11' then result:='Novembro';
if mes = '12' then result:='Dezembro';

end;

function TForm1.pegadia(dia: integer): string;
begin
if dia = 1 then result:='Domingo';
if dia = 2 then result:='Segunda-feira';
if dia = 3 then result:='Terça-feira';
if dia = 4 then result:='Quarta-feira';
if dia = 5 then result:='Quinta-feira';
if dia = 6 then result:='Sexta-feira';
if dia = 7 then result:='Sábado';

end;

end.

__________________
"And no one sings me lullabies
And no one makes me close my eyes
So I throw the windows wide
And call to you across the skies". Pink Floyd.

Slackware 10/Win XP Home
Linux User #353467

aylons

Esse metodo que ele passou é "na marra". Que tal iniciar um vetor para os dias da semana e apra os nomes do mes. Aí vc coloca algo assim: no vetor mes, dentro do indice 5, está a string de maio, ai mes[5] contem maio.

__________________
Ayloиs Hazzud, com N invertido

heavenfromhell

é pra ele aprender na "marra" tambem :twisted:

__________________
"And no one sings me lullabies
And no one makes me close my eyes
So I throw the windows wide
And call to you across the skies". Pink Floyd.

Slackware 10/Win XP Home
Linux User #353467

Playboy

valeu galera, vou testar esse comando aqui tá!! fico muito agradecido com tamanha boa vontade dos membros do forum!!

playboy 8)

__________________
Playboy

Playboy

dsculpe minha ignorancia, mas coloquei o codigo, criei o label o botão e a caixa de testo, mas nada aconteceu, o que tenho que fazer para funcionar? ops:

playboy 8)

__________________
Playboy

Playboy

Consegui, eu não tinha colocado o evento no clicar do botão!!! as vezes agente dá cada vacilo!! FUncionou 100000%% mais uma vez obrigado amigão, obrigado mesmo!!!
:lol:

play 8)

__________________
Playboy

heavenfromhell

ok... mas tenta entender o codigo, como o nosso amigo falou eu te passei o metodo pra fazer na marra. mas pode encontrar outras soluções que tenha que digitar menos ou que seja mais pratica....

abraços

__________________
"And no one sings me lullabies
And no one makes me close my eyes
So I throw the windows wide
And call to you across the skies". Pink Floyd.

Slackware 10/Win XP Home
Linux User #353467

Playboy

valeu garoto. Estou iniciando no delphi, sei que para me familiarizar com as funções vai levar um tempo, mas estou me esforçando. vou postar varias mensagens aqui, e conto com a ajuda de vcs..


abraços playboy 8)

__________________
Playboy