gpt4 book ai didi

delphi - 现在的功能 : Tdatetime for Perpetual Calendar

转载 作者:行者123 更新时间:2023-12-03 18:15:22 30 4
gpt4 key购买 nike

我正在尝试为 Tdatetime 编写一个函数(但是当我打开我的程序时,他必须显示现在的数据)

下面我有一个函数用于 TDatetime 但我有一个错误:

((((''DecodeDateTime(data, rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda);''))))

unit Unit1;

interface

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

type
TForm1 = class(TForm)
edRok: TSpinEdit;
edMiesiac: TSpinEdit;
edDzien: TSpinEdit;
lbRok: TLabel;
lbMiesiac: TLabel;
lbDzien: TLabel;
lbDT: TLabel;
btnZamknij: TBitBtn;
procedure edRokChange(Sender: TObject);
procedure edDzienChange(Sender: TObject);
procedure DecodeDate(Date: TDateTime);
function DT(Dzien, Miesiac: Byte; Rok: Integer): Byte;
function GetDzienText(Dt: Byte): String;
function Now: TDateTime;



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

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.edRokChange(Sender: TObject);
begin
case edMiesiac.Value of
1,3,5,7,8,10,12: edDzien.MaxValue:=31;
4,6,9,11: edDzien.MaxValue:=30;
else
if edRok.Value mod 4=0 then edDzien.MaxValue:=29
else edDzien.MaxValue:=28;
end;{case}
if edDzien.Value>edDzien.MaxValue then
edDzien.Value:=edDzien.MaxValue;
edDzienChange(Sender);
end;

procedure TForm1.edDzienChange(Sender: TObject);
begin
lbDt.Caption:='Dzień tygodnia: '+GetDzienText(DT(eddzien.value, edmiesiac.value, edrok.value));
end;


procedure TForm1.DecodeDate(Date: TDateTime);
var
Now, Rok, Miesiac, Dzien: Word;
begin
DecodeDate(Now);
DecodeDate(Rok);
DecodeDate(Miesiac);
DecodeDate(Dzien);
edRok.Value:=Rok;
edMiesiac.Value:=Miesiac;
edDzien.Value:=Dzien;
end;



function TForm1.DT(Dzien, Miesiac: Byte; Rok: Integer): Byte;
var m,r,w: Byte; {deklaracja zmiennych}
begin
if Miesiac>2 then m:=miesiac-2
else
begin
m:=miesiac+10;
rok:=rok-1;
end;
r:=rok mod 100;
w:=rok div 100;
Result:=((13*m-1) div 5+dzien+r div 4+w div 4+r+5*w) mod 7;
end;

function TForm1.GetDzienText(Dt: Byte): String;
const Dni: array[0..6] of String=
('Niedziela','Poniedziałek','Wtorek','Środa',
'Czwartek','Piątek','Sobota');
begin
Result:=Dni[dt];
end;

function TForm1.Now: TDateTime;
var
dzien, miesiac, rok: Word;
godzina, minuta, sekunda, milisekunda: Word;
data: TDateTime;

begin
data := Now;
DecodeDateTime(data, rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda);
MessageBox(0,PAnsiChar(Format('Data: %d/%d/%d %d:%d:%d:%d',[rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda])), 'Data', MB_ICONINFORMATION);
end;

end.

最佳答案

改变

data := Now;

data := SysUtils.Now;

您正在递归调用 Now。

关于delphi - 现在的功能 : Tdatetime for Perpetual Calendar,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4769400/

30 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com