- Code: Select all Expand view
- @ 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 Expand view
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 Expand view
@ 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