*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Formule einde maand berekenen  (gelezen 10548 keer)

0 leden en 1 gast bekijken dit topic.

Offline stoeresteven

  • Lid
  • *
  • Berichten: 69
  • Oplossing.be
Formule einde maand berekenen
« Gepost op: 23 april 2006, 17:45:58 »
Weet er iemand de formule voor het volgende:

Een faktuur komt binnen en is betaalbaar 30 dagen einde maand.
dus ik vul de faktuurdatum in, en de vervaldatum van betaling zou auto moeten aangeven 30 einde van die maand

Alvast bedankt voor de moeite en het antwoorden
Gelogd
Win XP - AMD 3000+ - 256 MB RAM - NVIDIA GeForce FX 5100 - Telenet

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re:Formule einde maand berekenen
« Reactie #1 Gepost op: 24 april 2006, 08:13:20 »
In bijlage vind je een voorbeeldje
een formulier zonder gekoppelde velden en eentje gekoppeld aan een query


Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline stoeresteven

  • Lid
  • *
  • Berichten: 69
  • Oplossing.be
Re:Formule einde maand berekenen
« Reactie #2 Gepost op: 24 april 2006, 11:12:05 »
Dizzl, bedankt voor je voorbeeldje, maar het was niet helemaal wat ik zocht:
De formule zou moeten berekend worden op het einde van de maand: bv. op vandaag (24/04/06) einde maand is dus 30/04/06, + 30 dagen is 30/05/06 (= betaaldatum)...
Gelogd
Win XP - AMD 3000+ - 256 MB RAM - NVIDIA GeForce FX 5100 - Telenet

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re:Formule einde maand berekenen
« Reactie #3 Gepost op: 24 april 2006, 16:12:42 »
hey :-)
via de query heb ik het niet opgelost.. maar om het ander formulier heb ik nu
Code: [Selecteer]
Private Sub txtFactuurDatum_Exit(Cancel As Integer)
 
   Dim FactuurDatum As Date
   FactuurDatum = CDate(Me.txtFactuurDatum.Text)
 
   'Ga naar het eerste van deze maand
   Dim vBetaalDatum As Date
   vBetaalDatum = DateAdd("d", -Day(FactuurDatum) + 1, FactuurDatum)
   'Ga nu twee maand verder
   vBetaalDatum = DateAdd("m", 2, vBetaalDatum)
   Me.txtBetaalDatum.SetFocus
   'trek er nog één dag vanaf om naar de laatste van vorige maand te gaan
   Me.txtBetaalDatum.Text = CStr(vBetaalDatum - 1)
 
End Sub
dit lijkt me te werken...hopelijk voor jou ook :-)
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline stoeresteven

  • Lid
  • *
  • Berichten: 69
  • Oplossing.be
Re:Formule einde maand berekenen
« Reactie #4 Gepost op: 25 april 2006, 09:09:49 »
OK, thanks, ik zal dit eens uitproberen
Greetz
Gelogd
Win XP - AMD 3000+ - 256 MB RAM - NVIDIA GeForce FX 5100 - Telenet
Pagina's: [1]   Omhoog
 


www.combell.com