Adivinando dias de la semana
Página 1 de 1.
Adivinando dias de la semana
unit DayOfWeek;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Inicia el programa llamado dia de la semana DayOfWeek
// Rutina: SysUtils.DayOfWeek (Día de la semana)
// Rutina: SysUtils.StrToDate
// Inicia el codigo
{
Este ejemplo utiliza un edit box y un boton en su form.
La etiqueta esta agregada como un estilo propio o marca de agua
la edit box se manipula mediante la facha que ponga el usuario
Día mes año xx/xx/xxxx
}
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Domingo Sunday';
days[2] := 'Lunes Monday';
days[3] := 'Martes Tuesday';
days[4] := 'Miercoles Wednesday';
days[5] := 'Jueves Thursday';
days[6] := 'Viernes Friday';
days[7] := 'Sabado Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' es ' + days[SysUtils.DayOfWeek(ADate)]);
end;
// Final Del codigo
// Final de la clase: Día de la semana DayOfWeek
end.
La demas codificacion es basica xD solo creen la form como lo indica y ya coloken el codigo conforme esta aki xD no lo posteo completo para no regalarles la calificacion o el proyecto piensenle un poco.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Inicia el programa llamado dia de la semana DayOfWeek
// Rutina: SysUtils.DayOfWeek (Día de la semana)
// Rutina: SysUtils.StrToDate
// Inicia el codigo
{
Este ejemplo utiliza un edit box y un boton en su form.
La etiqueta esta agregada como un estilo propio o marca de agua
la edit box se manipula mediante la facha que ponga el usuario
Día mes año xx/xx/xxxx
}
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Domingo Sunday';
days[2] := 'Lunes Monday';
days[3] := 'Martes Tuesday';
days[4] := 'Miercoles Wednesday';
days[5] := 'Jueves Thursday';
days[6] := 'Viernes Friday';
days[7] := 'Sabado Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' es ' + days[SysUtils.DayOfWeek(ADate)]);
end;
// Final Del codigo
// Final de la clase: Día de la semana DayOfWeek
end.
La demas codificacion es basica xD solo creen la form como lo indica y ya coloken el codigo conforme esta aki xD no lo posteo completo para no regalarles la calificacion o el proyecto piensenle un poco.
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|