25-01-2022, 23:55
Visual Basic
- Function ZamanFark(Saniye)
- Dim TopSaat, ZGun, ZSaat As Long
- ZGun = Int(CSng(Saniye))
- TopSaat = Int(CSng(Saniye * 24))
- ZSaat = TopSaat Mod 24
- ZamanFark = IIf(ZGun > 0, ZGun & " Gün(" & ZSaat & " Saat)", ZSaat & " Saat")
- End Function
Me.Metin15 = ZamanFark((Me.ÇıkışTarihi + Me.ÇıkışSaati) - (Me.GelisTarihi + Me.GelisSaati))
yapılabilir.