نوشته شده توسط
narpco
به هر حال بدنبال فرمول حتی المکان کوتاهی هستیم چون باید در یک فرم این ضرب رو برای 31 روز انجام بده ....ولی اگر چاره ای نیست که هیچی همین رو استفاده می کنیم
مگر این کد برای ضرب 31 روز جوابگو نیست ؟!
به هر حال برای رسیدن به نتیجه دلخواه وواقعی باید چند خط کد اضافه شود.
ضمناً کدهای نمونه پست 16 بصورت زیر تغییر کرد :
On Error Resume Next
Dim SplitLeft As String
Dim SplitRigth As String
StrTime = Left(Replace(itime, ":", ""), 4) * days
natije = Left(StrTime, Len(StrTime) - 2) & ":" & Right(StrTime, 2)
SplitLeft = Split(natije, ":")(0)
SplitRigth = Split(natije, ":")(1)
If SplitRigth >= 60 Then
SplitLeft = SplitLeft + 1
SplitRigth = SplitRigth - 60
End If
If Len(SplitLeft) + Len(SplitRigth) = 3 And Len(SplitLeft) = 2 And Len(SplitRigth) = 1 Then natije = SplitLeft & ":0" & SplitRigth
If Len(SplitLeft) + Len(SplitRigth) = 3 And Len(SplitLeft) = 1 And Len(SplitRigth) = 2 Then natije = "0" & SplitLeft & ":" & SplitRigth
If Len(SplitLeft) + Len(SplitRigth) = 4 And Len(SplitLeft) = 2 And Len(SplitRigth) = 2 Then natije = SplitLeft & ":" & SplitRigth
If Len(SplitLeft) + Len(SplitRigth) = 4 And Len(SplitLeft) = 3 And Len(SplitRigth) = 1 Then natije = SplitLeft & ":0" & SplitRigth
If Len(SplitLeft) + Len(SplitRigth) = 5 And Len(SplitLeft) = 3 And Len(SplitRigth) = 2 Then natije = SplitLeft & ":" & SplitRigth