![[VB2010]How to Zeit konverter erstellen](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb2010-how-zeit-konverter-erstellen_ltr.gif){kind=small}
hier mal ein Modul was ich geschrieben hab (war relativ einfach).
Es Konvertiert zB Std. in Minuten, Min. in Std. , Sek. in Std., usw.
Aber nur Std, Min. und Sek.
Naja,
so startet ihr.
Ihr erstellt ein neues Modul, und nennt es TimeConvert (Muss so heißen!)
So, jetzt gebt ihr folgenden Code ein.
HTML Code:
Public Function FromSecondToHour(ByVal Seconds As Integer) As Double
FromSecondToHour = Seconds / 3600
End Function
Public Function FromSecondToMinute(ByVal Seconds As Integer) As Double
FromSecondToMinute = Seconds / 60
End Function
Public Function FromMinuteToHour(ByVal Minute As Integer) As Double
FromMinuteToHour = Minute / 60
End Function
Public Function FromMinuteToSecond(ByVal Minute As Integer) As Double
FromMinuteToSecond = Minute * 60
End Function
Public Function FromHourToSecond(ByVal Hours As Integer) As Double
FromHourToSecond = Hours * 3600
End Function
Public Function FromHourToMinute(ByVal Hours As Integer) As Double
FromHourToMinute = Hours * 60
End Function
1. Zeile: Fängt mit einer Puplizierten (Öffentlichen) Funktion an, das ByVal bedeutet dass man dass eingeben muss beim Aufrufen was da steht, zB Hour, und das Ergebnis ist ein Double (besser als Integer wenn Kommazahlen rauskommen).
2. Zeile: Rechnet alles um, und die Funktion gibt das Ergebnis um.
3. Zeile: Endet die Funktion.
So hier ein Aufrufebeispiel:
HTML Code:
MsgBox(TimeConvert.FromSecondToHour(120))
So, jetzt müsste 0,0333 Periode Rauskommen, richtig.
Das wars auch schon.
Credits : (gerippt von) Lavendetta (Hier im Forum "Lavendetta16")
