Narvaling
/
utiles_v2017
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Arreglo fechas nulas

master
Elena 2022-03-27 14:08:58 +02:00
parent 534d38cc2f
commit 5acf5e3f28
2 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Fdbf.cpp
View File

@ -167,8 +167,23 @@ __int64 Fdbf::getI64(int col)
mm = atol(&str[4]); mm = atol(&str[4]);
str[4] = 0; str[4] = 0;
aa = atol(str); aa = atol(str);
CTime tt(aa,mm,dd,0,0,0,-1);
try
{
CTime tt;
if (aa == 0 || mm == 0 || dd == 0)
tt = CTime::GetCurrentTime();
else
{
CTime t2(aa, mm, dd, 0, 0, 0, -1);
tt = t2;
}
return(tt.GetTime()); return(tt.GetTime());
}
catch (...)
{
return 0;
}
} }
//***************************************************************************************** //*****************************************************************************************
bool Fdbf::set(int ncol, int nRow, Cb_file *file) bool Fdbf::set(int ncol, int nRow, Cb_file *file)

6
utiles.vcxproj
View File

@ -154,7 +154,8 @@ copy $(OutDir)\utiles.lib ..\lib\$(IntDir)</Command>
</Link> </Link>
<PostBuildEvent> <PostBuildEvent>
<Command>copy $(OutDir)$(TargetFileName) ..\BIN\$(IntDir) <Command>copy $(OutDir)$(TargetFileName) ..\BIN\$(IntDir)
copy $(OutDir)\utiles.lib ..\lib\$(IntDir)</Command> copy $(OutDir)\utiles.lib ..\lib\$(IntDir)
copy $(OutDir)$(TargetFileName) D:\Proyectos\Olivia\Instal2.0\bin\</Command>
</PostBuildEvent> </PostBuildEvent>
</ItemDefinitionGroup> </ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
@ -225,7 +226,8 @@ copy $(OutDir)\utiles.lib ..\lib\$(IntDir)</Command>
</Link> </Link>
<PostBuildEvent> <PostBuildEvent>
<Command>copy $(OutDir)$(TargetFileName) ..\BIN\$(IntDir) <Command>copy $(OutDir)$(TargetFileName) ..\BIN\$(IntDir)
copy $(OutDir)\utiles.lib ..\lib\$(IntDir)</Command> copy $(OutDir)\utiles.lib ..\lib\$(IntDir)
copy $(OutDir)$(TargetFileName) D:\Proyectos\Olivia\Instal2.0\bin\</Command>
</PostBuildEvent> </PostBuildEvent>
</ItemDefinitionGroup> </ItemDefinitionGroup>
<ItemGroup> <ItemGroup>