Another problem with new XbrGetDate - RESOLVED!!!

[Silvio.Falconi]

I have this Get

Code: Select all

@ 08,144 GET aGet[3] VAR dDataStart SIZE 120,14 PIXEL OF oFolder:aDialogs[1] ;
          BITMAP "c:\work\fwh\bitmaps\32x32\calendar.bmp" ;
          ACTION (dDataStart := XbrGetDate(  ,"Seleziona una data",{^ 2019/06/15 }, {^ 2019/09/20 } ,,0.6 ),;
               IIF( dDataStart=ctod("") .or. dDataStart=nil ,;
                          aGet[3]:cText( "Selezionare una data")            ,;
                          aGet[3]:cText(Convertidata(dDataStart)))       ,;
                           aGet[3]:refresh()   )

it run good but Instead of {^ 2019/06/15 }, {^ 2019/09/20 }

I wish insert my dates min and Max ( because I cannot Know them)

I have these date on a ini file :

Code: Select all

     Local cIniFile  := TakeOffExt( GetModuleFileName( GetInstance() ) ) + ".ini"
     Local dBassa1   := GetPvProfString("Stagioni", "BASSA1","17.05.", cIniFile)
     Local dBassa4   := GetPvProfString("Stagioni", "BASSA4","20.09.", cIniFile)
     Local dStagioneMin:=  dBassa1+ltrim(str(year(date())))
     Local dStagioneMax:=  dBassa4+ltrim(str(year(date())))
     Local dDatalimiteMin
     Local dDatalimiteMax

        dDatalimiteMin := ctod(dStagioneMin)
        dDatalimiteMax := ctod(dStagioneMax)
        dDataStart:= Convertidata(dCheckIn )

if I made

Code: Select all

 
@ 08,144 GET aGet[3] VAR dDataStart SIZE 120,14 PIXEL OF oFolder:aDialogs[1] ;
          BITMAP "c:\work\fwh\bitmaps\32x32\calendar.bmp" ;
          ACTION (dDataStart := XbrGetDate(  ,"Seleziona una data",dDatalimiteMin, dDatalimiteMax ,,0.6 ),;
               IIF( dDataStart=ctod("") .or. dDataStart=nil ,;
                          aGet[3]:cText( "Selezionare una data")            ,;
                          aGet[3]:cText(Convertidata(dDataStart)))       ,;
                           aGet[3]:refresh()   )

it run but the calendar showed bad as you can see here :



How I can resolve ?

I try to converte my dates with

Local dBassa12 := GetPvProfString("Stagioni", "BASSA1","05/17", cIniFile)
Local dBassa42 := GetPvProfString("Stagioni", "BASSA4","09/20", cIniFile)

dStagioneMin:= "{^ "+ltrim(str(year(date())))+"/"+dBassa12+" }"
dStagioneMax:= "{^ "+ltrim(str(year(date())))+"/"+dBassa42+" }"

dDatalimiteMin := ctod(dStagioneMin)
dDatalimiteMax := ctod(dStagioneMax)

but the calendar make errors

[Silvio.Falconi]

ahh ok
there is error with GetPvProfString command on HArbour not run

[Silvio.Falconi]

resolved