R
rabo
Guest
A ver quien tiene cojones de hacer el guarro asi:
If IsNull(periodo) = False Then
If perido = 1 Then
p = 1
End If
If periodo = 2 Then
p = 2
End If
If periodo = 3 Then
p = 3
End If
Do Until ((tmp = actual) And (p = 0)) Or ((tmp = actual_1) And (p =
1)) Or ((tmp = actual_2) And (p = 2)) Or ((tmp = actual_3) And (p =
3)) Or ((tmp = actual_2) And (p = 3))
If IsNull(periodo) = False Then
tmp = tmp + periodo
End If
Loop
End If
If IsNull(periodo) = False Then
If perido = 1 Then
p = 1
End If
If periodo = 2 Then
p = 2
End If
If periodo = 3 Then
p = 3
End If
Do Until ((tmp = actual) And (p = 0)) Or ((tmp = actual_1) And (p =
1)) Or ((tmp = actual_2) And (p = 2)) Or ((tmp = actual_3) And (p =
3)) Or ((tmp = actual_2) And (p = 3))
If IsNull(periodo) = False Then
tmp = tmp + periodo
End If
Loop
End If
