Konvertering til dato

Nærmeste er at lave 2 funktioner som finder hhv. første og sidste dag i måneden.

Public Function EOMonth(InputDate As Date, Optional MonthsToAdd As Integer)
' Returns the date of the last day of month, a specified number of months
' following a given date.
  Dim TotalMonths As Integer
  Dim NewMonth As Integer
  Dim NewYear As Integer

  If IsMissing(MonthsToAdd) Then
      MonthsToAdd = 0
  End If

  TotalMonths = Month(InputDate) + MonthsToAdd
  NewMonth = TotalMonths - (12 * Int(TotalMonths / 12))
  NewYear = Year(InputDate) + Int(TotalMonths / 12)

  If NewMonth = 0 Then
      NewMonth = 12
      NewYear = NewYear - 1
  End If

  Select Case NewMonth
      Case 1, 3, 5, 7, 8, 10, 12
        EOMonth = DateSerial(NewYear, NewMonth, 31)
      Case 4, 6, 9, 11
        EOMonth = DateSerial(NewYear, NewMonth, 30)
      Case 2
        If Int(NewYear / 4) = NewYear / 4 Then
            EOMonth = DateSerial(NewYear, NewMonth, 29)
        Else
            EOMonth = DateSerial(NewYear, NewMonth, 28)
        End If
  End Select
End Function

Never mind det med den første dag i måneden, der kan også være nogle på arbejde lørdag og søndag, får jeg lige at vide!!! :)

"That could have been brought to my attention YESTERDAY!!!" :(
- Adam Sandler "The weddingsinger"

Og der var selvfølgelig en fejl i
d. første dag i januar (01-01-2006)
skulle have været
d. første arbejdsdag i januar (02-01-2006)

Jeg ville nok benytte mig af dateserial-funktionen. Den kan gøre det ret nemt for dig.

dim fra as date
dim til as date

  fra = dateserial(left(strengdato,4), right(strengdato, 2), 1)
  til = dateserial(year(fra), month(fra)+1,0)

hvor strengdato selvfølgelig er en variabel der indeholder en dato efter formatet yyyymm.

Jeg har bare skrevet koden ind; har slet ikke været omkring Access med den, så der skal måske lige nørkles en smule.

Hmmmm....hvis f.eks. strengdato = 200609, vil "fra" komme til at indeholde værdien 01-09-2006 og "til" 30-09-2006, hvilket i forespørgslen vil bliver konverteret til
09-01-2006 ("til"-feltets værdi bibeholdes)
Hvordan kan jeg sikre at Access kan forstå at der menes 01-09-2006 og ikke 09-01-2006?
Der er tale om sammenkædede tabeller (.dbf filer)

Kan du ikke gøre det her direkte i forespørgsel med Format ?
Format([fysiskDato],"mmyyyy")
(FysiskDato er datofelt i tabellen)

Sætningen kynne se således ud i sql

SELECT [TBL Performance].Konto, [TBL Performance].Vendor, [TBL Performance].Fysisk
FROM [TBL Performance]
WHERE (((Format([fysisk],"mmyyyy"))="072006"));

Den nemmeste måde at finde frem til en måneds slutdag er faktisk at bruge AddDate til at subtrahere én dag fra den 1. i efterfølgende måned. F.eks.:

tildato = DateAdd("d", - Day(DateAdd("m", 1, fraDato)), AddDate("m", 1, fraDato))

Her bliver der først lagt 1 måned til fraDato, hvorefter der bliver fratrukket det antal dage som day-portion indeholder.

9. oktober 2006 + 1 måned --> 9. november 2006 - 9 dage --> 31. oktober 2006

Sorry, det skal naturligvis konsekvent være DateAdd.

tildato = DateAdd("d", - Day(DateAdd("m", 1, fraDato)), DateAdd("m", 1, fraDato))

Det er straks værre, hvis du vil til at beregne arbejdsdage, for så skal du også, ud over de faste fridage, til at tage hensyn til skæve helligdage, som baserer sig på påskedag, som igen baserer sig på månekalenderen. Det er meget sjovt! ;-)

Du kan dog få hjælp her:
http://users.chariot.net.au/~gmarts/eastalg.htm

Har du først fundet påskedag, er alle de andre helligdage bare forskudt et fast antal dage i forhold til denne.

Have fun!