تشخیص روز جاری [بایگانی]

ar031181

یک شنبه 21 فروردین 1384, 14:22 عصر

با سلام من دنبال تابعی هستم تا روز جاری کامپیوتر را اعلام نماید(به طور مثال شنبه و یا ....)

m-khorsandi

یک شنبه 21 فروردین 1384, 16:26 عصر

درود
فکر کنم این کمکت کنه:

Var
aDay: Array[1..7] of String;
begin
aDay[1] := 'شنبه';
aDay[2] := 'یک شنبه';
aDay[3] := 'دو شنبه';
aDay[4] := 'سه شنبه';
aDay[5] := 'چهار شنبه';
aDay[6] := 'پنج شنبه';
aDay[7] := 'جمعه';

Label1.Caption := aDay[DayOfWeek(Date())];
end;

ar031181

دوشنبه 22 فروردین 1384, 11:03 صبح

با تشکر مشکل من حل شد