14. juli 2003 - 07:56
Der er
26 kommentarer og 1 løsning
hvad er der i vejen med den her?!
Betalingsfrist er en tekstboks i en rapport, og nedenstående bliver aktiveret når rapporten bliver aktiveret! If Format(Now(), "m") = 12 Then Betalingsfrist = "1-1" & "-" & Format(Now(), "yyyy") + 1 Betalingsfrist_ = "1-1" & "-" & Format(Now(), "yyyy") + 1 Else Betalingsfrist = "1-" & Format(Now(), "m") + 1 & "-" & Format(Now(), "yyyy") Betalingsfrist_ = "1-" & Format(Now(), "m") + 1 & "-" & Format(Now(), "yyyy") End If
Annonceindlæg fra Infor
nogen gange virker den, andre gange ikke...
den brokker sig i 5 linie...
Try Betalingsfrist = "1-" & Format(Now(), "m") & "1"
Your mixing strings and numbers as far as I can see and you cant ADD (+) 1 to a sting but you can append it with &
1. Jeg ville nok bruge Month(Now()) i linie 1 istedet for format() 2. Til at regne med datoer kan du bruge DateAdd. jeg går ud fra du ønsker at lægge en dag til din dato. mvh Steen
You should also look at functions year() and month()
er de anderledes end brugen af now()?
If Month(now()) = 12 Then Betalingsfrist = "1-1" & "-" & cstr(Year(now) + 1) Betalingsfrist_ = "1-1" & "-" & cstr(Year(now) + 1) Else Betalingsfrist = "1-" & cstr(now() + 1) & "-" & cstr(Year(now) Betalingsfrist_ = "1-" & cstr(now() + 1) & "-" & cstr(Year(now) End If
If Month(now()) = 12 Then Betalingsfrist = "1-1" & "-" & cstr(Year(now()) + 1) Betalingsfrist_ = "1-1" & "-" & cstr(Year(now()) + 1) Else Betalingsfrist = "1-" & cstr(now() + 1) & "-" & cstr(Year(now()) Betalingsfrist_ = "1-" & cstr(now() + 1) & "-" & cstr(Year(now()) End If
14. juli 2003 - 08:33
#10
alle dine forslag, terry, kommer ud med "1-71", hvor der skal stå "1-7-2003"
14. juli 2003 - 08:34
#11
1-8-2003 skal der naturligvis stå...
14. juli 2003 - 08:38
#12
Oops If Month(now()) = 12 Then Betalingsfrist = "1-1" & "-" & cstr(Year(now()) + 1) Betalingsfrist_ = "1-1" & "-" & cstr(Year(now()) + 1) Else Betalingsfrist = "1-" & cstr(month(now()) + 1) & "-" & cstr(Year(now()) Betalingsfrist_ = "1-" & cstr(month(now() + 1)) & "-" & cstr(Year(now()) End If
14. juli 2003 - 08:41
#13
"1-" & month(now()+1 ) & "-" & cstr(Year(now()))
14. juli 2003 - 08:42
#14
we'll get there "1-" & month(now() )+1 & "-" & cstr(Year(now()))
14. juli 2003 - 08:49
#15
sådan skal den se ud: If Month(Now()) = 12 Then Betalingsfrist = "01-01" & "-" & CStr(Year(Now()) + 1) Betalingsfrist_ = "01-01" & "-" & CStr(Year(Now()) + 1) Else Betalingsfrist = "01-" & CStr(Month(Now()) + 1) & "-" & CStr(Year(Now())) Betalingsfrist_ = "01-" & CStr(Month(Now() + 1)) & "-" & CStr(Year(Now())) End If
14. juli 2003 - 08:53
#16
! But doesnt Betalingsfrist = "01-" & CStr(Month(Now()) + 1) & "-" & CStr(Year(Now())) return 01-7-2003?
14. juli 2003 - 08:55
#17
nej, den laver jo også "Month(Now()) + 1)"....
14. juli 2003 - 08:57
#18
well thats what I thought at first but when I test it it returns 01-7-2003 But if its working with you then great :o)
14. juli 2003 - 08:58
#19
den første version kom ud med 01-7-2003, men den så jo også ud som: cstr(now() + 1)
14. juli 2003 - 09:00
#20
take a look at these two lines, the calculations are NOT the same! CStr(Month(Now()) + 1) and CStr(Month(Now() + 1)) do not give the same result! Betalingsfrist = "01-" & CStr(Month(Now()) + 1) & "-" & CStr(Year(Now())) Betalingsfrist_ = "01-" & CStr(Month(Now() + 1)) & "-" & CStr(Year(Now()))
14. juli 2003 - 09:00
#21
the first is correct
14. juli 2003 - 09:01
#22
i know, i made the correction right after posting it here.. :) but thanx for mentioning...
14. juli 2003 - 09:02
#23
Nå det er det I vil! Jamen er det så ikke nemmere med: DateSerial(Year(Now)+1,Month(now),1) og DateSerial(Year(Now)+1,Month(now)+1,1) mvh Steen
14. juli 2003 - 09:04
#24
der er fart over feltet, hva molberg.. hehe øhh, hva er det lige at den gør?
14. juli 2003 - 09:06
#25
Check hjælpen. Den giver dig en adresse ud fra dag, måned og år. F.eks. DateSerial(2003,12,24) returnerer en dato for juleaften i år. -Steen
14. juli 2003 - 09:09
#26
En dato selvfølgelig... Hmmm... jeg skal vidst have ferie :-) Steen
14. juli 2003 - 18:58
#27
yes there are many ways to do it :o)
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser