روش ايجاد فيلد تاريخ شروع و پايان فعاليتها بصورت شمسي در نرم‌افزار MS-Project :
دو ستون با فرمت Text بعد از ستونهاي Start,Finish ايجاد كنيد ( بطور مثال Text10,Text11 ).1- بر روي عنوان ستون Text10 كليك راست نموده وCustomize Fields را انتخاب كنيد .
2- دكمه Formula را انتخاب كنيد و در Editor كد زير را Paste نماييد :
(Int((Int([Start]-DateValue("21/3/1997 00:00:00"))-Int(Int([Start]-DateValue("21/3/1997 00:00:00"))/1461))/365)+76) & "/" & (IIf(((((Int([Start]-DateValue("21/3/1997 00:00:00")))-Int((Int([Start]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))<=186,Int(((((Int([Start]-DateValue("21/3/1997 00:00:00")))-Int((Int([Start]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))/31)+1,Int((((((Int([Start]-DateValue("21/3/1997 00:00:00")))-Int((Int([Start]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))-186)/30)+7)) & "/" & (IIf(((((Int([Start]-DateValue("21/3/1997 00:00:00")))-Int((Int([Start]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))<=186,Int(((((Int([Start]-DateValue("21/3/1997 00:00:00")))-Int((Int([Start]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365)) Mod 31)+1,Int((((((Int([Start]-DateValue("21/3/1997 00:00:00")))-Int((Int([Start]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))-186) Mod 30)+1+(IIf((Int([Start]-DateValue("21/3/1997 00:00:00"))) Mod 1461=0,1,0))))
3- دكمه ok را فشار دهيد و گزينه Use Formula را فعال كنيد Ok نموده وخارج شويد .
4- همين عمليات را براي ستون Text11 تكرار نماييد و از كد زير استفاده نماييد:
(Int((Int([Finish]-DateValue("21/3/1997 00:00:00"))-Int(Int([Finish]-DateValue("21/3/1997 00:00:00"))/1461))/365)+76) & "/" & (IIf(((((Int([Finish]-DateValue("21/3/1997 00:00:00")))-Int((Int([Finish]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))<=186,Int(((((Int([Finish]-DateValue("21/3/1997 00:00:00")))-Int((Int([Finish]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))/31)+1,Int((((((Int([Finish]-DateValue("21/3/1997 00:00:00")))-Int((Int([Finish]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))-186)/30)+7)) & "/" & (IIf(((((Int([Finish]-DateValue("21/3/1997 00:00:00")))-Int((Int([Finish]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))<=186,Int(((((Int([Finish]-DateValue("21/3/1997 00:00:00")))-Int((Int([Finish]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365)) Mod 31)+1,Int((((((Int([Finish]-DateValue("21/3/1997 00:00:00")))-Int((Int([Finish]-DateValue("21/3/1997 00:00:00")))/1461)) Mod 365))-186) Mod 30)+1+(IIf((Int([Finish]-DateValue("21/3/1997 00:00:00"))) Mod 1461=0,1,0))))
5- مي‌توانيد عنوان ستونها را با Double Click بر روي آنها و در قسمت Title به فارسي تايپ كنيد
منبع : كتاب آموزش سريع MSP 2003 – داود احمديان‌نژاد
هیچ نظری موجود نیست:
ارسال یک نظر