13,822
社区成员
发帖
与我相关
我的任务
分享
AnsiString ShowDate(TDateTimePicker* DT)
{
AnsiString Y = FormatDateTime("yyyy", DT->Date);
int S = StrToInt(FormatDateTime("m", DT->Date));
switch(S)
{
case 1: Y = "Jan. " + Y; break;
case 2: Y = "Feb. " + Y; break;
case 3: Y = "Mar. " + Y; break;
case 4: Y = "Apr. " + Y; break;
case 5: Y = "May. " + Y; break;
case 6: Y = "Jun. " + Y; break;
case 7: Y = "Jul. " + Y; break;
case 8: Y = "Aug. " + Y; break;
case 9: Y = "Sep. " + Y; break;
case 10: Y = "Oct. " + Y; break;
case 11: Y = "Nov. " + Y; break;
case 12: Y = "Dec. " + Y; break;
}
return Y;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption = ShowDate(DateTimePicker1);
}
//---------------------------------------------------------------------------