[Vb.net]Bilgisayar Kaç Saattir Açık

[Nazdravia]

Public Class Form1
   Public Function PC_Kac_Saat_Acik() As String
       Dim RealityCheats As String = String.Empty
       RealityCheats += Math.Round(Environment.TickCount / 86400000) & " gün, "
       RealityCheats += Math.Round(Environment.TickCount / 3600000 Mod 24) & " saat, "
       RealityCheats += Math.Round(Environment.TickCount / 120000 Mod 60) & " dakika, "
       RealityCheats += Math.Round(Environment.TickCount / 1000 Mod 60) & " saniye."
       Return RealityCheats
   End Function
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       MessageBox.Show(PC_Kac_Saat_Acik)
   End Sub

 

[Drenated]

Yararlı +