My Visual Database — Help: Get the Current month as Digit MM for TextBox ?

Re: Help: Get the Current month as Digit MM for TextBox ?

null@example.com (derek) — Sun, 14 Jan 2024 21:13:32 +0000

 if length(month) = 2 then Form1.Edit1.Text  := (IntToStr(Month)) else form1.edit1.text := '0' + (inttostr(month));

Re: Help: Get the Current month as Digit MM for TextBox ?

null@example.com (FMR) — Sun, 14 Jan 2024 19:37:22 +0000

Thanks derek

This is a 1st time your solution not fix my problem but you give me a good idea, please check the attached project and let me know if their is any suggestion, just I work for make the month 2 digit on single number like 1 to 01

procedure Form1_OnShow (Sender: TObject; Action: string);
var
Day, Year, Month: Word;
begin

DecodeDate(Form1.DateTimePicker1.DateTime, Year, Month, Day);
Form1.Edit1.Text := (IntToStr(Month));

end;

begin
end.

Re: Help: Get the Current month as Digit MM for TextBox ?

null@example.com (derek) — Sun, 14 Jan 2024 16:44:49 +0000

Hi FMR,
You can't just do it as you have tried (Form1.DateTimePicker1.Format := 'MM')
This is just an edit mask that is placed on top of the datetimepicker field and doesn't change the underlying data.
So you need to convert your datetimepicker field to a string and then substring the part that you want (month).
Be aware that the attached example works for a dd/mm/yyyy date format so you might need to amend the code if the date is formatted differently in your country.
Regards,
Derek.

Help: Get the Current month as Digit MM for TextBox ?

null@example.com (FMR) — Sun, 14 Jan 2024 16:11:03 +0000

Hello MVDs

I need load my TextBox with the Current month with only 2 Digit like (01) for January, Please help

I try using the Date Time Picker by this code and then copy it to the TextBox but the TextBox show to the full date and I need only the month

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
Form1.DateTimePicker1.Format := 'MM';
Form1.Edit1.Text := DateToStr (Form1.DateTimePicker1.Date); 
end;