Hücreye yazmadan 23:00 dan o andaki saati çıkarmak !

[dEdE]

Merhaba,
Saat 23:59 dan o andaki saati çıkararak gece yarısına ne kadar saat:dakika kaldığını hesaplamaya çalışıyorum. Aşağıdaki kodlarla hücrede işlem yapabiliyorum.
Fakat, aynı işlemi hücrelere yazdırmadan değişken kullanarak yapamadım.
Yardım edebilir misiniz?

Sub Hücrede_Saat_İşlemi()
    [A1].Value = "23:59"
    [B1].Value = Format(Now, "h:mm")
    [C1].Value = [A1].Value - [B1].Value
End Sub
'*****************************************************
Sub Değişkende_Saat_İşlemi()
    A = Format("23:59", "hh:mm")
    B = Format(Now, "hh:mm")
    C = A - B
    MsgBox A
    MsgBox B
    MsgBox C
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyiniz.

Sub Değişkende_Saat_İşlemi()
    A = TimeValue("23:59")
    B = Time
    C = A - B
    MsgBox CDate(C)
End Sub

 

[dEdE]

Teşekkür ederim,
İşe yaradı.