ms-office.gr > Forum > Microsoft Office > VB.Net samples - Χρήσιμα αρχεία & παραδείγματα > Υπολογισμός Διαφοράς Χρόνου μεταξύ ημερομηνιών

VB.Net samples - Χρήσιμα αρχεία & παραδείγματα Παραδείγματα VB.NET διαθέσιμα για τα μέλη του Forum.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 09-07-20, 13:51
Super Moderator
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 14-01-2014
Μηνύματα: 237
Προεπιλογή Υπολογισμός Διαφοράς Χρόνου μεταξύ ημερομηνιών

Ο παρακάτω κώδικας υπολογίζει σε ώρες την διαφορά δυο ημερομηνιών και ολογράφως.

Κώδικας της κλάσης :
Κώδικας:
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
__________________
Βραχνάκης Γιώργος
vrahnakisg@gmail.com

Τελευταία επεξεργασία από το χρήστη Tasos : 09-07-20 στις 14:19.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι σε λειτουργία
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός 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.