- Katılım
- 30 Mart 2008
- Mesajlar
- 405
- Excel Vers. ve Dili
- 2003 Türkçe
Aşağıdaki kod VB.NET için VBA için nasıl uygulanır? Teşekkürler...
Public Function getuptime() As String
Dim cevap As String = String.Empty
cevap += Convert.ToString(Environment.TickCount / 86400000) + " gün, "
cevap += Convert.ToString(Environment.TickCount / 3600000 Mod 24) + " saat, "
cevap += Convert.ToString(Environment.TickCount / 120000 Mod 60) + " dakika, "
cevap += Convert.ToString(Environment.TickCount / 1000 Mod 60) + " saniye."
Return cevap
End Function
Public Function getuptime() As String
Dim cevap As String = String.Empty
cevap += Convert.ToString(Environment.TickCount / 86400000) + " gün, "
cevap += Convert.ToString(Environment.TickCount / 3600000 Mod 24) + " saat, "
cevap += Convert.ToString(Environment.TickCount / 120000 Mod 60) + " dakika, "
cevap += Convert.ToString(Environment.TickCount / 1000 Mod 60) + " saniye."
Return cevap
End Function
