[Back to DATETIME SWAG index]  [Back to Main SWAG index]  [Original]

   Here you have my DayUtil, I'm sure you can use that instead. As a bonus you
get a function that returns the daynumber of Eastern Day a certain year (yes!
it's true! :) plus some other useful(?) related functions.

                           - = * = -

unit DayUtil;
{ some useful date&time related functions }
{ PD by Bj”rn Felten @ 2:203/208 -- Nov 1994 }

{$g+} { three shift instructions need this }


function dayNo(Ye,Mo,Da:word): word; {calculate the daynumber 1..366}
function easternDay(Ye:word): word;  {what day Eastern Day is that year}
function getYear:  word; inline($b4/$2a/$cd/$21/$89/$c8);
function getMonth: word; inline($b4/$2a/$cd/$21/$30/$e4/$88/$f0);
function getDay:   word; inline($b4/$2a/$cd/$21/$30/$e4/$88/$d0);
function getDow:   word; inline($b4/$2a/$cd/$21/$30/$e4);
function getHour:  word; inline($b4/$2c/$cd/$21/$30/$e4/$88/$e8);
function getMin:   word; inline($b4/$2c/$cd/$21/$30/$e4/$88/$c8);
function getSec:   word; inline($b4/$2c/$cd/$21/$30/$e4/$88/$f0);
function workDay(Ye,Mo,Da,Wd:word): boolean; {returns true if a working day}


function dayNo;assembler;
    mov  bx,Ye
    mov  cx,Mo
    dec  cx      (* Month = 0..11 *)
    mov  di,Da

{   if Month>2 then  }
    cmp  cx,1
    jle  @janfeb

{      S := ((Year mod 4) + 3) div 4 + (4 * Month + 23) div 10 - 1  }
    and  bx,3
    add  bx,3
    shr  bx,2
    mov  ax,cx
    inc  ax
    shl  ax,2
    add  ax,23
    push cx
    mov  cx,10
    div  cx
    pop  cx
    dec  ax
    add  bx,ax
    jmp  @eif

{   else  }

{      S := 0;  }
    xor  bx,bx

{   DayNo:= 31 * (Month - 1) + Day - S;  }
    mov  ax,cx
    mov  cx,31
    mul  cx
    add  ax,di
    sub  ax,bx

function easternDay;assembler;
{ uses Gauss' Eastern formula to calculate Eastern Day }
{ you're not supposed to understand this... :) }
{ it took me quite some while to convert the "formula" from }
{ the look up tables, that I found in my encyclopaedia, into }
{ pure, working assembler, so enjoy... }
    mov  ax,Ye
    cmp  ax,99
    jg   @noadd
    cmp  ax,80
    jg   @not2000
    add  ax,100
    add  ax,1900
    mov  bx,ax
    mov  cx,19
    div  cx
    mov  ax,dx
    mul  cx
    add  ax,24
    mov  cx,30
    div  cx
    mov  si,dx
    mov  ax,bx
    and  ax,3
    shl  ax,1
    mov  di,ax
    mov  ax,bx
    mov  cx,7
    div  cx
    mov  ax,dx
    shl  ax,2
    add  di,ax
    mov  ax,si
    shl  ax,1
    add  ax,si
    shl  ax,1
    add  ax,5
    add  ax,di
    div  cx
    add  dx,si
    add  dx,81
    and  bx,3
    jne  @no29
    inc  dx
    mov  ax,dx

   (In other countries than Sweden you may have other holidays
   than we have here. But you'll probably recognize Ascension Day,
   Whit-Monday and the other holidays below, so it shouldn't
   be that difficult to work out your own, country specific,
   modifications to get the workDay function working properly...)

   F”r svenska f”rh†llanden g„ller f”ljande betr„ffande helgdagar:

       Sun:=(WeekDay='S') or   {S”ndag}
      (ThisDate='01 Jan') or   {Ny†rsdagen}
      (ThisDate='06 Jan') or   {Trettondedagen}
      (ThisDate='01 May') or   {1:sta maj}
      (ThisDate='25 Dec') or   {Juldagen}
      (ThisDate='26 Dec');     {Annandag jul}

       EFri:=EasternDay-2;     {L†ngfredag}
       EMon:=EFri+3;           {Annandag p†sk}
       ADay:=EMon+38;          {Kristi himmelsf„rdsdag}
       WMon:=ADay+11;          {Annandag pingst}

function workDay;
var dn,ed:word;
  dn:=dayNo(Ye,Mo,Da); ed:=easternDay(Ye);
       ((Wd= 0) or(Wd= 6)  or   {S”ndag eller L”rdag}
       ((Da= 1)and(Mo= 1)) or   {Ny†rsdagen}
       ((Da= 6)and(Mo= 1)) or   {Trettondedagen}
       ((Da= 1)and(Mo= 5)) or   {1:sta maj}
       ((Da=25)and(Mo=12)) or   {Juldagen}
       ((Da=26)and(Mo=12)) or   {Annandag jul}
        (dn=ed- 2)         or   {L†ngfredag}
        (dn=ed+ 1)         or   {Annandag p†sk}
        (dn=ed+39)         or   {Kristi himmelsf„rdsdag}
        (dn=ed+50))             {Annandag pingst}


[Back to DATETIME SWAG index]  [Back to Main SWAG index]  [Original]