반응형
procedure TForm1.FormShow(Sender: TObject);
var
wDate : TDateTime;
y,m,d : word;
begin
wDate := now; //현재일자
//wDate := StrToDate(FormatMaskText('0000-00-00;0', '20190901')); //특정일자
DecodeDate(wDate,y,m,d);
Label1.Caption := formatDateTime('yyyymmdd',wDate);
MaskEdit1.text := formatDateTime('yyyymmdd',IncMonth(wdate,1)-d); //월말
MaskEdit2.text := formatDateTime('yyyymmdd',IncMonth(wdate,-1)-d+1); //전월1일
MaskEdit3.text := formatDateTime('yyyymmdd',IncMonth(wdate,1)-d+1); //익월1일
MaskEdit4.text := formatDateTime('yyyymmdd',IncMonth(wdate,-m+1)-d+1); //당년시작일
MaskEdit5.text := formatDateTime('yyyymmdd',IncMonth(wdate,12-m+1)-d); //당년말일
MaskEdit6.text := formatDateTime('yyyy',wdate)+'0101'; //당년시작일, 단순
MaskEdit7.text := formatDateTime('yyyy',wdate)+'1231'; //당년말일, 단순
end;
반응형
'Developers > Delphi[델파이]' 카테고리의 다른 글
| [delphi] 맥어드레스 가져오기(GetMACAdress2) (0) | 2019.09.17 |
|---|---|
| Undeclared identifier 에러 발생 할 때 (1) | 2019.09.16 |
| [delphi] 로컬 IP 가져오기 (4) | 2019.09.11 |
