نمایش نتایج: از شماره 1 تا 10 , از مجموع 10

موضوع: اضافه کردن ماه به تاریخ فارسی

  1. #1


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    118
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    اضافه کردن ماه به تاریخ فارسی

    سلام من این فانکشن را درست کردم برای این که تعدادی ماه به تاریخ فارسی اضافه کنیم و تاریخ جدید فارسی را بگیریم جواب نمی ده
    کد PHP:
    Function J_addmonth(Jdate1 As Stringaddmonth As Integer)
    Dim mah As Integer
    Dim rooz 
    As Integer
    Dim sal 
    As Integer
     rooz 
    Right(Jdate12)
      
    mah = (Right(Left(Jdate17), 2) + addmonth)
     
    If 
    mah Mod 12 0 Then
    sal 
    Left(Jdate14) + (Int(mah 12)) - 1
    Else
    sal Left(Jdate14) + (Int(mah 12))
    'ÊÇ ÇíäÌÇ ÓÇá ÈÏÓÊ ãí ÇíÏ
    End If
     
    If mah Mod 12 = 0 Then
    mah = 12
    Else
    mah = mah Mod 12
    End If
    If rooz = 31 And (mah Mod 12 = 0) Then
        rooz = rooz - 1
      
    ElseIf rooz = 31 And (mah Mod 12 > 6) Then
        rooz = rooz
    End If
    If mah < 9 And rooz > 9 Then
    J_addmonth = (sal) & "/0" & (mah) & "/" & (rooz)
    ElseIf mah < 9 And rooz < 9 Then
    J_addmonth = (sal) & "/0" & (mah) & "/0" & (rooz)
    ElseIf mah > 9 And rooz < 9 Then
    J_addmonth = (sal) & "/" & (mah) & "/0" & (rooz)
    Else
    J_addmonth = (sal) & "/" & (mah) & "/" & (rooz)
    End If
        
    End Function 
    ولی این ساب جواب میده همون کد هستش:
    کد PHP:
    Sub fff()
      
     
    Dim Jdate1 As Stringmah1 As Integer
     Jdate1 
    "1392/05/31"
     
    addmonth 8
     mah 
    = (Right(Left(Jdate17), 2) + addmonth)
     
    rooz Right(Jdate12)
     
    sal1 Left(Jdate14)
     
    MsgBox sal1
    If mah Mod 12 0 Then
    sal 
    Left(Jdate14) + (Int(mah 12)) - 1
    Else
    sal Left(Jdate14) + (Int(mah 12))
    'ÊÇ ÇíäÌÇ ÓÇá ÈÏÓÊ ãí ÇíÏ
    End If
     
    If mah Mod 12 = 0 Then
    mah = 12
    Else
    mah = mah Mod 12
    End If
    If rooz = 31 And (mah Mod 12 = 0) Then
        rooz = rooz - 1
      
    ElseIf rooz = 31 And (mah Mod 12 > 6) Then
        rooz = rooz
    End If
    If mah < 9 And rooz > 9 Then
    jaddmonth = (sal) & "/0" & (mah) & "/" & (rooz)
    ElseIf mah < 9 And rooz < 9 Then
    jaddmonth = (sal) & "/0" & (mah) & "/0" & (rooz)
    ElseIf mah > 9 And rooz < 9 Then
    jaddmonth = (sal) & "/" & (mah) & "/0" & (rooz)
    Else
    jaddmonth = (sal) & "/" & (mah) & "/" & (rooz)
    End If
    MsgBox jaddmonth
     End Sub 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (3)


  3.  

  4. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,398
    امتیاز
    12755
    سپاس
    4,636
    سپاس شده
    12,131 در 3,223 پست
    سطح اکسل
    70.00 %

    تابع رو چطوری فراخوانی می کنی؟



  5. #3


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    118
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    در وی بی
    کد PHP:
    Sub GF()
    Dim Date1 As String
    Dim addmonth 
    As Integer
     Date1 
    Application.InputBox(Prompt:= _
            
    "Please enter DATE"Type:=1)
       
    addmonth Application.InputBox(Prompt:= _
            
    "Please enter MONTH"Type:=1)
        
    MsgBox "The NEW DATE is " J_addmonth(Date1addmonth)
    End Sub 
    در شیت هم مثل سایر توابع

  6. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,398
    امتیاز
    12755
    سپاس
    4,636
    سپاس شده
    12,131 در 3,223 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط daghyad نمایش پست ها
    در وی بی
    کد PHP:
    Sub GF()
    Dim Date1 As String
    Dim addmonth 
    As Integer
     Date1 
    Application.InputBox(Prompt:= _
            
    "Please enter DATE"Type:=1)
       
    addmonth Application.InputBox(Prompt:= _
            
    "Please enter MONTH"Type:=1)
        
    MsgBox "The NEW DATE is " J_addmonth(Date1addmonth)
    End Sub 
    در شیت هم مثل سایر توابع
    اگر میخوای تو شیت استفاده کنی که باید public باشه و آرگومان هایی که تعریف کردی از نظر نوع متغیر همخوانی داشته باشند بعد میرسه به جزئیات دقیقا میخوای چه کاری با این تابع انجام بدی



  7. سپاس ها (3)


  8. #5


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    118
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    سلام امتحان کردم با public هم جواب نداد از تابع val هم استفاده کردم گفتم شاید استرینگ ها را نمی تونه با int جمع کنه
    دوستان ببینند می تونند کاملش کنند البته یه شرط هم باید برای سال کبیسه استفاد] کنم تا هر جا 30 اسفند نداریم به جاش از 29 اسفند استفاده کنه

  9. سپاس ها (1)


  10. #6


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    118
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    اساتید ممنون کسی میتونه اصلاح کنه کد را این کد را من به صورت فرمولی و در ساب ساده به نتیجه رساندم اما در فانکشن نشده علت چیست؟

  11. #7


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,398
    امتیاز
    12755
    سپاس
    4,636
    سپاس شده
    12,131 در 3,223 پست
    سطح اکسل
    70.00 %

    اینو ببین
    فايل هاي پيوست شده فايل هاي پيوست شده




  12. #8


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,569
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    فایلتون دوست عزیز از نظر تابع داخل خود شیت ها مشکلی نداره اما وقتی میخوای از اون تو فرم یا inputbox استفاده کنی باید به خروجی اونها دقت کنی. تو کد هات inputbox رو اگر جور دیگه ای استفاده کنی مثلا مثل زیر فکر کنم مشکلت حل میشه من تست کردم درست بود.
    کد:
    Sub GF()
    Dim Jdate1 As String
    Dim addmonth As Integer
     Jdate1 = InputBox("please Enter your date", "month function")
     addmonth = InputBox("please Enter your month", "month function")
        MsgBox "The NEW DATE is " & J_addmonth(Jdate1, addmonth)
        
    End Sub
    در پناه خداوندگار ایران زمین باشید و پیروز

  13. سپاس ها (2)


  14. #9


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,569
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود

    یا از کد زیر

    کد:
    Sub GF1()
    Dim Jdate1 As String
    Dim addmonth As Integer
     Jdate1 = Application.InputBox(Prompt:= _
            "Please enter DATE", Type:=2)
       addmonth = Application.InputBox(Prompt:= _
            "Please enter MONTH", Type:=1)
        MsgBox "The NEW DATE is " & J_addmonth(Jdate1, addmonth)
    End Sub
    type=1 رو برداشتم ;کردیمش type=2 چون string میخواستیم. تو اولی و اسم متغییر هاتو هم درست کردم چون همخونی نداشت . همونی که جناب وطن پرستم گفتن
    در پناه خداوندگار ایران زمین باشید و پیروز


  15. #10


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,569
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود مجدد

    یه توضیح کوچلو در مورد type توی input box

    کد:
    Type Meaning
    0 A formula
    1 A number
    2 Text (a string)
    4 A logical value (True or False)
    8 A cell reference, as a Range object
    16 An error value, such as #N/A
    64 An array of values
    در پناه خداوندگار ایران زمین باشید و پیروز



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ویرال بیسیک افزودن تاریخ

افزودن ماه به تاریخ اکسل

تاریخ فارسی php

اضافه کردن روز به تاریخ فارسی در اکسل

اضافه کردن ماه فارسی در اکسل

تاریخ فارسی exceliran.com

افزودن ماههای فارسی به اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است