VBA Tarih hatası

[RONIN1]

Merhaba

Aşağıdaki belirtilen tarih geldiğinde kullanıcıyı uyaran kod bilgisayarımda sorunsuz çalışıyor fakat tarih ayarları farklı olan (Japon YY:MMD) bilgisayarda hata veriyor. Bu kodu bütün tarih formatlarında çalışacak şekilde nasıl değiştirebileceğimiz konusunda yardımınızı rica ediyorum.

İyi çalışmalar

Private Sub Workbook_Activate()
Dim Sureson As Date
Dim Bugun As Date
Sureson = "04.04.2013" '
Bugun = Date
If Bugun > Sureson Then
sifre = InputBox("Devam edebilmek için şifre girmelisiniz!", " PROGRAM KULLANIM SÜRESİ DOLMUŞTUR")
If sifre <> "123" Then '
ActiveWorkbook.Save
Application.Quit
End If
End If
If Sureson > Bugun Then
MsgBox ("- Kullanım için " & Sureson - Bugun & " gününüz kalmıştır." & vbLf & "- Süre Bitiminde Program Kilitlenecektir"), vbQuestion, " D İ K K A T"
End If
If Sureson = Bugun Then
MsgBox ("- Programın kullanım süresi bu gün son." & vbLf & "- Gece saat 00:00 'da Program kilitlenecektir" & vbLf & "- Bilginize"), vbQuestion, " U Y A R I"
End If
End Sub

 

[İsmailCen]

Merhaba,

Sureson = "04.04.2013"
Bugun = Date

yukarıdaki satırları

Sureson = Format("04.04.2013", "YY:MM:DD")
Bugun = Format(Date, "YY:MM:DD")

şeklinde değiştirmeniz, belki bir çözüm olabilir.

 

[Trilenium]

Dim a As Date
a = ("04/04/2013")
sureson = CDbl(a)
Bugun = CDbl(Date)
If sureson > Bugun Then
MsgBox ("- Kullanım için " & sureson - Bugun & " gününüz kalmıştır." & vbLf & "- Süre Bitiminde Program Kilitlenecektir"), vbQuestion, " D İ K K A T"
End If

Devamını siz yazarsınız zaten...Tarihi sayıya çevirip kontrol altına alırsanız daha kolay olur sizin için

 

[RONIN1]

İsmail bey, ilginize teşekkür ederim fakat aynı hatayı verdi.

Sorun devam ediyor.

 

[RONIN1]

Sayın Trilenium;

Yardımınız için teşekkür ederim. Sorunum çözüldü ve tarihi rakama çevirme fikri de başka zaman kullanmabilmem için çok iyi bir örnek oldu.

İyi çalışmalar