Help!

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

Hulp bij posten

Recente topics

Auteur Topic: ik zoek een formule voor tijd  (gelezen 2786 keer)

0 leden en 1 gast bekijken dit topic.

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
ik zoek een formule voor tijd
« Gepost op: 09 januari 2014, 16:46:08 »
ik heb deze maar werkt niet zo
bedoeling is dat die kijkt naar de verloopdatum bv 01-04-2014
hier moet die dan 60 dagen er voor de melding geven dat deze gaat verlopen en op de dag zelf verlopen.
wie o wie helpt 



IIf([VerloopDatum]Between(Date()-30 and Date()-1;"Binnenkort verlopen";"Verlopen"))
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zoek een formule voor tijd
« Reactie #1 Gepost op: 09 januari 2014, 18:15:16 »
iets in de stijl van ?
Between DateAdd("m";-2;Date()) And DateAdd("d";-1;Date())
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: ik zoek een formule voor tijd
« Reactie #2 Gepost op: 09 januari 2014, 19:14:52 »
nop dan werkt het als filter en krijg je alleen de gegevens die hier in vallen.
in een query zou die moeten aangeven naast de data bv gaat verlopen en is verlopen
zoals mijn voorbeeld
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zoek een formule voor tijd
« Reactie #3 Gepost op: 09 januari 2014, 20:20:42 »
kan je een vbtje hier zetten?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: ik zoek een formule voor tijd
« Reactie #4 Gepost op: 09 januari 2014, 23:32:36 »
heel gewoon ik heb in de tabel staan verloopdatum  bv 01-01-2015
nu moet zo zijn dat ik in de tabel Wanneer
daar in moet dus de formule komen te staan
als de datum -2 maanden aangebroken is de melding verandert in let op verloopdatum
bereikt hij de datum dus 01-01-2015 moet de melding komen Verlopen

dit moet of in de query komen of al in de tabel expressie
  iif([VerlopDatum] Between .................;"Let op Verloopdatum";"Verlopen")

bij deze
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zoek een formule voor tijd
« Reactie #5 Gepost op: 10 januari 2014, 06:25:58 »
Between lukt me ook niet maar dit wel
Private Sub VerloopDatum_AfterUpdate()
    If IsVerlopen Then
        MsgBox "let op de veloopdatum"
    Else
        MsgBox "Verlopen"
    End If
   
End Sub

Function IsVerlopen() As Boolean
     IsVerlopen = IIf(VerloopDatum > DateAdd("m", -2, Date) And VerloopDatum < DateAdd("d", -1, Date), True, False)
     
End Function
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: ik zoek een formule voor tijd
« Reactie #6 Gepost op: 10 januari 2014, 12:58:34 »
ok, goed gedaan,
alleen nu geeft hij bij datums in de toekomst ook een melding dat moet dus ok zijn of geen bijschrift.
en ergens in mijn achterhoofd weet ik het, kom er alleen niet op
ouderdom dus
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zoek een formule voor tijd
« Reactie #7 Gepost op: 10 januari 2014, 18:16:42 »
Private Sub VerloopDatum_AfterUpdate()
    If IsVerlopen(CVDate(VerloopDatum)) Then
        MsgBox "Verlopen"
    Else
        If IsBijnaVerlopen(CVDate(VerloopDatum)) Then
            MsgBox "Bijna verlopen"
        End If
    End If
   
End Sub

Function IsVerlopen(pDatum As Date) As Boolean
     IsVerlopen = IIf(pDatum < DateAdd("m", -2, Date), True, False)
End Function

Function IsBijnaVerlopen(pDatum As Date) As Boolean
     IsBijnaVerlopen = IIf(pDatum > DateAdd("m", -2, Date) And VerloopDatum < DateAdd("d", -1, Date), True, False)
End Function
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com