Excel VBA - Logikfehler

Question

Ich habe eine Tabelle (x4), die Summe der Stunden von mehreren Mitarbeitern zusammen. Ein Mitarbeiter kommt insgesamt auf 24 Stunden. In meiner Funktion, aufgrund der Tatsache, wie Excel Stunden intern darstellt, entspricht das 1. Basierend auf dem Wert von "Stunden" formatiert es dann die Zelle, um die Gesamtstunden anzuzeigen: min für jede Person. Ich habe überprüft - Typname (Stunden) = double. Ich kann nicht sehen, warum Stunden> = 1 nicht mit "Wahr" gleichgesetzt wird, wenn Stunden = 1 sind. Wenn ich den Tabellenwerten für diese Person 1 Minute hinzufüge, funktioniert das wie erwartet?

Public Function format_hours(hours As Variant) As Variant 
If hours >= 1 Then 
    format_hours = Application.Text(hours, "[hh]:mm") 
ElseIf hours > 0 Then 
    format_hours = Format(hours, "hh:mm") 
Else 
    format_hours = 0 
End If 
End Function 

Answer 1

Das Problem ist, dass die Hours as Variant ist wahrscheinlich als String kommt durch, und kein Datum/Doppel. Da Sie es nie explizit in Date/Double überprüfen/konvertieren, dann führt es in Ihrem If hours >= 1 Then wahrscheinlich nicht zu den impliziten Konvertierungen und Vergleichen, die Sie erwarten.

Lösung: Verwenden Sie explizite Konvertierungen und Vergleiche. Implizite lutschen, weil sie unweigerlich mysteriöse Käfer wie diese produzieren.