- Код: Выделить всё
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Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9