Programm auf Nachkommastellen anpassen

Forumthread: Programm auf Nachkommastellen anpassen

08.05.2020 19:25:14

Werner.B

Guten Abend,
ich schaue mir in diesem Forum gerne einmal die Beiträge, aber auch Beispielsmappen an, um noch weiter zu lernen und Anregungen zu erhalten. Ich habe dabei das Programm in der nachfolgenden Datei entdeckt und versucht, für mich anzupassen. Das Problem, welches ich nun entdecke, ist, dass die Wochen mit Nachkommastellen nicht berücksichtigt werden. Was habe ich da zu beachten? Es würde dabei eine Nachkommastelle reichen. Ich bedanke mich schon jetzt für die Hinweise. - Mit freundlichen Grüßen Werner B.
https:\/\/www.herber.de/bbs/user/137371.xlsm

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Programm auf Nachkommastellen anpassen

08.05.2020 21:07:31

onur
AW: Programm auf Nachkommastellen anpassen

08.05.2020 22:26:38

GerdL
Vielen Dank!

09.05.2020 12:23:54

Werner.B

AW: Programm auf Nachkommastellen anpassen

08.05.2020 21:07:31

onur

Ohne zu wissen, was
NetworkDate
sein soll, kann man dir nicht wirklich helfen.
Ich könnte zwar schreiben, dass du statt

CInt(textWochen)

das hier nehmen solltest:

CDbl(textWochen)

aber die Frage ist, was hier passiert:

textEnde = NetworkDate(CDate(textBeginn), CInt(textWochen))

Offenbar eine UDF (oder soll das etwa NETWORKDAYS sein?).

AW: Programm auf Nachkommastellen anpassen

08.05.2020 22:26:38

GerdL

Moin Werner,
ob das Ergebnis deinen Erwartungen voll entspricht, musst du mal gucken.

Function NetworkDate(dteStart As Date, iWeeks As Double) As Date
Dim j As Integer
Do Until Application.NetworkDays(dteStart, dteStart + j) / 5 >= iWeeks
j = j + 1
Loop
NetworkDate = dteStart + j
End Function
Private Sub textBeginn_AfterUpdate()
If IsNumeric(textWochen) And IsDate(textBeginn) Then
textEnde = NetworkDate(CDate(textBeginn), CDbl(textWochen))
End If
End Sub
Private Sub textWochen_AfterUpdate()
If IsNumeric(textWochen) And IsDate(textBeginn) Then
textEnde = NetworkDate(CDate(textBeginn), CDbl(textWochen))
End If
End Sub

Gruß Gerd

Vielen Dank!

09.05.2020 12:23:54

Werner.B

Hallo Gerd,
ich bedanke mich vielmals für die Antwort. Das Ergebnis entspricht voll meinen Wünschen. Es wird nun auch ein fünftel einer Woche etc. umgerechnet. Du hast mir sehr geholfen. Vor allem habe ich wieder hinzugelernt und weiß nun wad CDbl bzw. Double auswirkt.
Viele Grüße und nochmals Danke. Werner.B

Beliebteste Forumthreads (12 Monate)

Programm auf Nachkommastellen anpassen

Forumthread: Programm auf Nachkommastellen anpassen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread