【FirstofMonthJul】
[code]Inputs: VMonth(Numeric), VYear(Numeric);Variables: var0(""), var1(0);
var0 = RightStr("0" + numtostr(VYear, 0), 3)+ RightStr("0" + numtostr(VMonth, 0), 2)+ "01";
var1 = StrToNum(var0);
FirstofMonthJul = DateToJulian(var1);
[/code]
页:
[1]