CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede nordclc Nybegynder
08. april 2014 - 15:59 Der er 4 kommentarer og
1 løsning

Dags dato = dag 1 i kvartal

Hej Eksperter,

jeg bruger nedenstående linier til at finde datoen på det næste kvartal. Men det skal den kun gøre hvis Request.Form("Indmeldelsesdag") ikke er den første dag i kvartalet (1/1, 1/4, 1/7 eller 1/10.


kvartal = DatePart("q",cDate(Request.Form("Indmeldelsesdag")))
sdato = ateSerial(Year(cDate(Request.Form("Indmeldelsesdag"))),1,1)
sdato = DateAdd("q",kvartal,sDato)

Kan nogen hjælpe mig?

Mvh
Claus
Avatar billede claes57 Ekspert
08. april 2014 - 17:21 #1
Datoen = cDate(Request.Form("Indmeldelsesdag"))
if DatePart("d",Datoen) = 1 and (DatePart("m",Datoen)=1 or DatePart("m",Datoen)=4 or DatePart("m",Datoen)=7 or DatePart("m",Datoen)=10) then
' hvad så hvis dato er start på kvartal
  sdato = Datoen
else
  kvartal = DatePart("q",Datoen)
  sdato = DateSerial(Year(Datoen),1,1)
  sdato = DateAdd("q",kvartal,sDato)
end if
Avatar billede claes57 Ekspert
08. april 2014 - 17:23 #2
bemærk, at
if DatePart("d",Datoen) = 1 and (DatePart("m",Datoen)=1 or DatePart("m",Datoen)=4 or DatePart("m",Datoen)=7 or DatePart("m",Datoen)=10) then
er en lang linje - skal den opdeles i flere, så indsæt _
if DatePart("d",Datoen) = 1 and _
(DatePart("m",Datoen)=1 or DatePart("m",Datoen)=4 or _
  DatePart("m",Datoen)=7 or DatePart("m",Datoen)=10) then
Avatar billede nordclc Nybegynder
09. april 2014 - 00:00 #3
Perfekt claes57 det virker ;-) Smid et svar.

Mvh
Claus
Avatar billede claes57 Ekspert
09. april 2014 - 06:13 #4
Bare luk selv...
Avatar billede nordclc Nybegynder
09. april 2014 - 08:08 #5
Jeg bukker og siger mange tal for hjælpen.

Mvh
Claus
Avatar billede 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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 0 07/11/202415:34 -
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:49 pop up black friday Af Malm i Virus
I går 18:31 Hvor finder jeg en netværksdriver? Af jcr18 i Wifi
I går 16:49 Identificér og hent del af tekststreng Af TheLibrarian i Excel
I går 16:30 Smart vægt til fitness tracking Af Henrik i Fitness & Smartwatches
I går 08:08 touchpad virker ikke Af Malm i PC
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Audi Q6 er en super fed SUV - men gør dig selv en tjeneste og kast flere penge efter den
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Stor sag mod Microsoft kan være på vej: Beskyldes for at låse Azure-kunder fast med ulovlige metoder
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Tre Norlys-topchefer fratræder med omgående virkning: Internet-forretningen er udfordret - vil have mere fart i integrationen af Telia Danmark
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Se alle »
White paper
Teaser billede
Er din cybersikkerhed klar til AI-revolutionen?
Læs mere »
Sådan gør du: Elektronisk dokumentudveksling i praksis
Sikkerhed uden grænser: Cisco Hypershield
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »