CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

dsj1972 Juniormester

13. april 2022 - 20:38 Der er 2 kommentarer og
1 løsning

Beregne forfalds dato

Hej Eksperter,

Jeg har en faktura rapport hvor jeg gerne vil have forfalds dato ud fra forskellige betalings betingelser, men kan ikke lige hitte ud af hvordan jeg beregner:

f.eks "løbende måned+ 30 dage"

Må meget gerne være i Vba, da jeg som sagt har forskellige betingelser, så det er nok nemmest i vba.

Jeg har kigget en del på nettet, men der er ikke meget omkring det, ihvertfald ikke omkring at udregne resterende dage på måned fra dags dato.

Håber på et kvikt svar :)

Mvh Dennis

Synes godt om

arne_v Ekspert

13. april 2022 - 20:56 #1

Function PayDateFirst() As Date
Dim d As Date
d = Now()
d = DateSerial(Year(d), Month(d), 1)
d = DateAdd("m", 2, d)
PayDateFirst = d
End Function

Function PayDateLast() As Date
Dim d As Date
d = Now()
d = DateSerial(Year(d), Month(d), 1)
d = DateAdd("m", 2, d)
d = DateAdd("d", -1, d)
PayDateLast = d
End Function

Synes godt om

Gustav Ekspert

15. april 2022 - 08:53 #2

Det kommer an på, om 30 dage skal tages bogstaveligt eller som udtryk for en måned, som ofte anvendt ved 30/360 dage pr. måned/år beregning. Det giver især en forskel omkring februar:

Fakturadato = #13-1-2022#
' Betaling: Løbende måned, 30 dage

' Bogstavelig:
? DateSerial(Year(Fakturadato), Month(Fakturadato) + 1, 30)
02-03-2022

' 30/360:
? DateSerial(Year(Fakturadato), Month(Fakturadato) + 2, 0)
28-02-2022

' Betaling: 60 dage
Dage = 60

' Bogstavelig:
? DateAdd("d", Dage, Fakturadato)
14-03-2022

' 30/360:
? DateAdd("m", Dage \ 30, Fakturadato)
13-03-2022

Synes godt om

dsj1972 Juniormester

15. april 2022 - 17:20 #3

Hej, Takker for begge gode forslag,

Blev dog Gustav´s forslag som kunne bruges, idet jeg bestemt mener at det skal tages bogstavligt idet man jo skriver "lb måned + 30 dage Netto" derved kan det næppe juridisk forstås anderledes. Og hvad angår de 60 dage Netto, er det igen bogstavligt, som er gældende. Og det ser ud til at virke, burde også virke med skudår.

mvh Dennis

Synes godt om

1 synes godt om dette

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
DoCmd.OpenForm som ikke PopUp Af per2edb i Access	2	11/04/202411:02	11/04/202411:34
ilter hvor recorden ikke eksisterer Af per2edb i Access	6	05/04/202414:15	06/04/202418:49
Kan ikke sætte bredde på boks i detajlesektion ( baseret på værdi fra felt på formular ) Af martens i Access	2	03/04/202423:18	05/04/202405:59
Fejl 3053 Af per2edb i Access	1	20/03/202409:26	20/03/202410:40
Tilgang til form Af per2edb i Access	6	13/03/202412:07	20/03/202409:11

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS