anstatt Monate in Wochen errechnen
01.04.2020 08:06:05
Wolfgang
den nachfolgenden Code erhielt ich vor geraumer Zeit hier aus dem Forum. Er läuft auch soweit gut. Wäre allerdings denkbar, nachdem sich hier Änderungen ergeben haben, dass der Code anstatt der Monate den errechneten Zeitraum in Wochen anzeigt (7 Tage wöchentlich und max. 2 Nachkommastellen)? - Vielen Dank schon jetzt für die Rückmeldungen.
Herzliche Grüße - Wolfgang
Sub Zeitberechnen()
If IsDate(UF_Schulung.TextBox5) And IsDate(UF_Schulung.TextBox6) Then
UF_Schulung.TextBox7 = Round((Abs(CLng(CDate(UF_Schulung.TextBox5)) - CLng(CDate( _
UF_Schulung.TextBox6))) + 1) / 30.4, 2)
Else
TextBox7 = ""
MsgBox "vollständiges Datum", vbCritical
Exit Sub
End If
End Sub