اول سال و وسط سال و آخر سال جاری شمسی را می خواهم

[ali_abbasi22145]

سلام
من اول سال و وسط سال و آخر سال جاری شمسی را می خواهم در یک textbox نشان دهم.
در ضمن از Farsi Components ShDate Solutions 1.1 در دلفی 7 استفاده می کنم.

[MohsenB]

سلام

اینایی که گفتین که همشون یه چیز ثابتن ، خوب حسابشون کنید ، همینجوری بنویسید خیلی راحت تره .

اگه منظورتون چیز دیگس بگین .

[ali_abbasi22145]

راه حلي كه تست هم گرفتم:

procedure TSearch_With_Date_Form.FormShow(Sender: TObject);
var Year, Month, Day: Word;
//StartOfYear,EndOfYear :String;
begin
ShDecodeDate(Now, Year, Month, Day);
//StartOfYear := DateToStr( ShEncodeDate(Year, 1, 1) );
//EndOfYear := DateToStr( ShIncMonth(ShEncodeDate(Year, 1, 1), +12)-1 );

ExShDatePicker1.Date := ShEncodeDate(Year, 1, 1); //StartOfYear
//ExShDatePicker2.Date := ShIncMonth(ShEncodeDate(Year, 1, 1), +6)-1;//MiddleOfYear
end;