Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

Данный код преобразует дату, переданную в формате, определенном в виде короткой даты в Панели Управления (типа DD/MM/YY) в формат, заданный в строке Format (в нашем примере DDMMYYYY).

Если DD/MM/YY — входное поле, а DDMMYYYY — поле базы данных, то приведенный выше код может сослужить пользователю хорошую службу, если он вдруг захочет использовать другой формат даты, с его соответствующим переопределением в Панели Управления.

(Естественно, YYYYMMDD для поля базы данных при обычных обстоятельствах будет лучше чем DDMMYYYY, поскольку в настоящее время используется метод последовательной сортировки).

Приведение

даты

Delphi 1

procedure TForm1.MaskEdit1Exit(Sender: TObject);

var

 y, m, d : word;

begin

 decodedate(strtodate(maskedit1.text) + 11, y, m, d);

 maskedit2.text := inttostr(m) + '/' + inttostr(d) + '/' + inttostr(y);

end;

Даты и недели

Delphi 1

У меня есть программа, которая делает примерно то, что вы хотите. Она сообщает для даты текущую неделю и день недели. Вам необходимо лишь реализовать вычисление предела для дат недели. Кроме того, формат в этом коде для дат задан в виде "06/25/1996".

Вы должны создать форму с именем "Forma", компонентом TEdit с именем "Edit1", четырьмя метками и кнопкой с именем "GetWeekBtn". Убедитесь в том, что обработчиком события формы OnCreate является метод FormCreate.

Надеюсь, что помог вам.

unit Forma;

interface

uses

 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;

type

 TForma1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

GetWeekBtn: TButton;

Label4: TLabel;

procedure GetWeekBtnClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

 private { Private declarations }

Function HowManyDays(pYear,pMonth,pDay:word):integer;

 public { Public declarations }

 end;

var

 Forma1: TForma1;

implementation

 {$R *.DFM}

Uses Inifiles;

procedure TForma1.FormCreate(Sender: TObject);

 var WinIni:TInifile;

begin

 WinIni:=TIniFile.Create('WIN.INI');

 WinIni.WriteString('intl','sShortDate','MM/dd/yyyy');

 WinIni.Free;

end;

Function TForma1.HowManyDays(pYear,pMonth,pDay:word):integer;

 var Sum:integer;

 pYearAux:word;

begin

 Sum:=0;

 if pMonth>1 then Sum:=Sum+31;

 if pMonth>2 then Sum:=Sum+28;

 if pMonth>3 then Sum:=Sum+31;

 if pMonth>4 then Sum:=Sum+30;

 if pMonth>5 then Sum:=Sum+31;

 if pMonth>6 then Sum:=Sum+30;

 if pMonth>7 then Sum:=Sum+31;

 if pMonth>8 then Sum:=Sum+31;

 if pMonth>9 then Sum:=Sum+30;

 if pMonth>10 then Sum:=Sum+31;

 if pMonth>11 then Sum:=Sum+30;

 Sum:=Sum + pDay;

 if ((pYear - (pYear div 4)*4)=3D0) and (pMonth>2) then inc(Sum);

 HowManyDays:=Sum;

end; { HowManyDays }

procedure TForma1.GetWeekBtnClick(Sender: TObject);

var

 ADate: TDateTime;EditAux:String;

 Week,year,month,day:Word;

begin

 EditAux:=Edit1.Text;

 ADate := StrToDate(EditAux);

 Label1.Caption := DateToStr(ADate);