Adivinando dias de la semana

Ver el tema anterior Ver el tema siguiente Ir abajo

Adivinando dias de la semana

Mensaje  [G]host el Sáb Ene 01, 2011 2:38 am

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.
avatar
[G]host
Admin

Mensajes : 67
Puntos : 204
Reputación : 0
Fecha de inscripción : 24/10/2010
Edad : 26

Ver perfil de usuario http://ghost.activo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.