Msgdate function error

[ADutheil]

Hi Antonio,

This code

Code: Select all  Expand view

#include "fivewin.ch"

PROCEDURE main()
LOCAL dData, oGet

dData := msgDate()

RETURN

results in a shifted list of days of the calendar

[Antonio Linares]

André,

Please try this change in function MsgDate() in source\function\msgmeter.prg in line 59:

Code: Select all  Expand view

  @ 0.8, 0 SAY "  " + SubStr( CDow( dDate - Dow( dDate ) + 2 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate - Dow( dDate ) + 3 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate - Dow( dDate ) + 4 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate - Dow( dDate ) + 5 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate - Dow( dDate ) + 6 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate - Dow( dDate ) + 7 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate - Dow( dDate ) + 8 ), 1, 3 ) COLOR CLR_HRED
 

[nageswaragunupudi]

Display of week-day names is starting with the week-day of dDate. dDate is the first parameter to the function, which defaults to Date(). So the display of header changes based on the value of dDate.

One solution would be to move the block of code:

Code: Select all  Expand view

  @ 0.8, 0 SAY "  " + SubStr( CDow( dDate ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate + 1 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate + 2 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate + 3 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate + 4 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate + 5 ), 1, 3 ) + "   " + ;
                       SubStr( CDow( dDate + 6 ), 1, 3 ) COLOR CLR_HRED
 

next to this code:

Code: Select all  Expand view

  dDate -= Day( dDate ) - 1
   while DoW( dDate ) != 2 // Monday
      dDate --
   enddo
 

Alternatively this code for the header can be used instead of the original code:

Code: Select all  Expand view

  @ 0.8, 0 SAY "  " + Left( NToCDow( 2 ), 3 ) + "   " + ;
                       Left( NToCDow( 3 ), 3 ) + "   " + ;
                       Left( NToCDow( 4 ), 3 ) + "   " + ;
                       Left( NToCDow( 5 ), 3 ) + "   " + ;
                       Left( NToCDow( 6 ), 3 ) + "   " + ;
                       Left( NToCDow( 7 ), 3 ) + "   " + ;
                       Left( NToCDow( 1 ), 3 ) COLOR CLR_HRED