Skip to main content

AccessTr.neT


Bir değişkenin değereni tüm subroutine' lerde kullanmak

Bir değişkenin değereni tüm subroutine' lerde kullanmak

#2
merhaba
yanlış anlamadıysam sanırım modül yaparak orada kullandıgın işlemi başka yerde de kullanmak istiyorsun
örneğin aşagıda Resmi tatil günlerini bulan bir modül var..

Public Function ResmiTatil(ByVal Tarihim As Date) As Boolean
Dim Gun_Ay As String


Gun_Ay = Format(Tarihim, "ddmm")
If Weekday(Tarihim) = 1 Or Weekday(Tarihim) = 7 Or _
Gun_Ay = 101 Or Gun_Ay = 2304 Or Gun_Ay = 1905 Or Gun_Ay = 2910 Or Gun_Ay = 3008 Then

ResmiTatil = False


Else

ResmiTatil = True

End If

End Function
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Bir değişkenin değereni tüm subroutine' lerde kullanmak - Yazar: C*e*l*o*y*c*e - 27/08/2014, 14:19
Task