msg box'a saat değeri çekerken ondalıklı sayı veriyor

[arimuz]

selamlar hocam. şu sorunu hala halledemedim, bir el atarsanız sevinirim.

sisteme giriş yaptıktan sonra çıkış butonuna basınca, çıkış saatinden giriş saatini çıkartıp sistemde şu kadar dakika kaldınız demesini istiyorum.
Örn:
-sistemde 07.54 dakika kaldınız demesini istiyorum (=şimdi komutundan dönen değerle demesini istiyorum ) herşeyi ayarlıyorum. Ama bana ondalıklı sayı veriyor.

 

[uzmanamele]

merhaba

bunu deneyiniz

Public basla As Double, bitis As Double
Sub auto_open()
basla = Time
End Sub
Sub auto_close()
bitis = Time
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
sure = bitis - basla
MsgBox ("Sistemde  " & Format(sure, "hh:mm:ss:dd") & "  dakika kaldınız")
End Sub

 

[arimuz]

hocam uğraştırıyorum ama .net olmaması gerekiyor. bende yapıyorum bunu ama makrolarla yapamıyorum. Allah razı olsun.

 

[arimuz]

hocam uğraştım yapamadım, dediğiniz gibi yaptım sonunda elinize beyninize sağlık teşekkürler.

 

[Mahir64]

Merhaba

Süleyman bey teşekürler bende sebeplendim .