office word bereken datum veld

[Anoniem: 138697]

Hallo tweakers,

Ik heb de volgende vraag,

Ik ben een word document aan het maken (factuur) die automatisch de begin en eind datum ingevoerd in een in vul veld.

De begin datum lukt wel dat is niet zo lastig:
Dat doe je gewoon met DATE \@ "d-M-yyyy" of DATE

Maar hoe zorg ik er nu voor dat de datum een maand verder is dan de echte datum

Ik heb al op internet gekeken zonder suc6...

ik hoop dat jullie mij kunnen helpen

[Anoniem: 3057]

Gevonden op http://msdn.microsoft.com...k/html/office08032000.asp

code:

Function LastOfMonth(Optional dteDate As Date) As Date

   ' This function calculates the last day of a month, given a date.
   ' If no date is passed in, the function uses the current date.
   
   If CLng(dteDate) = 0 Then
      dteDate = Date
   End If
   
   ' Find the first day of the next month, then subtract one day.
   LastOfMonth = DateSerial(Year(dteDate), Month(dteDate) + 1, 1) - 1
End Function

Enjoy

[Anoniem: 113297]

ofwel dit eenvoudig veldje, een maand verder (delay=1)

code:

{QUOTE {SET Delay 1} {SET mm{=MOD({DATE \@ M}+Delay-1,12)+1}} {SET yy{={DATE \@ yyyy}+INT((Delay+{DATE \@ M}-1)/12)}} {SET dd{=IF(({DATE \@ d}>28)*(mm=2)*((MOD(yy,4)=0)+(MOD(yy,400)=0)-(MOD(yy,100)=0))=1,29,IF(({DATE \@ d}>29)*(mm=2)=1,28,IF((mm=4)+(mm=6)+(mm=9)+(mm=11)+({DATE \@ d}>30)>1,30,{DATE \@ d})))}} {=dd*10^6+mm*10^4+yy \# "00'-'00'-'0000"} \@ "dddd, d MMMM yyyy"}