makroda tarih(gün) hatası

[tirvana]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "GÜLE GÜLE!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
".......", vbInformation, "mesajbox"
End Sub


kapanırken verdiği mesaj
GÜLE GÜLE
7.3.2007
cumartesi
12:08
........

tarih doğru ama bugün cumartesi değil çarşamba
bu hata neden kaynaklanıyor olabilir.

 

[Recep İpek]

Format((Date), "dddd") olarak deneyiniz.

 

[tirvana]

Format((Date), "dddd") olarak deneyiniz.

teşekkürler sn ripek.
doğru sonucu verdi