VB.Net samples - Χρήσιμα αρχεία & παραδείγματα Παραδείγματα VB.NET διαθέσιμα για τα μέλη του Forum. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Υπολογισμός Διαφοράς Χρόνου μεταξύ ημερομηνιών
Ο παρακάτω κώδικας υπολογίζει σε ώρες την διαφορά δυο ημερομηνιών και ολογράφως. Κώδικας της κλάσης : Κώδικας: Public Class clsDurationHours Public strDuration As String Public Function DurationHours(ByVal StartDateTime As DateTime, ByVal EndDateTime As DateTime) As Double Dim startTime As DateTime Dim endTime As DateTime Dim duration As TimeSpan Dim sumHours As Integer = 0 Dim numTime As Double = 0.0 If EndDateTime < StartDateTime Then MsgBox("Η ημερομηνία Λήξης (" & EndDateTime & ") δεν μπορεί να ειναι" & vbNewLine & _ "μεταγενέστερη από την ημερομηνία έναρξης (" & StartDateTime & ")", MsgBoxStyle.Information) End If startTime = StartDateTime endTime = EndDateTime duration = endTime - startTime If duration.Days >= 1 Then sumHours = duration.Hours + (duration.Days * 24) Else sumHours = Int(duration.Hours) End If strDuration = "Διάρκεια: " & sumHours & " Ώρες " & duration.Minutes & " Λεπτά " & duration.Seconds & " Δευτερόλεπτα" numTime = FormatNumber(sumHours + (duration.Minutes / 60) + ((duration.Seconds / 60) / 10), 2) Return numTime End Function End Class Δήλωση της κλάσης clsDurationHours: Dim clsDurationHours As New clsDurationHours Dim timenum As Double = 0 ---------------------------------------------------------------------------------------- Κλήση της συνάρτησης DurationHours: timenum = clsDurationHours.DurationHours(StartDateTime, EndDateTime) Label1.Text = clsDurationHours.strDuration 'ολογράφως Label2.Text = "Μονάδες χρόνου:" & timenum Τελευταία επεξεργασία από το χρήστη Tasos : 09-07-20 στις 14:19. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Υπολογισμός διαφοράς 2 πεδίων | gaz_manos | Access - Ερωτήσεις / Απαντήσεις | 11 | 21-08-13 23:54 |
[ Συναρτήσεις ] ΥΠΟΛΟΓΙΣΜΟΣ ΔΙΑΦΟΡΑΣ ΧΡΟΝΟΥ | vangelis67 | Access - Ερωτήσεις / Απαντήσεις | 4 | 23-10-11 11:04 |
NETWORKDAYS - Υπολογισμός διαφοράς μεταξύ δύο ημερομηνιών | Tasos | Ημερομηνία & ώρα | 0 | 11-10-11 14:34 |
Αφαίρεση μεταξύ ημερομηνιών | Jim | Access - Ερωτήσεις / Απαντήσεις | 12 | 28-09-10 10:32 |
[Συναρτήσεις] υπολογισμός μεταξύ 2 ημερομηνιών "Φεβρουάριος 30 ημερών" | PanosPan | Excel - Ερωτήσεις / Απαντήσεις | 12 | 22-02-10 20:00 |
Η ώρα είναι 08:21.