(Contact Us)

<% @language=VBScript %> <% D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21) P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10) W = Array ("يکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه") Mon = Array ("فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند") Dm = Day(Date) Mm = Month(Date) Ym = Year(Date) U = 0 Rp = 0 If (Ym Mod 4) = 0 Then U = 1 If ((Ym Mod 100) = 0 AND (Ym Mod 400) <> 0) Then U = 0 Ys = Ym - 622 X = Ys - 22 X = X Mod 33 If ((X Mod 4) = 0 AND X <> 32) Then Rp = 1 I = Not(Rp-2) + NOT(U - 2) * 2 X = 0 If (I = 0 AND Mm = 3) Then X = 1 If I = 0 Then I = 3 Ms = (9 + Mm) Mod 13 If Ms < 10 Then Ms = Ms + 1 D1 = D(Mm - 1) If (I = 1 AND Mm > 2) Then D1 = D1 - 1 If (I = 2 AND Mm < 3) then D1 = D1 - 1 P1 = P(Mm - 1) If (I = 1 AND Mm > 2) Then P1 = P1 + 1 If (I = 2 AND Mm < 4) Then P1 = P1 + 1 If (Dm > 0 AND Dm <= D1) Then Ds = P1 + Dm + X - 1 X = 1 Else Ds = Dm - D1 Ms = Ms + 1 If Ms = 13 Then Ms = 1 X = 2 End If If ((Mm = 3 AND X = 2) OR Mm > 3) Then Ys = Ys + 1 DateShamsi = W(WeekDay(Date) - 1) & " " & Ds & " " & Mon(Ms - 1) & " " & Ys %> (Contact Us)

هزينه اشتراك فصلنامه كارگزار روابط عمومي

پست سفارشي	پست عادي
36000ريال	ريال28000

لطفا وجه اشتراك را به حساب جاري شماره 51729 بانك تجارت شعبه اسكان به نام مؤسسه كارگزار روابط عمومي واريز نمائيد اصل حواله بانكي را به همراه فرم تكميل شده فوق به نشاني مؤسسه ارسال نمائيد

پس از دريافت مدارك فوق اشتراك شما آغاز ميگردد

توصيه ميشود يك كپي از حواله بانكي را نزد خود نگه داريد.

جهت كسب اطلعات بيشتر واشتراك با فصلنامه تماس بگيريد

تهران صندوق پستي 19395-6986افصلنامه كارگزار روابط عمومي شماره تماس 8315270-09112938419