format (tarih, saat) toplamı

[vivident]

Merhaba

C13 hücresinden "26.04.2018 23:03:02" tarih ve saat formatını alıyorum. ben bu veriye 1 dakika ekleyeceğim. Yani yeni değerim "26.04.2018 23:04:02" olmalı. Ama Msgbox'da aşağıdaki gibi değer çıkıyıor

26.04.2018 23:03:0200.00.0000 00:01:00

Sub topla()
B = Format("00.00.0000 00:01:00", "dd.mm.yyyy hh:mm:ss")
A = Format(Sheets("Donnees").Range("C13"), "dd.mm.yyyy hh:mm:ss")

P = A + B
MsgBox " " & P & " "
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Topla()
    Dim A As Date
    
    A = Format(Sheets("Donnees").Range("C13"), "dd.mm.yyyy hh:mm:ss")
    Tarih = CDbl(A) + TimeValue("00:01:00")
    MsgBox Tarih
End Sub

 

[vivident]

Teşekkür ederim Korhan bey

 

[vivident]

Korhan bey
Aşağıdaki gibi kullanmaya çalıştığımda hata alıyorum. A olarak değişken atamadan direk kod içinde nasıl kullanabilriim


Tarih = CDbl(Format(Sheets("Donnees").Range("C13"), "dd.mm.yyyy hh:mm:ss")) + TimeValue("00:00:05")

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Topla()
    Dim Tarih As Date
    Tarih = Format(Sheets("Donnees").Range("C13").Value + TimeValue("00:00:05"), "dd.mm.yyyy hh:mm:ss")
    MsgBox Tarih
End Sub