- Код: Выделить всё
sub mysub(optional d as date= ...)
end sub
sub mysub(optional d as date= ...)
end sub
Sebas писал(а):Использовать Overload
Sub x()
End Sub
Sub x(d as date)
end sub
Private Sub asd(Optional ByVal d1 As Object = Nothing, Optional ByVal d2 As Object = Nothing)
MsgBox(DirectCast(d1, DateTime).Subtract(DirectCast(d2, DateTime)).ToString)
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 37