Gerçek Tarih ve Saat

[jajiyiko]

Merhaba!

Herkese kolay gelsin.

Bilgisayarın tarihi değişse bile gerçek tarih ve saati bilebilirmiyiz?

Şöyle bugün 29.10.2011 ve saat 12:00.

Biz bilgisayarın tarihini mesela 01.05.2010 ve saatinide 23:30 yaptık.

Bir macro ile gerçek tarih ve saati yani 29.10.2011 ve 12:00 öğrenebilirmiyiz?

Şimdiden teşekkürler

 

[Korhan Ayhan]

Merhaba,

Netten sorgulayarak öğrenebilirsiniz. Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz.

Option Explicit
 
Sub GERÇEK_TARİH_SAAT_KAÇ()
    Dim Aylar_EN(), Aylar_TR(), S1 As Worksheet
    Dim Tarih As Variant, Saat As Date, X As Byte
    
    Aylar_EN = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "Nowember", "December")
    Aylar_TR = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
    
    Application.ScreenUpdating = False
    Set S1 = Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.timeanddate.com/worldclock/fullscreen.html?n=107", Destination:=Range("A1"))
        .Name = "SAAT"
        .Refresh BackgroundQuery:=False
    End With
    Tarih = Replace(Split(Range("A2"), ", ")(1), " ", ".")
    Saat = Format(Range("A3"), "hh:mm:ss")
    
    For X = 0 To UBound(Aylar_EN)
        Tarih = Replace(Tarih, Aylar_EN(X), Aylar_TR(X))
    Next
    
    Application.DisplayAlerts = False
    S1.Delete
    Set S1 = Nothing
    Application.ScreenUpdating = True
    
    MsgBox CDate(Tarih) & Chr(10) & Saat
End Sub

 

[Necdet]

Merhaba,

Sorunuzun tam karşılığı mıdır nedir bilmiyorum, fikir olsun.

Sayfada webbrowser uygulaması.

Private Sub Worksheet_Activate()
    WebBrowser1.Navigate "[URL]http://www.timeanddate.com/worldclock/fullscreen.html?n=19[/URL]"
End Sub

 

[Merhum İdris SERDAR]

Merhaba!

Herkese kolay gelsin.

Bilgisayarın tarihi değişse bile gerçek tarih ve saati bilebilirmiyiz?

Şöyle bugün 29.10.2011 ve saat 12:00.

Biz bilgisayarın tarihini mesela 01.05.2010 ve saatinide 23:30 yaptık.

Bir macro ile gerçek tarih ve saati yani 29.10.2011 ve 12:00 öğrenebilirmiyiz?

Şimdiden teşekkürler

.


Makroya gerek var mı? Bilmiyorum.

Bilgisayarın tarihi ile ne kadarlık bir oynama yaptığımızı bilirsek,

=NOW()+/- Değişiklik miktarı

=ŞİMDİ()+/- Değişiklik miktarı

formülünden bulabiliriz.

.

 

[jajiyiko]

Sayın Korhan Ayhan, Sayın Necdet Yeşertener, Sayın yurttaş ilginiz için çok teşekkür ederim.

Sayın Korhan Ayhan'ın gönderdiği modul örneği kesinlikle işe yaradı. Yanlızca sorun internet bağlantısı olmayan bilgisayarlarda kullanılamaması.

Teşekkür ederim

 

[tamer42]

Merhabalar,

gerçek tarih ve saat yerine bilgisayar üzerindeki tarihi bir macro ile nasıl öğrenebiliriz?

iyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

MsgBox Now