Önce bir modülde public değikenler oluşturalım:
Kod:
Public Gun, ay, yil, sonuc, gununadi As String
Kod:
Sub cevirtarih()
On Error Resume Next
Select Case ay
Case "01"
sonuc = "OCAK"
Case "02"
sonuc = "ŞUBAT"
Case "03"
sonuc = "MART"
Case "04"
sonuc = "NİSAN"
Case "05"
sonuc = "MAYIS"
Case "06"
sonuc = "HAZİRAN"
Case "07"
sonuc = "TEMMUZ"
Case "08"
sonuc = "AĞUSTOS"
Case "09"
sonuc = "EYLÜL"
Case "10"
sonuc = "EKİM"
Case "11"
sonuc = "KASIM"
Case "12"
sonuc = "ARALIK"
End Select
End Sub
Kod:
Sub gunver()
Dim Tarih
Dim Gunk
Dim GunAdi
Tarih = Me.Metin0
Gunk = Weekday(Tarih, vbMonday)
Select Case Gunk
Case "1"
GunAdi = " PAZARTESİ"
Case "2"
GunAdi = " SALI"
Case "3"
GunAdi = " ÇARŞAMBA"
Case "4"
GunAdi = " PERŞEMBE"
Case "5"
GunAdi = " CUMA"
Case "6"
GunAdi = " CUMARTESİ"
Case "7"
GunAdi = " PAZAR"
End Select
gununadi = GunAdi
End Sub
(Tabii modülde tanımlanan değişkenlere değerleri de burda atıyorum. mid komutunu çok severim)
Kod:
Me.Calendar0.Visible = False
Gun = Mid(Metin0, 1, 2)
ay = Mid(Metin0, 4, 2)
yil = Mid(Metin0, 7, 4)
cevirtarih
gunver
Me.Metin2 = Gun & " " & sonuc & " " & yil & gununadi